<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file="../inc/function.asp"-->
<%
dim rs,sql,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>参数错误！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "select gbook1 from feedback where id="&cstr(id)
rs.open sql,conn,1,3
if request("chk")="1" then
savehf
end if
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<title>修改留言</title>
<body topmargin="0" leftmargin="0">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="180" height="35">
    <form action="?id=<%=id%>&chk=1" method="POST">
    <tr>
      <td width="181" height="10">
      <p align="center">修改内容</td>
    </tr>
    <tr>
      <td width="181" height="20">
      <p align="center">
                    <textarea rows="7" name="memo" cols="22"><%=HtmlEncodex(rs("gbook1"))%></textarea></td>
    </tr>
    <tr>
      <td width="181" height="6">
      <p align="center">
      <input type="submit" value="提交" name="B1"></td>
    </tr>
    </form>
  </table>
  </center>
</div>
<%
sub savehf()
dim gbook1
gbook1=HtmlEncodes(trim(request("memo")))
rs("gbook1")=gbook1
rs.update
rs.close
set rs=nothing
response.write "修改成功！"
cl
response.end
end sub
closedb
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>