<% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"") exec="select * from gbook order by id desc" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %> <% tongji=rs.recordcount %> <% page=1 ' 设置变量PAGE=1 rs.PageSize =newsperpage '每页显示记录数 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化... Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 elseif Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 else rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end if End if Page = rs.AbsolutePage %> <% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %>

<% if rs("replyword")<>"" then %> <% End If %>

<%=rs("username")%>   发表于：<%=rs("creat")%>    [ <%=rs("userip")%> ]
" width="32" height="32">	<%=replace(rs("word"),CHR(10)," ") %>
	" title="点击查看<%=rs("qq")%>资料" target=_blank>     " title="点击进入<%=rs("homepage")%>" target=_blank>     " onMouseOver="toolTip('<%=rs("email")%>', '#cccccc', '#666666')" onMouseOut="toolTip()" title="发送邮件"> <% if Session.Contents("login")="yes" then %>     ">   "> <% Else %> <%End If %>
	<%=replace(rs("replyword"),CHR(10)," ") %> 回复时间：<%=rs("replyshijian")%>

<%if rs.pagecount > 0 then%> <%else%> <%end if%>

当前页0/0

共  <%=tongji%>  条留言  共  <%=rs.PageCount%>  页    首页| <%if pre then%> 上一页| <%end if%> <%if last then%> 下一页 |<%end if%> 尾页|     转到第 <% for i = 1 to rs.PageCount if i = intpage then%> <%=i%> <%else%> <%=i%> <% end if next %> 页