<%dim action action=request.QueryString("action")%>

您可以通过我们的在线QQ直接反馈您的建议，也可以通过提交表单，谢谢您的支持。
客服QQ：

<%select case action case "" %> 尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢 ！

类　型： |
主　题： |
姓　名： |
e-mail： |
地　址： |
电　话： |
信　息： |
| [请注意适当使用Enter键来换行]

<% case "save" if session("fkfk")=minute(now) then response.write "
" response.End end if function HTMLEncode2(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLEncode2 = fString end function set rs=server.CreateObject("adodb.recordset") rs.open "select * from shop_fk",conn,1,3 rs.addnew rs("fksubject")=trim(request("fksubject")) rs("fkleixing")=request("fkleixing") rs("fkcontent")=htmlencode2(trim(request("fkcontent"))) rs("fkusername")=trim(request("fkusername")) rs("fkemail")=trim(request("fkemail")) rs("fktel")=trim(request("fktel")) rs("fklaizi")=trim(request("fklaizi")) rs("fkdate")=now rs("fkip")=Request.ServerVariables("remote_addr") rs.update rs.close set rs=nothing session("fkfk")=minute(now) response.write "

您的信息反馈已成功提交，感谢您的参与！
返回首页
" end select%>