<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Function.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Call ChkLogin(session("WebAdminsUserName"))
Call ConnectionDataBase(2)
Action = Request("Action")
Select Case Action
	Case "AddMsg"
		Call AddMsg
End Select
'添加回复
Sub AddMsg()
	ReplyContent = Request.Form("ReplyContent")	
	ID = Request.Form("ID")	
	Call ChkIsNumber(ID,"参数类型错误!")
	Call ChkIsNull(ReplyContent,"请输入回复内容!")
	strSql = "Select * From T_Message Where ID=" & ID
	SetRs Rs,strSql,conn,1,3
	IF Not Rs.EOF Then	
		Rs("ReplyContent") = ReplyContent
		Rs("ReplyUser") = Session("WebAdminsUserName")
		Rs("ReplyTime") = Now()	
		Rs.Update
	End IF
	DisRs Rs
	Call CloseDatabase
	Call Success("信息回复成功!",Request.ServerVariables("HTTP_REFERER"))
End Sub
%>
