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

1language="vbscript"   
2set conn=server.createobject("adodb.connection")   
3conn.open "driver={sql server};server=luo;uid=sa;pwd=;database=zszl"   
4set rs=server.createobject("adodb.recordset")

 1pgsize=5   
 2page=request.querystring("page")   
 3sql="select * from test where id1=1"   
 4rs.open sql,conn,1   
 5rs.pagesize=pgsize   
 6pgnm=rs.pagecount   
 7if page=""or clng(page)<1 then page=1   
 8if clng(page)>pgnm then page=pgnm   
 9if pgnm>0 then rs.absolutepage=page   
10count=0   
11do while not rs.eof and count

1=d
2```<br/>   

1<a href="dis.asp?page=1">第一页</a>
2<a =pgnm="" ```="" href="dis.asp?page=```">最后一页</a>
3<a =page+1="" ```="" href="dis.asp?page=```">下一页</a>
4<a =page-1="" ```="" href="dis.asp?page=```">上一页</a></rs.pagesize>