无标题文档

<%If request.Form("submit") = "提交投诉" Then If request.Form("pf_guestbook_contact") = "" Then Call infoback("留言人不能为空！") End If If request.Form("pf_guestbook_contactinfo") = "" Then Call infoback("联系方式不能为空！") End If If request.Form("pf_guestbook_name") = "" Then Call infoback("留言标题不能为空！") End If If request.Form("pf_guestbook_content") = "" Then Call infoback("留言内容不能为空！") End If If request.Form("pf_guestbook_verifycode") = "" Then Call infoback("验证码不能为空！") End If If CStr(Session("CheckCode"))<>CStr(Request.Form("pf_guestbook_verifycode")) Then Call infoback("验证码错误！") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from pf_guestbook" rs.Open sql, conn, 3, 3 rs.addnew rs("pf_guestbook_contact") = request.Form("pf_guestbook_contact") rs("pf_guestbook_contactinfo") = request.Form("pf_guestbook_contactinfo") rs("pf_guestbook_name") = request.Form("pf_guestbook_name") rs("pf_guestbook_content") = request.Form("pf_guestbook_content") rs("pf_guestbook_display") = False rs("pf_guestbook_date") = now() rs.update response.write"" End If %> 无标题文档

投诉中心


投诉人：	*
联系方式：	*（电话、邮箱、QQ等，方便我们联系您！）
投诉标题：	*
投诉内容：	*
验证码：

投诉列表

<% sql = "select * from pf_guestbook where pf_guestbook_display = true order by pf_guestbook_date desc" page_size = 10 pager = pageturner_handle(sql, "id", page_size) Set rs = pager(0) If rs.EOF Then echo "暂无信息！" End If Do While Not rs.EOF %>

投诉人：	<%=rs("pf_guestbook_contact")%>	投诉日期：	<%=rs("pf_guestbook_date")%>
投诉标题：	<%=rs("pf_guestbook_contact")%>
投诉内容：	<%=rs("pf_guestbook_content")%>
投诉回复：	<%=rs("pf_guestbook_answer")%>

<% rs.movenext Loop rs.Close Set rs = Nothing %> <%=pageturner_show(pager(1),pager(2),pager(3),page_size,5)%>