gbreply.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="cook.asp"-->
<!--#include file="info.asp"-->
<%id=cint(request.querystring("id"))
if request.form("submit")="提交" then
reply=trim(request.form("reply"))
id=request.form("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from gbook where id="&id
rs.open sql,conn,3,3
rs("reply")=reply
rs("hftime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<Script Language=Javascript>window.alert('留言提交成功！');location.href='gbook.asp';</Script>"
Response.End
end if

call htmltop()

if id<>"" then
 set rs = Server.CreateObject ("adodb.recordset")
 sql="select * from gbook where id="&id
 rs.open sql,conn,1,1
%>
<table width="700" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="TdStyle">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><br>
      <table width="600" border="0" cellpadding="5" cellspacing="1" bgcolor="#C0C0C0">
  <form name="form1" method="post" action="gbreply.asp">
      <tr align="center" bgcolor="#E3E3E3"> 
        <td height="28" colspan="2"><a href="gbook.asp"><B>留言管理</B></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="red"><B>回复留言</B></font></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="100" align="right">留言内容：</td>
        <td width="500"><textarea cols="60" rows="10" readonly><%=rs("content")%></textarea></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td align="right">回复内容：</td>
        <td><textarea name="reply" cols="60" rows="10"><%=rs("reply")%></textarea></td>
      </tr>
      <tr align="center" bgcolor="#E3E3E3"> 
            <td height="30" colspan="2"> 
              <input type="submit" name="submit" value="提交">
          　 
          <input type="reset" name="submit2" value="重置">
		  <input type="hidden" name="id" value="<%=id%>">
</td>
      </tr></form>
    </table><br></td>
  </tr>
</table>
  <%rs.close
  set rs=nothing
  conn.close
  set conn=nothing
end if%>
<%
call htmlend()
%>