Set rs=server.createobject("ADODB.RECORDSET")
sql="SELECT * FROM guest ORDER BY ID DESC"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write "还没有任何留言!"
response.write "填写留言"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =1
total = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
%>
第条，共条留言
i=1
do while not rs.eof and i
------------
：()
联系QQ:
------------
回复:()
时间:
[删除]
[回复]
[退出]
i=i+1
rs.movenext
loop
%>
if page>1 then%>
上页
end if
%>
if page
下页
end if
%>
(/)
------------
按页搜索
填写留言
response.write "我的留言"
else
response.write "查找留言"
end if %>
if session("admin")="" and session("flag")="" then
response.write "管理登陆"
else
response.write "退出管理"
end if
%>
网站首页
session("page")=page %>
跳到第：页，跳吧
