神马品牌网锋利度单位:asp网页制作中的分页问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/10 07:42:35
<%
option explicit
%>
<!--#include file="adovbs.inc"-->
<%
const pagesize=3
dim page ,objconn,objrs,strq,totalpages,intI ,scn
scn = request.servervariables("script_name")
if request("page")="" then page = 1 else page =cint(request("page"))
set objconn = server.createobject("adodb.connection")
objconn.open "txl",3,3
set objrs = server.createobject("adodb.recordset")
'objrs.cursorlocation = aduseclient
'objrs.cursortype = adopenstatic
objrs.cachesize = pagesize
objrs.open"select * from txlb order by 出生日期",objconn, 3 , 3
objrs.pagesize = pagesize
totalpages = objrs.pagecount
if not(objrs.eof) then objrs.absolutepage = page
%>
<html><body>转到:
<%
for intI=1 to totalpages
response.write "<a href=" & scn & "?page=" & intI & ">"
response.write "第" & intI & "页 </a> " & vbcrlf
next
response.write "<hr>姓名 性别 出生日期 联系电话<br>"
for intI = 1 to objrs.pagesize
if objrs.eof then exit for
response.write objrs("姓名") & " " & objrs("性别") & " "
response.write objrs("出生日期") & " " & objrs("联系电话") & "<br>"
objrs.movenext
next
objrs.close : objconn.close
set objrs = nothing :set objconn = nothing
response.write "<hr>共" & totalpages & "页,当前为第" & page & "页<br>"
if page = totalpages then
response.write "<a href=" & scn & "?page=" & page-1 & ">上一页>></a>"
end if
if page = 1 then
response.write "<a href=" & scn & "?page=" & page+1 & ">下一页>></a>"
end if
if page>1 and page < totalpages then
response.write "<a href=" & scn & "?page=" & page-1 & ">>>上一页</a>"
response.write "<a href=" & scn & "?page=" & page+1 & ">下一页>></a>"
end if
%>
</body></html>