<%@ language="vbscript" codepage="936" %> <%flg = "man_aud"%> <% gbookid = LingFengNet_MS_data_stream_new(Request("gbookid")) wherefrom = Request.Form("wherefrom") sh = LingFengNet_MS_data_stream_new(Request.Form("sh")) enpass = LingFengNet_MS_data_stream_new(Request.Form("enpass")) re = Left(Trim(Request.Form("reok")), LingFengNet_MS_maxword_re) content = Left(Trim(Request.Form("content")), LingFengNet_MS_maxword) content = nobr(content) re = nobr(re) yesword = LingFengNet_MS_data_stream_new(Request("yesword")) topok = LingFengNet_MS_data_stream_new(Request("topok")) filedelok = LingFengNet_MS_data_stream_new(Request("filedelok")) IF filedelok = "yes" Then filemulu = ",filemulu='0'" IF yesword <> "yes" Then silentlysql = ",silentlywords=0,enpass='0'" IF topok = "yes" Then topok = 0 Else topok = 1 End IF IF sh <> 4 Then Set rs = Server.Createobject("ADODB.Recordset") IF Session("LingFengNet_MS_admin_flg") = "3" Then sql = "UPDATE lfmessb SET Auditing="& sh &",re='0',content='"& content &"'"&silentlysql & filemulu&",topok="& topok &" WHERE id="& gbookid ElseIF Session("LingFengNet_MS_admin_flg")="2" Then sql = "UPDATE lfmessb SET Auditing="& sh &",re='0'"&silentlysql & filemulu&",topok="& topok &" WHERE id="& gbookid End IF Set rs = conn.Execute(sql) Set rs = Nothing logstr = gbookid & LingFengNet_MS_language_Warning_Auditingok_5 & sh Call logtodo(logstr, 0, "ok") Set conn = Nothing Response.Write "
" Else IF LingFengNet_MS_messconten = 0 Then re = EnCrypt(re) content = EnCrypt(content) readmin = EnCrypt(Session("LingFengNet_MS_admin_flg_login")) Else readmin = Session("LingFengNet_MS_admin_flg_login") End IF Set rs = Server.Createobject("ADODB.Recordset") IF Session("LingFengNet_MS_admin_flg") = "3" Then sql = "UPDATE lfmessb SET Auditing=2,re='"& re &"',content='"& content &"'"&silentlysql & filemulu&",readmin='"& readmin &"',retime='"& now() &"',topok="& topok &" WHERE id="& gbookid ElseIF Session("LingFengNet_MS_admin_flg") = "2" Then sql = "UPDATE lfmessb SET Auditing=2,re='"& re &"'"&silentlysql & filemulu&",readmin='"& readmin &"',retime='"& now() &"',topok="& topok &" WHERE id="& gbookid End IF Set rs = conn.Execute(sql) Set rs = Nothing logstr = gbookid & LingFengNet_MS_language_Warning_Auditingok_5 & sh Call logtodo(logstr, 0, "ok") Set conn = Nothing Response.Write "
" End IF %>