<%select case action
case ""
%>
尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢
！
<%
case "save"
if session("messmess")=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 mess",conn,1,3
rs.addnew
rs("messsubject")=trim(request.form("messsubject"))
rs("messtype")=request.form("messtype")
rs("messcontent")=htmlencode2(trim(request.form("messcontent")))
rs("messusername")=trim(request.form("messusername"))
rs("messemail")=trim(request.form("messemail"))
rs("messtel")=trim(request.form("messtel"))
rs("messfrom")=trim(request.form("messfrom"))
rs("messdtm")=now
rs("messip")=Request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
session("messmess")=minute(now)
response.write "
您的信息反馈已成功提交，感谢您的参与！
返回首 页"
end select%>
|
