<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="Chkuser.asp" -->
<!--#include file="ChkManage.asp" -->
<%
if request.cookies(echsys)("ManageKEY")="super" or request.cookies(echsys)("ManageKEY")="typemaster" or request.cookies(echsys)("ManageKEY")="bigmaster" then
	ComplainID=CheckStr(request.Form("ComplainID"))
	ReplyContent=CheckStr(request.Form("ReplyContent"))
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& db_wygkcn_Complain_Table &" where ComplainID="&ComplainID
	rs.open sql,conn,2,3
	rs("ReplyTime")=now()
	rs("Replycontent")=ReplyContent
	rs("HaveReply")=1
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=ComplainList.asp?ComplainID="&ComplainID&""">"
	Show_Message("<p align=center><font color=red>恭喜您，已经成功回信!<br><br>"&freetime&"秒钟后返回上页!</font>")
else
	Show_Err("您无权回复此信件！<br><br><a href='javascript:history.back()'>返回</a>")
	response.end
end if

%>