<%mfd="gbook"%> <%=title%>
客户留言
<% action=request.form("action") if action="add" then set ras=server.createobject("adodb.recordset") wsql="select * from liuyan" ras.open wsql,conn,3,2 ras.addnew ras("name")=request.form("m_name") ras("tel")=request.form("m_tel") ras("address")=request.form("m_address") ras("email")=request.form("m_email") ras("web")=request.form("m_web") ras("body")=request.form("m_content") ras("qq")=request.form("qq") ras("title")=request.form("title") ras("danwei")=request.form("danwei") ras.update ras.close:set ras=nothing response.write"" end if %>

 您的姓名(必须
电话号码(必须)
通信地址(必须)
电子邮箱(可选)
单位名称(可选)
即时通信(可选)
网站地址(可选) 
留言标题(可选)
留言内容(必须  
<% dim rs,sql set rs=server.createobject("adodb.recordset") sql="select * from liuyan where check='通过' order by id desc" rs.open sql,conn,1,1 rs.pagesize=4 if trim(request.querystring("page")<>"") then if isnumeric(trim(request.querystring("page")))=false then page=1 else page=cint(trim(request.querystring("page"))) end if else page=1 end if if page<1 then page=1 elseif page>rs.pagecount then page=rs.pagecount end if if not rs.eof then rs.absolutepage=page end if if rs.bof then response.write("





") response.write("本站留言簿暂无留言!") response.write("





") end if for i=1 to rs.pagesize if rs.eof then exit for %>
网友大名:<%=rs("name")%>
 此条留言 是 <%=rs("name")%> 在 <%=rs("time")%> 发表的
<%=rs("body")%>

<%if rs("reply")<>"" then%> 管理员回复:<%=rs("reply")%>
<%end if%>
邮件:<%=rs("email")%>   主页:<%=rs("web")%>  
<% rs.movenext next %>
第<%= page %>页  <% if page<>1 then %> 首页 <% else %> 首页 <% end if %>   <% if page>1 then %> 上一页 <% else %> 下一页 <% end if %>   <% if page 下一页 <% else %> 下一页 <% end if %>   <% if page 尾页 <% else %> 尾页 <% end if %>  总数<%= rs.recordcount %>条 转到第