菜鸟提高 ASP开发技巧集锦二

NETEU 发表于 2006-5-3 22:17:56

<A>11. 报错并返回 　　if rs.bof and rs.eof then ‘还是有问题 　　response.write"<SCRIPT language=JavaScript>alert('找不到！');" 　　response.write"javascript:history.go(-1)</SCRIPT>" 　　end if 　　－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 　　这个是跳转。 　　<script language="javascript"> 　　 alert('<%=intOperationInfo%>'); 　　 window.navigate('ChangePwd.asp'); 　　</Script> 　　12. 从VBS到JS，混用 　　 <% 　　 dim checkpwdconfig 　　 checkpwdconfig=split(addation,"/") 　　 %> 　　 <script language="javascript"> 　　 alert("<%=checkpwdconfig(0)%>") 　　 </script> 　　13. 弹出窗口 　　<script language=javascript> 　　function openaddnew() 　　{ 　　subWindow=window.open("../Edit/PasswordConfigEdit.asp?method=new",'','scrollbars=yes,left=120,top=60,height=250,width=500, menubar=no,location=no,toolbar=no,resizable=yes','') 　　subWindow.opener = this; 　　} 　　</script> 　　用一个连接调用： 　　<a href=""＃"">请修改密码 onClick="openaddnew()"</a> 　　图片调用： 　　<img name=submit1 src="../button_new<%=session("languageid")%>.gif" onClick="openaddnew()"> 　　14. 分页 　　 　　<% 　　if request("pageno")<>"" then 　　 pageno=int(request("pageno")) 　　else 　　 pageno=1 　　end if 　　sql="select * from news where ='中文' and bigclassname='新闻' order by id desc" 　　Set rs= Server.CreateObject("ADODB.Recordset") 　　rs.open sql,conn,1,3 　　rs.pagesize=20 　　if rs.eof then 　　pageno=0 　　else 　　rs.absolutepage=pageno 　　end if 　　%> 　　========================================== 　　共<%=rs.recordcount%>条,<%=pageno%>/<%=int(rs.pagecount)%>页,每页<%=rs.pagesize%>条 　　 <a href="manage.asp?pageno=1">首页</a> 　　 <%if pageno>1 then%> 　　 <a href="manage.asp?pageno=<%=int(pageno)-1%>">上一页</a> 　　 <% 　　 end if 　　 if int(pageno)<>int(rs.pagecount)then 　　%> 　　 <a href="manage.asp?pageno=<%=int(pageno+1)%>">下一页</a> 　　 <%end if%> 　　 <a href="manage.asp?pageno=<%=int(rs.pagecount)%>">尾页</a> 　　 <%rs.close%> 　　 <% 　　call CloseConn() 　　%> 　　15. 数据库更新 　　 sql="select * from where username='";request("username");"'" 　　 rs.Open sql,Conn,1,3 　　 rs("usermail")=Request("usermail") 　　 rs("userhome")=Request("userhome")) 　　 rs.update 　　 rs.close 　　16. 关闭独立窗口 　　<head> 　　<OBJECT id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff- 11cf-9377-00aa003b7a11"><param name="Command" value="Close"> 　　</object> 　　</head> 　　<body> 　　<input type="button" value="点击我关闭窗口" onclick="closes.Click();"> 　　</body> 　　17. 极细表格 　　<table border="1" cellpadding="0" cellspacing="0" width="32" height="32" bordercolorlight="#000000" bordercolordark="#FFFFFF"> 　　<tr> 　　<td>　</td> 　　</tr> 　　</table> 　　18. 几个正则表达式 　　Require : /.+/, 　　Email : /^\w+([-+.]\w+)*@\w+([-.]\\w+)*\.\w+([-.]\w+)*$/, 　　Phone : /^(($\d{3}$)　(\d{3}\-))?($0\d{2,3}$　0\d{2,3}-)?\d{6,7}$/, 　　Mobile : /^(($\d{3}$)　(\d{3}\-))?13\d{9}$/, 　　Url : /^http:\/\/+\.+[\/=\?%\-;_~`@[\]\':+!]*([^<>\"\"])*$/, 　　IdCard : /^\d{15}(\d{2})?$/, 　　Currency : /^\d+(\.\d+)?$/, 　　Number : /^\d+$/, 　　Zip : /^\d{5}$/, 　　QQ : /^\d{4,8}$/, 　　Integer : /^[-\+]?\d+$/, 　　Double : /^[-\+]?\d+(\.\d+)?$/, 　　English : /^+$/, 　　Chinese : /^[\u0391-\uFFE5]+$/, 　　UnSafe :/^((*　*　\d*　[-_\~!@#\$%\^;\*\.\[\]\{\}<>\?\\\/\'\"]*)　.{0,5})$　\s/, 　　19. Left应用（控制字数） 　　function title(str) 　　if len(trim(str))>=28 then 　　title=left(trim(str),27);"..." 　　else 　　title=trim(str) 　　end if 　　end function 　　20. 判断浏览器 　　<SCRIPT LANGUAGE="javascript1.2"> 　　 　　</script> </A>

页: [1]

嘉缘官方论坛's Archiver

菜鸟提高 ASP开发技巧集锦二