gbookhf.asp 盐城分类信息网asp源码程序 - ASP源码程序

www.gusucode.com > 盐城分类信息网asp源码程序 > admin/gbookhf.asp
    <!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>参数错误！"
response.end
end if
dim gbook2
gbook2=trim(request("memo"))
set rs=server.createobject("adodb.recordset")
sql = "select gbook2,hfsj,hf from gbook 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"><%if request("chk")="2" then%><%=rs("gbook2")%><%end if%></textarea></td>
    </tr>
    <tr>
      <td width="180" height="6">
      <p align="center">
      <input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td>
    </tr>
    </form>
  </table>
  </center>
</div>
<%
sub savehf()
rs("gbook2")=gbook2
rs("hfsj")=now()
rs("hf")=1
rs.update
rs.close
set rs=nothing
response.write "<li>回复成功！"
cl
response.end
end sub
closedb
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>