|
<%set gg= conn.execute("select tp,url,lx from tp where lbid=6 and wz=1 and zt=0 order by id desc")
if not gg.eof then
if gg("lx")<>0 then
Response.Write("")
else
Response.Write(" |
|
<%set s = Server.CreateObject("shuziren_com.yz")
if request("add")="yes" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if not mid(server_v1,8,len(server_v2))=server_v2 then
Response.Write ""
response.end
end if
if datediff("s",cdate(session(my_url & "hysj")),now())<30 then
width="500"
my_bt="操 作 失 败 ！"
my_nr=" 对不起！你不能成功地发出留言！！！ ·本系统为了防止灌水，限制了同一人留言的时间间隔为 30 秒！" my() response.end end if if request("name")="" then response.write "请留下您的姓名，谢谢！ 返回修改" response.end end if if request("content")="" then response.write "不写留言反馈内容怎么提交！ 返回修改" response.end end if if Len(request.form("content"))>800 then response.write "错误提示:每条留言反馈的内容不能大于800字! 返回修改" response.end end if tel=s.txt("tel") email=s.txt("email") content=s.txt("content") name=s.txt("name") ip = Request.servervariables("REMOTE_ADDR") set rs=server.createobject("adodb.recordset") sql="select * from guestbook" rs.open sql,conn,1,3 rs.addnew rs("email")=email rs("tel")=tel rs("content")=content rs("name")=name rs("ip")=ip rs.update rs.close set rs=nothing width="500" my_bt="留 言 成 功！" my_nr=" 您已成功地发出留言！！！ ·留言成功，您的意见、建议或投诉对我们很重要。我们会认真的处理你的留言反馈内容。我们的发展离不开你的支持，谢谢您对我们的支持与厚爱！ ·>>返回网站首页 ·>>返回留言反馈网页继续留言" my() session(my_url & "hysj")=now() else%> |