%If Session("UserName")="" Then
response.redirect"Server.asp"
end if%>
<%
Id=Session("UserName")
set Rst = Server.CreateObject("ADODB.recordset")
sql="select * from User where UserName='"&Id&"'"
rst.open sql,conn,1,1
%>
<%
name=Session("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from book where name='"&name&"' or name='管理员' order by id desc"
rs.open sql,conn,1,1
dim MaxPerPage
MaxPerPage=10
'假如没有数据时
'If rs.eof and rs.bof then
'call showpages
'response.write "
您还没任何留言资料
"
'response.end
'End if
'取得页数,并判断留言输入的是否数字类型的数据,如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call showpages
call list
If Rs.recordcount > MaxPerPage then
call showpages
end if
'显示帖子的子程序
Sub list()%>
留言列表
<%
Response.write " 全部-"
Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条留言 "
Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write "首页"
Response.write "上一页"
Else
Response.write "上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write "下一页 "
Response.write "尾页 "
Else
Response.write ""
Response.write "下一页 "
End if
'response.write "
"
'response.write "转到: "
'response.write " "
%>
<%
If rs.eof and rs.bof then
call showpages
response.write ""
response.end
End if
%>