分页

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("sky.mdb")
if conn.state=1 then
'response.write "数据库连接成功"
end if
const strurl="index.asp?"

page=clng(request.querystring("page"))
if page=0 then
page=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from sky"
rs.open sql,conn,1,1
rs.pagesize=3
pagec=clng(rs.pagecount)
if page>pagec then
page=pagec
end if
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof then exit for
response.write "姓名: "&rs("name")&" 密码 "&rs("password")&"<br>"
rs.movenext
next
response.write "共有"&rs.recordcount&"条记录 "
if page=1 then
response.write "首页 上一页 "
else
response.write "<a href=?page=1>首页</a> <a href=?page="&page-1&">上一页</a> "
end if
if page=rs.pagecount then
response.write "下一页 末页 "
else
response.write "<a href=?page="&page+1&">下一页</a> <a href=?page="&rs.pagecount&">末页</a> "
end if
response.write page&"/"&pagec
response.write "<select size=1 name=sel οnchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"
for j=1 to rs.pagecount%>
<option value="<%=j%>" <%if j=page then response.write "selected" %>><%=j%></option>
<%next
response.write "</select>"
rs.close
%>