save_revert.asp

来自「一个不错的个人商务网站的源码」· ASP 代码 · 共 29 行

<%dim nowplace
nowplace="guestbook"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_lib.asp"-->
<%
id=my_request("id",1)
revert_content=my_request("revert_content",0)
set rs=server.CreateObject("adodb.recordset")
sql="select * from revert"
rs.open sql,conn,1,3
rs.addnew
rs("lid")=id
rs("revert_man")="管理员"
rs("content")=revert_content
rs("addtime")=now()
rs.update
rs.close
set rs=nothing

sqls="update message_yqj set ishf=1 where id="&id
conn.execute (sqls)
conn.close
set conn=nothing
response.redirect "revert.asp?id="&id
%>