<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("gjdxbaonamedata/baonamemdb.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
tmpmess=Server.HtmlEncode(request.form("title"))
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,yb,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("yb") & "','"
str=str & request.form("phone") & "','"
str=str & request.form("comment") & "','"
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 title='"&tmpmess&"'")
session.contents("comment")=tmpmess
%>