📄 search.asp

📁 图书管理系统是用VC++做的有兴趣的可以来共同研究研究
💻 ASP
字号:
<!-- 
'========================================================================================
' 文 件 名: 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
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/contencrypt.asp" -->
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/purview_default.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/checkru.asp" -->
<%
keyword = trim(Request("keyword"))
fenword = trim(Request("fenword"))

if keyword = "" or fenword = "" then
	Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_search_1 &"');window.close();</script>"
	response.end
end if

keyword=DeCrypt(keyword)

if session("lingfengnet_ms_admin_flg")<>"3" and fenword="ip" then
	Response.Write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_search_2 &"');window.close();</script>"
	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 "<html>"&_
"<head>"&_
"<title>"& lingfengnet_ms_web_name &"--"& lingfengnet_ms_sys_name &"--"&  lingfengnet_ms_language_title_search &"   - powered by LFMessS</title>"
call htmlmeta() 
response.write "<link rel=stylesheet href=style/css/"& lingfengnet_ms_web_css &".css type=text/css >"&_
"</head>"&_
"<body>"&_
"<div align=center>"
call htmlmain() 
response.write "</div>"&_
"</body>"&_
"</html>"
rs.close
conn.close
set rs=nothing
set conn=nothing
call htmlend()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -