<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../../Common/Config.asp"-->
<!--#include file="../../Common/Function/Function.asp"-->
<!--#include file="../../Common/Function/Callings.asp"-->
<!--#include file="../Include/Check.asp"-->
<%


if Trim(Request.QueryString("action"))="msgView" then
	conn.execute "UPDATE [Jin_Message] SET Verify = true , Replytime= Now() WHERE sysID = "&Trim(Request.QueryString("id"))
end if

if Trim(Request.QueryString("action"))="msgViewno" then
	conn.execute "UPDATE [Jin_Message] SET Verify = false , Replytime= Now() WHERE sysID = "&Trim(Request.QueryString("id"))
end if

if Trim(Request.QueryString("action"))="msgReply" then	
	to_email=getTbValue("Email",6,"sysID",Request.QueryString("id"),0)
	to_name=getTbValue("UserName",6,"sysID",Request.QueryString("id"),0)
	to_title="网站留言回复通知(请勿回复此邮件)"
	to_content="您好：<br>您给我们的留言我们回复了，请到我们官网"&Web_Url&"查看。</a><br>如果您没有在我们的网站留言，您可以忽略本邮件。<br><br>本邮件为系统发出，请勿回复 | "&Web_Name&""
	If Web_ToMsgEmail=1 Then Call Send_Mail(Web_SendDomain,Web_SendName,Web_SendEmail,Web_SendPwd,to_email,to_name,to_title,to_content,0)

	conn.execute "UPDATE [Jin_Message] SET Reply = '"&Trim(Request.QueryString("value"))&"' ,  Verify = true , Replytime= '"&getDate(Now(),"Y-M-D H:M:S")&"' WHERE sysID = "&Request.QueryString("id")

end if

if Trim(Request.QueryString("action"))="msgDel" then
	conn.execute "delete from [Jin_Message] where SysID = " & Trim(Request.QueryString("id"))
end if

if Trim(Request.Form("action"))="msgplsc" then
	conn.execute "delete from [Jin_Message] where SysID in (" & replace(Trim(Request.Form("ids"))," ",", ") & ")"
end if

conn.close
set conn=nothing
%>

