<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("data/feedback.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath tmpmess=Server.HtmlEncode(request.form("comment")) tmpmess=replace(tmpmess,chr(10),"  
") set rstmp=server.createobject("adodb.recordset") set rstmp=conn.execute("Select * from feedbackinfo Where comment='"&trim(tmpmess)&"'") if not rstmp.eof then response.write("

错误：您重复提交了相同的反馈信息！

按此返回>>") else str="Insert Into feedbackinfo (title,leixing,name,email,area,address,phone,mess_date,mess_time,comment) Values('" str=str & request.form("title") & "','" str=str & request.form("leixing") & "','" str=str & request.form("name") & "','" str=str & request.form("email") & "','" str=str & request.form("area") & "','" str=str & request.form("address") & "','" str=str & request.form("phone") & "','" str=str & cstr(DATE) & "','" str=str & CStr(Time) & "','" str=str & tmpmess & "')" ' Response.Write str conn.execute(str) set rs=server.createobject("adodb.recordset") set rs=conn.execute("Select * from feedbackinfo Where comment='"&tmpmess&"'") session.contents("comment")=tmpmess %> 中国电子物资总公司 -=- CEMC




给我们留言
填写反馈表单
发个MAIL给我们联系

　


用户信息反馈系统

　　请填写以下反馈表单，谢谢！

主　题： *反馈信息的主题
类　型： *请选择反馈信息的类型

姓　名： *必须填写
E-mail： *请填写有效E-mail以方便我们与您联系
来　自： 如：北京
地　址：
电　话：

反馈信息：[请注意适当使用Enter键来换行]
　　　　

　　　　 　　

　 　回到顶部
<% rs.close set conn=nothing set rs=nothing end if %>