'调用数据库驱动程序
<%Option Explicit%>
<% response.expires=0 %>
dim pageno
dim perpage
dim rst
dim couters
If Request.QueryString("pageno") = "" Then
pageno= 1
Else
pageno= CInt(Request.QueryString("pagenor"))
End If
perpage=5
set rst=server.createobject("adodb.recordset")
sql="select * from message//数据库名字// order by time desc"
rst.Open sql,cn,3,1
rst.pagesize=perpage
if pageno>rst.recordcount then
pageno=rst.recordcount
end if
if pageno<1 then
pageno=1
end if
if rst.eof then
response.write "暂时还没有任何人留言！"
else
rst.absolutepage=pageno%>
<%counters=0
do while not rst.eof and counters
<%counters=counters+1
rst.movenext
loop
end if %>
留言板共有<%=rst.pagecount%>页/<%=rst.RecordCount%>条留言
目前是:第<%=pageno%>页
<%
for i=1 to rst.pagecount
response.write "["&""&i&""&"]"
next%>
<%
rst.close
set rst=nothing%>
