save_replyinfo.asp

来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 43 行

<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if

if session("flag")<>1 then 
response.Redirect("../../login/login1.asp")
response.end
end if

if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("../../login/chklogin.asp?login=4")
end if
if Chkrequest(request("infoid")) then
infoid=request("infoid")
else
Response.Redirect ("../../login/chklogin.asp?login=4")
end if
recontent=replace_text(request.form("recontent"))
set rs=server.createobject("adodb.recordset")
sql="select * from book where bookid="&id&" and info_id="&infoid&""
rs.open sql,conn,1,3
rs("recontent")=recontent
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('回复留言成功！');"
response.write"javascript:window.close();</script>"
%>