<%@language=vbscript codepage=936 %> <% if session("lingfengnet_ms_admin")="ok" and Request("topid")="" then sql = "Select * FROM lfmessb Order By topok,addtime Desc" elseif Request("topid")<>"" then sql = "Select * FROM lfmessb where id="&Request("topid") else sql = "Select * FROM lfmessb where Auditing=2 or Auditing=5 Order By topok,addtime Desc" end if Set rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,1,1 total = rs.RecordCount page=Request("page") if lingfengnet_ms_noaud=0 or session("lingfengnet_ms_admin")="ok" then Set rs1 = Server.CreateObject("ADODB.Recordset") sql1 = "Select * FROM lfmessb where Auditing=0 Order By addtime Desc" Rs1.open sql1,conn,1,1 totalno = rs1.RecordCount rs1.close set rs1=nothing end if response.write ""&_ ""&_ ""& lingfengnet_ms_web_name &" -- "& lingfengnet_ms_sys_name &" - powered by LFMessS" call htmlmeta() if lingfengnet_ms_refreshtime<>0 then response.write "" end if response.write ""&_ ""&_ ""&_ ""&_ ""&_ "
" call htmlmain() response.write "
"&_ ""&_ "" rs.close conn.close set rs=nothing set conn=nothing call htmlend() if lingfengnet_ms_qq_ok=0 then%> <%end if%>