<%Response.ContentType="text/html; charset=gb2312" '编码
Response.Buffer = True '防止缓存
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache"%>
<!--#include file="../inc/payconn.asp" -->

<%




msgToMerchantId=Request.QueryString("msgToMerchantId")
msgType=Request.QueryString("msgType")
msgSender=Request.QueryString("msgSender")
msgContent=Request.QueryString("msgContent")
msgQQ=Request.QueryString("msgQQ")
msgCell=Request.QueryString("msgCell")
msgEmail=Request.QueryString("msgEmail")


		If Request.Cookies("err")<>"" Then
			If Int(Request.Cookies("err"))>=1 Then
				response.write "15分钟只能留言一次！"
				Response.End()
			End If
		End If	



Call ConnectionDatabase()
if msgToMerchantId<>"" and msgType<>"" and msgSender<>"" then
sql="select * from qq"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("msgToMerchantId")=msgToMerchantId
rs("msgType")=msgType
rs("msgSender")=msgSender
rs("msgContent")=msgContent
rs("msgQQ")=msgQQ
rs("msgCell")=msgCell
rs("msgEmail")=msgEmail
rs("time")=now()
rs.update
rs.close
set rs=nothing
Response.Cookies("err")=1
Response.Cookies("err").Expires=DateAdd("n",1,Now())
response.Write"您的留言已成功发送给管理员，谢谢。"
else
response.Write"信息不全，留言失败。"
end if


%>