<% 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 %>条 转到第 <%for m = 1 to rs.pagecount%> ><%=m%> <% next %> 页