<!--#include file="../../Conn.asp" -->
<!--#include file="../../Comm/Site_Class.asp" -->
<%
PagePath = "../../"

Set Qsite = New Site_Class

Qsite.SiteConfig_Master()
%>
<!--#include file="../Check_Login.asp" -->
<%
Qsite.Check_AdminFlag(arrAdminFlag(4 , 2))

Dim FeedbackId,Title,Content,UserName,Tel,Email,AddDate
Dim strTitle,strPage,IsSh,hf

Set Rs = server.createobject("ADODB.Recordset")

If Request.Form <> "" Then
	FeedbackId = Qsite.chgStr(Trim(Request.Form("FeedbackId")))
	Title = Qsite.chgStr(Trim(Request.Form("Title")))
	Content = Qsite.chgStr(Trim(Request.Form("Content")))
	UserName = Qsite.chgStrHtml(Trim(Request.Form("UserName")))
	Tel = Qsite.chgStr(Trim(Request.Form("Tel")))
	Email = Qsite.chgStr(Trim(Request.Form("Email")))
	hf = Qsite.chgStr(Trim(Request.Form("hf")))
	strTitle = Qsite.chgStr(Trim(Request.Form("strTitle")))
	strPage = Qsite.chgStr(Trim(Request.Form("strPage")))
	IsSh = Qsite.chgStr(Trim(Request.Form("IsSh")))
	
	If IsSh <> "1" Then IsSh = "0"
	
	If strPage = "" Or IsNull(strPage) Or Not IsNumeric(strPage) Then strPage = 1
	
	Conn.Execute("update Feedback set hf = '"& hf &"' , IsSh = "& IsSh &" where FeedbackId = "& FeedbackId)
	
	Qsite.ShowMsg "留言反馈回复成功" , "Feedback_List.asp?Title="& strTitle &"&page="& strPage
End If

FeedbackId = Qsite.chgStr(Trim(Request.QueryString("FeedbackId")))
strTitle = Qsite.chgStr(Trim(Request.QueryString("strTitle")))
strPage = Qsite.chgStr(Trim(Request.QueryString("strPage")))

If FeedbackId = "" Or IsNull(FeedbackId) Or Not IsNumeric(FeedbackId) Then FeedbackId = 0
If strPage = "" Or IsNull(strPage) Or Not IsNumeric(strPage) Then strPage = 1

Rs.Open "select * from Feedback where FeedbackId = "& FeedbackId , Conn , 1 , 1
If Rs.Eof Then
	Qsite.ShowMsg "非法参数" , ""
Else
	Title = Rs("Title")
	Content = Rs("Content")
	UserName = Rs("UserName")
	Tel = Rs("Tel")
	Email = Rs("Email")
	hf = Rs("hf")
	AddDate = Rs("AddDate")
	IsSh = Rs("IsSh")
End If
Rs.Close
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>反馈管理</title>
<link href="../skins/css/main.css" rel="stylesheet" type="text/css">
</head>

<body>
<form name="PosForm" method="post" action="Feedback_Edit.asp" style="margin:0">
	<table width="100%" border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td height="25" colspan="2" class="td_title">反馈信息回复
			<input name="FeedbackId" type="hidden" id="FeedbackId" value="<%=FeedbackId%>">
			<input name="strTitle" type="hidden" id="strTitle" value="<%=strTitle%>">
			<input name="strPage" type="hidden" id="strPage" value="<%=strPage%>"></td>
		</tr>
		<tr>
			<td width="18%" height="23" class="td_content">主题：</td>
			<td width="82%" height="23" class="td_content"><input name="Title" type="text" class="input_1" id="Title" readonly size="60" value="<%=Title%>"></td>
		</tr>
		<tr>
			<td height="23" class="td_content">时间：</td>
			<td height="23" class="td_content"><%=AddDate%></td>
		</tr>
		<tr>
			<td height="23" class="td_content">内容：</td>
			<td height="23" class="td_content"><textarea name="Content" cols="60" rows="10" class="input_1" readonly id="Content"><%=Content%></textarea></td>
		</tr>
		<tr>
          <td height="23" class="td_content">姓名：</td>
		  <td height="23" class="td_content"><input name="UserName" type="text" class="input_1" id="UserName" value="<%=UserName%>" size="30" readonly /></td>
	  </tr>
		<tr>
          <td height="23" class="td_content">电话：</td>
		  <td height="23" class="td_content"><input name="Tel" type="text" class="input_1" id="Tel" value="<%=Tel%>" size="30" readonly /></td>
	  </tr>
		<tr>
          <td height="23" class="td_content">邮箱：</td>
		  <td height="23" class="td_content"><input name="Email" type="text" class="input_1" id="Email" value="<%=Email%>" size="30" readonly /></td>
	  </tr>
		<tr>
          <td height="23" class="td_content">审核</td>
		  <td height="23" class="td_content"><input type="radio" name="IsSh" id="sh" value="0" <%If IsSh = "0" Then Response.Write("checked")%>>
是
  <input type="radio" name="IsSh" value="1" <%If IsSh = "1" Then Response.Write("checked")%>>
否 </td>
	  </tr>
		<tr>
          <td height="23" class="td_content">回复：</td>
		  <td height="23" class="td_content"><textarea name="hf" cols="60" rows="6" class="input_1" id="hf"><%=hf%></textarea></td>
	  </tr>
		<tr>
			<td height="23" class="td_content">&nbsp;</td>
			<td height="23" class="td_content"><input name="Submit" type="submit" class="input_1" value=" 提  交 "> 
			&nbsp;
			<input name="Submit" type="reset" class="input_1" value=" 重  置 ">
			&nbsp;
			<input name="Submit" type="button" class="input_1" value=" 返  回 " onClick="javascript:history.back();"></td>
		</tr>
	</table>
</form>
</body>
</html>
