谁给我点分页技术的代码?
谁给我点分页技术的代码?谢谢!!
<%
strconn="driver={Microsoft Access driver (*.mdb)};DBQ="&Server.MapPath("user.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.open strconn
%>
<table width="50%" border="1" bordercolor="#000099">
<tr>
<td>用户名</td>
<td>密码</td>
</tr>
<%
'===========利用循环显示数据==============
strSQL="Select * from userinfo"
Set rs=Server.CreateObject("ADODB.RecordSet")
'rs.open strSQL,strconn,adOpenstatic,adLockReadOnly,adCmdText---部分参数可以用数字代替
rs.open strSQL,strconn,3,1,1
'============每页显示的记录数==========
rs.PageSize=2
'===========控制当前显示页的页号=======
PageNum=Request.QueryString("PageNum")
if PageNum="" then
PageNum=1
rs.AbsolutePage=PageNum
else
rs.AbsolutePage=PageNum
end if
'===========显示数据记录的基本信息========
Response.Write("数据记录的总数为："&rs.RecordCount&"<br><br>")
Response.Write("总页数为"&rs.PageCount&"页/")
Response.Write("当前第<font color=red>"&PageNum&"</font>页")
'===========将数据进行列表显示============
Do While not rs.eof and i<rs.PageSize
%>
<tr>
<td><font size="2"><%=rs("username")%></font></td>
<td><font size="2"><%=rs("pwd")%></font></td>
</tr>
<%
i=i+1
rs.movenext
Loop
'===========显示可以转到的页数=============
For pn=1 To rs.PageCount
strURL="<a href=page.asp?PageNum="&pn&">第"&pn&"页</a> "
Response.Write(strURL)
Next
'====显示上一页链接====
PPage=PageNum-1
If PPage>0 Then
strURL="<a href=page.asp?PageNum="&PPage&">上一页"&"</a>"
Response.Write(strURL)
End If
'====显示下一页链接====
NPage=PageNum+1
If NPage<=rs.PageCount Then
strURL="<a href=page.asp?PageNum="&NPage&">下一页"&"</a>"
Response.Write(strURL)
End If
%>
</table>
<%
'===========数据显示完毕关闭数据库连接释放资源===========
conn.close
Response.Write "数据库已经关闭: " & conn.State
Set conn=Nothing
%>
