re.asp

来自「一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊」· ASP 代码 · 共 18 行

<!--#include file="conn.asp"-->
<% reply=Replace(Request.Form("reply"),"'","''")
if reply="" then
response.Write"<script language=javascript>alert('对不起，你的回复不可以为空！');history.back(-1);</script>"
 response.End()
 else
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
sql="select*from book where id="&request.querystring("id")
On error resume next 
rs.open sql,conn,1,3
rs("reply")=""&reply&""
rs.update
rs.close
end if
response.Redirect "index.asp"
%>