replysave.asp

来自「睿网留言版 2004 v1.0」· ASP 代码 · 共 41 行

<!--#include file="conn.inc"-->
<%
if session("nimadebuyaokan")<>"tingbaxiaozi" then
   for i=1 to 10
   response.write "<br>"
   next
   response.write "<center>"
   response.write "你不是站长，请不要乱跑！" 
   response.write "好关闭窗口啦！"
   response.end
end if
%>


<%
id=request("id")
if request("reply")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&id
rs.open sql,conn,1,3
rs("reply")=request("reply")
rs.update
rs.close
set rs=nothing
response.redirect "givereply.asp?id="&id
else
for i=0 to 3
response.write "<br>"
next
response.write "<center>回复不能为空<br>"
 response.write("<a href=javascript:history.go(-1)>返回更改</a></center>")
end if
%><head>
<link rel="stylesheet" type="text/css" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>回复</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
</head>