<!--#include file="../inc/Conn.asp"-->
<!--#include file="Inc/Admin.Asp"-->
<!--#include file="inc/articlechar.inc"-->
<%

if Request.QueryString("mark")="operate" then
id=request("id")
title=request.form("title")
publish=request.form("publish")
if request.form("html")="on" then
content=request.form("content")
ReFeedback=request.form("ReFeedback")
else
content=htmlencode2(request.form("content"))
ReFeedback=htmlencode2(request.form("ReFeedback"))
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Feedback where id="&id
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs("ReFeedback")=ReFeedback
rs("ReTime")=Now()
rs("Publish")=publish
rs.update
rs.close
response.redirect "Admin_Feedback.asp"
end if

id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From Feedback where id="&id, conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <form method="post" action="Admin_FeedbackRe.asp?mark=operate">
      <input type=hidden name=id value=<%=id%>>
      <td align="center" valign="top"><table width="560" border="0" cellpadding="2" cellspacing="1" class="border">
          <tr> 
            <td height="25" class="topbg"> 
              <strong>回复留言 
                </strong></td>
          </tr>
          <tr> 
            <td> 
                <table width="100%" border="0" cellpadding="0" cellspacing="1" >
                  <tr class=tdbg> 
                    <td height="25" colspan="2" class="Title"> 
                      
                    &nbsp;&nbsp;你正准备回复<b><%=rs("UserName")%></b>的留言，他的留言是：</td>
                  </tr>
                </table>
              </td>
          </tr>
        </table>
        <br> 
        <table width="560" border="0" cellpadding="2" cellspacing="1" class="border">
        <tr class=tdbg> 
            <td height="25" width="20%"> 
              <strong>标题</strong></td>
              <td>
            
                <input name="title" size="30" value="<%=rs("title")%>">
              </td>
          </tr>
          <tr class=tdbg> 
            <td height="25" width="20%"> 
              <strong>留言内容</strong></td>
              <td>
               
                <textarea name="content" cols="70" rows="10"><%=rs("content")%></textarea>
              </td>
          </tr>
          <tr class=tdbg> 
            <td height="25" width="20%"> 
              <strong>回复内容</strong></td>
               <td>
                <textarea name="ReFeedback" cols="70" rows="10"><%=rs("ReFeedback")%></textarea>
              </td>
          </tr>
          <tr class=tdbg> 
            <td height="25" width="20%"> 
              <strong>是否公开</strong></td>
               <td>
                <input type=radio name=publish value="1" <%if rs("publish")=1 then response.write "checked" end if%>>是
                <input type=radio name=publish value="0" <%if rs("publish")=0 then response.write "checked" end if%>>否
              </td>
          </tr>
          <tr> 
            <td class=tdbg colspan=2 align=center>
是否支持Html 
                <input type="checkbox" name="html" value="on">
                <input type="submit" value="确定">
                <input type="reset" value="从来">
              </td>
          </tr>
      </table></td>
    </form>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
