savereply.asp

来自「计算器源码」· ASP 代码 · 共 31 行

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<% dim rs7,sql7

set rs7=server.createobject("adodb.recordset")
    sql7="select reply from message where  id=" & request("id")
    rs7.open sql7,conn,3,2
dim reply
    reply=trim(request("reply"))
	rs7("reply")=reply
	rs7.update
	rs7.close
set rs7=nothing

%>
<div align="center">
  <p><strong><font size="2">回复留言</font></strong></p>
  <form name="form" method="post" action="reply.asp">
    <textarea name="reply" cols="50" rows="5" ></textarea>
	<br>
    <input type="submit" name="Submit" value="提交">
    <input type="submit" name="Submit2" value="重置">
  </form>
  <p><strong><font size="2"></font></strong></p>
</div>
<!--#include file="bottom.asp"-->


<% 
response.redirect "index.asp"
%>