<tr align='center' bgcolor='#FACFA0'><td height='30'><div align='center' class='txt'><b>列表</b></div></td></tr>
<%
'----------------------------------------------------------------------------------'以下开始显示原有留言
Dim rs,strsql
'建立Recordset对象,因为要分页显示数据,所以请注意Open方法的参数
Set rs=Server.CreateObject("ADODB.Recordset")
strsql ="Select * From XcUserInfo order by ID Desc"
rs.Open strsql,Conn,3,3
'如果记录集是空的,就停止运行程序,如果非空,就分页显示
If rs.Bof Or rs.Eof Then
Response.Write "<tr align='center' bgcolor='#FACFA0'><td height='30'><div align='center' class='txt'><b>记录为空!</b></div></td></tr>"
else
'下面一段判断当前显示第几页
Dim page_no
If Session("page_no")="" Then
'如是第一次打开,为1
page_no=1
Session("page_no")=page_no
Elseif Request.QueryString("page_no")<>"" Then
'如果选择了页码,就令其为指定页码
page_no=Cint(Request.QueryString("page_no"))
Session("page_no")=page_no
Else
'其它情况下,则从Session中读取原来的页码
page_no=1
End If
'下面一段开始分页显示,指向要显示的页,然后逐条显示当前页的所有记录。
rs.PageSize=20 '每页显示20条
rs.AbsolutePage=page_no '设置当前显示第几页
Dim I,X '该变量用来控制显示当前页记录
I=rs.PageSize
X=0
Do While Not rs.Eof And I>0 '循环直到当前页结束或记录集结尾
I=I-1
X=X+1
%>
<tr><td><%=Rs("UserName")%></td></tr>
<%
rs.MoveNext
Loop
End If
%>
共<%=rs.recordcount%>条记录
分页:<% if cint(Page_no)>1 then%>
| <a href="?page_no=<%=page_no-1 %>"><u><b>上一页</b></u></a> |
<% else%>
| 首页 | 上一页 |
<% end if%>
<% if cint(Page_no)<cint(Rs.PageCount) then%>
<a href="?page_no=<%=Rs.PageCount %>"><u><b>尾页</b></u></a> |
<% else%>
下一页 | 尾页 |
<% end if%>
当前为第<form action="" method="get"><input type="text" name="page_no" style="width:35px;height:20px;vertical-align: middle;" onBlur="if (value ==''){value='<%=page_no %>'}" onFocus="if (value =='<%=page_no %>'){value=''}" value="<%=page_no %>" <% if trim(""&Rs.PageCount&"")="1" then Response.write("disabled") end if%> /><input type="submit" value="go" style="width:30px;height:22px;vertical-align: middle;" <% if trim(""&Rs.PageCount&"")="1" then Response.write("disabled") end if%> /></form>页 共计<b><%=Rs.PageCount %></b>页