"& LingFengNet_MS_web_name &"--"& LingFengNet_MS_sys_name &"--"& LingFengNet_MS_language_title_search &" - powered by LFMessS

<%@ language="vbscript" codepage="936" %> <% keyword = Trim(Request("keyword")) fenword = Trim(Request("fenword")) lylx = Trim(Request.Form("lylx")) todopass = Trim(Request("todopass")) fenword_bbs = Trim(Request.QueryString("fenword_bbs")) IF fenword_bbs <> "" and fenword = "" Then fenword = fenword_bbs End IF IF keyword = "" or fenword = "" Then Response.Write "
" Response.End End IF IF lylx = "0" or lylx = "" Then lylxSQL = "" Else lylxSQL = " and lylx='"&lylx&"'" End IF IF todopass = "todopass" Then keyword = Lcase(keyword) sql = "SELECT * FROM lfmessb WHERE enpass = '"& LFW_md5_32_pass(keyword) &"' ORDER BY addtime desc" Else IF Left(keyword, 7) = "lfmesss" Then keyword = Clng(Right(keyword, Len(keyword) - 7)) Else sql="SELECT * FROM lfmessb WHERE "& fenword &" like '%"& keyword &"%'"&lylxSQL Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 IF rs.eof and rs.bof Then keyword = DeCrypt(keyword) End IF rs.close Set rs = Nothing End IF IF Session("LingFengNet_MS_admin_flg") <> "3" and fenword = "ip" Then Response.Write "
" Response.End End IF IF Session("LingFengNet_MS_admin") = "ok" Then sql = "SELECT * FROM lfmessb WHERE "& fenword &" like '%"& keyword &"%' "&lylxSQL&" ORDER BY id desc" ElseIF fenword = "id" Then sql = "SELECT * FROM lfmessb WHERE id = "& keyword &" and (Auditing=2 or Auditing=5) and enpass='0' "&lylxSQL&"" ElseIF Session("LingFengNet_MS_admin") <> "ok" and LingFengNet_MS_ss = 0 and LingFengNet_MS_sousuo_lx = 0 Then sql = "SELECT * FROM lfmessb WHERE "& fenword &" = '"& keyword &"' and (Auditing=2 or Auditing=5) and enpass='0' "&lylxSQL&" ORDER BY addtime desc" ElseIF Session("LingFengNet_MS_admin") <> "ok" and LingFengNet_MS_sousuo_lx = 1 Then sql = "SELECT * FROM lfmessb WHERE "& fenword &" like '%"& keyword &"%' and (Auditing=2 or Auditing=5) and enpass='0' "&lylxSQL&" ORDER BY addtime desc" End IF End IF Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 total = rs.RecordCount page = Request("page") Response.Write "
"&_ ""&_ "" Call htmlmeta() Response.Write ""&_ ""&vbcrlf&_ ""&vbcrlf&_ ""&_ "
"&_ "
" Call htmlmain() Response.Write "
"&_ "
"&_ "
" rs.close conn.close Set rs = Nothing Set conn = Nothing Call htmlend() %>