填写新留言  管理面板  
<% 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 %>    转到第
<% If rs.EOF And rs.BOF Then %>
暂无反馈信息内容!
<% 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 %>
 Copyright © 2006 JINGU Hardware Furniture. All rights reserved. Designed by Steven Liu.