<% set objconn=server.createobject("adodb.connection") objConn.ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("db.mdb") objConn.Open strsql="select * from book order by id desc " set rs=server.createobject("adodb.recordset") rs.open strsql,objconn,adopenstatic rs.pagesize=4 page=clng(request("pagetext")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount %> 共有留言<%=rs.recordcount%>条  显示第<%=page%>页/总<%=rs.pagecount%>页   <% if page<>1 then response.write "首页  " response.write "上页  " end if if page<>rs.pagecount then response.write "下页  " response.write "尾页" end if %>    转到第 页

暂无反馈信息内容!

<% Response.end %> <% End If %> <% rs.absolutepage=page for i=1 to rs.pagesize %>

发表人	主题:<%= rs("subject") %>	">
<%= rs("name") %> <% if rs("homepage")<>"" then %> "> <% end if %>  ">	发表于: <%= rs("time") %> <%=server.htmlencode(rs("content"))%> 回复: <% if rs("repcontent")="" then response.write("暂无回复") else response.write(rs("repcontent")) %>

<% rs.movenext if rs.eof then exit for next %> <% rs.close set rs=nothing conn.close set conn=nothing %>