11. 报错并返回
if rs.bof and rs.eof then ‘还是有问题
response.write""
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
12. 从VBS到JS，混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
13. 弹出窗口
用一个连接调用：
图片调用：
.gif" onClick="openaddnew()">
14. 分页
<%
if request("pageno")<>"" then
pageno=int(request("pageno"))
else
pageno=1
end if
sql="select * from news where [language]='中文' 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%>条
<%if pageno>1 then%>
<%
end if
if int(pageno)<>int(rs.pagecount)then
%>
<%end if%>
<%rs.close%>
<%
call CloseConn()
%>
15. 数据库更新
sql="select * from [user] where username='"&request("username")&"'"
rs.Open sql,Conn,1,3
rs("usermail")=Request("usermail")
rs("userhome")=Request("userhome"))
rs.update
rs.close
16. 关闭独立窗口
17. 极细表格
18. 几个正则表达式
Require : /.+/,
Email : /^\w+([-+.]\w+)*@\w+([-.]\\w+)*\.\w+([-.]\w+)*$/,
Phone : /^((\(\d{3}\))|(\d{3}\-))?(\(0\d{2,3}\)|0\d{2,3}-)?[1-9]\d{6,7}$/,
Mobile : /^((\(\d{3}\))|(\d{3}\-))?13\d{9}$/,
Url : /^http:\/\/[A-Za-z0-9]+\.[A-Za-z0-9]+[\/=\?%\-&_~`@[\]\':+!]*([^<>\"\"])*$/,
IdCard : /^\d{15}(\d{2}[A-Za-z0-9])?$/,
Currency : /^\d+(\.\d+)?$/,
Number : /^\d+$/,
Zip : /^[1-9]\d{5}$/,
QQ : /^[1-9]\d{4,8}$/,
Integer : /^[-\+]?\d+$/,
Double : /^[-\+]?\d+(\.\d+)?$/,
English : /^[A-Za-z]+$/,
Chinese : /^[\u0391-\uFFE5]+$/,
UnSafe :/^(([A-Z]*|[a-z]*|\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. 判断浏览器
21. 嵌入另一页
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用
22. 全部选定
引用：
小格：
">
23. 如何处理页面执行时发生的错误？
<%@ LANGUAGE="VBScript" %>
<%
Response.Buffer = True ' 打开页面缓冲
On Error Resume Next ' 打开错误处理
…………' ASP代码
%>
<%
If Err.Number <> 0 Then ' 错误处理
Response.Clear ' 清除缓冲区
%>
' 显示错误信息页面
页面错误报告
错误号:<%= Err.Number %>
错误描述:<%= Err.Description %>
错误源:Source <%= Err.Source %>
错误发生行:<%= Err.Line %>
<%
End If
%>
24. 收藏夹图标.
在 HEAD 部分加入下面的内容:
在地址栏加入图标（图标必须是.ico格式，并且要加入收藏后才有效）
在HEAD里加入
25. 校验提交表单（正则表达式应用）
统一一下，以后都这样写
26. 循环
<%
dim sql,rs
set rs=server.createobject("ADODB.recordset")
sql="select * from news where bigclassname='解决方案'"
rs.open sql,conn,1,3
for k=1 to rs.recordcount
if rs.eof then
exit for
else
%>
asfasdf
<%
rs.movenext
end if
next
%>
27. 另一个只能输入数字代码
28. 有选择显示
function showco(va)
{
if (va=="CO")
{
RefNum.style.display=''; //不再用这个可以直接用 block
buttonsp.style.display='none';
}
if (va=="SP")
{
buttonco.style.display='none';
buttonsp.style.display='';
kokey.style.display='';
}
if (va=="Inventory")
{
RefNum.style.display='none'; //不显示
Reftr.style.display="block"; //显示
}
调用：
选择显示行