<%'连接数据库 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "Select * FROM baseset" 
rs.open sql,conn,1,1 
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then 
page=1 
Else 
Page=Int(Abs(Request("page"))) '取的page的值 
End if 
rs.pagesize = 20 '设置分页大小 
total = rs.RecordCount '总数据量 
mypagesize = rs.pagesize 
rs.absolutepage = page 
'rs.pagecount '总页数 
'循环开始 dim i i=1 do while not rs.eof and mypagesize > 0 '输出数据 mypagesize=mypagesize-1 i=i+1 rs.movenext loop %> <% if page>1 then %> [<a href="?page=1">首页</a>] [<a href="?page=<%=page-1%>">上页</a>] <% end if %> <% if page<rs.pagecount then %> [<a href="?page=<%=page+1%>">下页</a>] [<a href="?page=<%=rs.pagecount%>">尾页</a>] <% end if %> <%'关闭数据库%>
