| 为和您建立起联络渠道，请把您的资料、关于我们公司的询问或意见、或者您认为有必要的其他信息发送给我们，我们将不胜感激。
谢谢! |
<%dim action
action=request.QueryString("action")%>
<%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%>
|
|
|
|
