|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|--好东西，翻页程序，大家可以参考

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

好东西，翻页程序，大家可以参考

<%language="vbscript"

set conn=server.createobject("adodb.connection")

conn.open "driver={sql server};server=luo;uid=sa;pwd=;database=zszl"

set rs=server.createobject("adodb.recordset")%>

<%pgsize=5

page=request.querystring("page")

sql="select * from test where id1=1"

rs.open sql,conn,1

rs.pagesize=pgsize

pgnm=rs.pagecount

if page=""or clng(page)<1 then page=1

if clng(page)>pgnm then page=pgnm

if pgnm>0 then rs.absolutepage=page

count=0

do while not rs.eof and count<rs.pagesize

%><%=rs("id1")%><br>

<%=d%><br>

<%count=count+1

rs.movenext

loop

rs.close

set rs=nothing

%>

<a href=dis.asp?page=1>第一页</a>

<a href=dis.asp?page=<%=pgnm%>>最后一页</a>

<a href=dis.asp?page=<%=page+1%>>下一页</a>

<a href=dis.asp?page=<%=page-1%>>上一页</a>

本站关键词：

|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞||东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞||东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞||东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|