📄 auditingok.asp
字号:
<!--
'========================================================================================
' 文 件 名: auditingok.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 留言审核文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/contencrypt.asp" -->
<%flg="man"%>
<!-- #include file="inc/purview.asp" -->
<!-- #include file="inc/checkru.asp" -->
<% gbookid=request("gbookid")
wherefrom=Request.Form("wherefrom")
sh=Request.Form("sh")
re=server.htmlencode(left(trim(request.form("re")),254))
if sh<>4 then
set rs=server.createobject("adodb.recordset")
sql="update lfmessb set Auditing="& sh &",re='0' where id="& gbookid
set rs=conn.Execute(sql)
set rs=nothing
set conn=nothing
Response.Write "<html><head><meta http-equiv='refresh' content='0;url="&wherefrom&"'><META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"></head><body><script language=javascript>alert('"&lingfengnet_ms_language_Warning_Auditingok_1 &""&gbookid&""& lingfengnet_ms_language_Warning_Auditingok_2 &"');</script></body></html>"
else
if lingfengnet_ms_messconten=0 then
re=EnCrypt(re)
else
re=re
end if
set rs=server.createobject("adodb.recordset")
sql="update lfmessb set Auditing=2,re='"& re &"' where id="& gbookid
set rs=conn.Execute(sql)
set rs=nothing
set conn=nothing
Response.Write "<html><head><meta http-equiv='refresh' content='0;url="&wherefrom&"'><META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"></head><body><script language=javascript>alert('"& lingfengnet_ms_language_Warning_Auditingok_3 &""&gbookid&""& lingfengnet_ms_language_Warning_Auditingok_4 &"');</script></body></html>"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -