<%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>
