message_save.asp

站完全依据SEO技术建立

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->

<!--#include file="../../sendmail.asp"-->
<%
title=request("title")
book=request("book")
coname=request("coname")
colxr=request("colxr")
colx=request("colx")


cityping=split(cityping,"|")
for i=0 to UBound(cityping)
if instr(title,cityping(i)) or instr(book,cityping(i)) or instr(coname,cityping(i)) or instr(colxr,cityping(i)) or instr(colx,cityping(i)) then
response.write"<script>alert('客户反馈出错，下面是产生错误的可能原因：\n\n·在您的反馈资料中含有敏感字符');history.go(-1);</script>"
response.end
end if
next

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from bookyp"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("book")=book
rs("coname")=coname
rs("colxr")=colxr
rs("colx")=colx
rs("yp_id")=request("id")
rs.update
rs.close
set rs=nothing

if citymailkey4=1 then
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "select * from yp where id="&request("id")&"",conn,1,1
toname=rs("user")
tomail=rs("mail")
rs.close
set rs=nothing

mailtitle=toname&" 有人给您留言了！"
mailbody=toname&"："&vbcrlf&vbcrlf&"　　"&title&vbcrlf&vbcrlf&"联系人："&colxr&vbcrlf&"联系方式："&colx&vbcrlf&vbcrlf&"详情请登录管理查看："&cityurl&"user/index.asp"
sendmail
end if

response.write"<script>alert('操作成功，谢谢您的参与！');window.open('message.asp?id="&request("id")&"','_self')</script>"
response.end
%>