<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if request.Form <> "" then
if request.Form("xingming") = "" then e.alert("璇疯緭鍏ユ偍鐨勫鍚?)
if request.Form("dianhua") = "" then e.alert("璇疯緭鍏ユ偍鐨勭數璇?)
on error resume next
set rs = e.obj_rs
rs.open "select top 1 * from t_feedback",e.conn,1,3
rs.addnew
rs("title") = Server.HTMLEncode(request.Form("xingming"))
rs("content") = Server.HTMLEncode(request.Form("content"))
rs("contact") = "濮撳悕锛? & Server.HTMLEncode(request.Form("xingming")) & " 鐢佃瘽锛? & Server.HTMLEncode(request.Form("dianhua")) & " 鍦板潃锛? & Server.HTMLEncode(request.Form("lianxidizhi"))
rs("insertdate") = now()
rs.update
rs.close
set rs = nothing
if err.number = 0 then
e.alerturl "鐣欒█鎴愬姛锛屾劅璋㈡偍鐨勬敮鎸侊紝杩斿洖棣栭〉锛?,site.path
else
e.alert "鍙戠敓閿欒锛岃妫€鏌ヨ〃鍗曪紒"
end if
else
dim tpl : set tpl = new E7_TPL
dim html : html = tpl.reader("message.html")
if html = "" then response.End()
dim news : set news = new t_news
news.title = "鍦ㄧ嚎鐣欒█"
dim s : s = "