神马文学网ASP开发技巧集锦(2)
来源：百度文库 编辑：神马文学网 时间：2024/05/06 16:06:32
http://luojie.360doc.com luojie25@163.com
11. 报错并返回
if rs.bof and rs.eof then ‘还是有问题
response.write""
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
12. 从VBS到JS，混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
13. 弹出窗口
用一个连接调用：
请修改密码 onClick="openaddnew()"
图片调用：
.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. 极细表格
width="32" height="32" bordercolorlight="#000000"
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. 判断浏览器
11. 报错并返回
if rs.bof and rs.eof then ‘还是有问题
response.write""
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
12. 从VBS到JS，混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
13. 弹出窗口
用一个连接调用：
请修改密码 onClick="openaddnew()"
图片调用：
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. 判断浏览器
ASP开发技巧集锦(2)
ASP开发技巧集锦(4)
ASP开发技巧集锦(4)
用ASP.NET开发Web服务的五则技巧
asp.net控件开发基础(2)
ASP.NET 2.0中数据绑定方法—Asp.Net开发技巧
asp rss开发 RSS 2.0规范 - ASP技巧 - 13COM.NET
用ASP开发试题库
网站建设,系统开发,asp 语言---策划方案（2）
ASP.NET项目开发计划
ASP.NET项目开发计划
delphi基础开发技巧2
ASP编程技巧大全
ASP编程技巧大全
ASP提速技巧
WEB编程开发常用的代码-ASP教程,ASP应用
免费的asp.net开发工具.
ASP.NET开发平台,应用框架
asp.net控件开发基础(3)
asp.net控件开发基础(4)
asp.net控件开发基础(15) 总结
ASP.NET 2.0电子商务开发实战
ASP.NET 2.0电子商务开发实战1.2
ASP.NET开发平台,应用框架