'========================================================================================
' 文 件 名: search.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
'========================================================================================
-->
keyword = trim(Request("keyword"))
fenword = trim(Request("fenword"))
if keyword = "" or fenword = "" then
Response.Write "alert('"& lingfengnet_ms_language_Warning_search_1 &"');window.close();"
response.end
end if
keyword=DeCrypt(keyword)
if session("lingfengnet_ms_admin_flg")"3" and fenword="ip" then
Response.Write "alert('"& lingfengnet_ms_language_Warning_search_2 &"');window.close();"
response.end
end if
if session("lingfengnet_ms_admin")="ok" then
sql="select * from lfmessb where "& fenword &" like '%"& keyword &"%' order by id desc"
elseif session("lingfengnet_ms_admin")"ok" and lingfengnet_ms_ss=0 then
sql="select * from lfmessb where "& fenword &" = '"& keyword &"' and Auditing=2 order by addtime desc"
elseif session("lingfengnet_ms_admin")"ok" and lingfengnet_ms_ss=1 then
sql="select * from lfmessb where "& fenword &" like '%"& keyword &"%' and Auditing=2 order by addtime desc"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
total = rs.RecordCount
page=Request("page")
response.write ""&_
""&_
""& lingfengnet_ms_web_name &"--"& lingfengnet_ms_sys_name &"--"& lingfengnet_ms_language_title_search &" - powered by LFMessS"
call htmlmeta()
response.write ""&_
""&_
""&_
""
call htmlmain()
response.write ""&_
""&_
""
rs.close
conn.close
set rs=nothing
set conn=nothing
call htmlend()
%>
