多字段模糊搜索的函数


前段时间写了一个多字段模糊搜索的函数(类似baidui)。函数代码如下
'==================================================
'函数名:keyword_sousuo
'作 用:生成sql查询条件
'参 数:table_field ------ 表的字段名(之间用逗号分开)
' keyword ------ 搜索关键词(之间用空格分开)
'返 回:sql查询条件
'==================================================
function keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j

table_fields=split(trim(table_field),",")
keywords=split(trim(keyword),",")

if table_field<>"" then
str01="("&table_fields(0)&" like '%"&keyword&"%'"
for j=0 to ubound(table_fields)
str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'"
next
str01=str01&")"
else
response.Write("<script>alert('参数错误(不能为空)!')</script>")
response.End()
end if

'全角--》半角 空格
'keyword=replace(keyword," "," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
keywords=split(keyword," ")
if ubound(keywords)>0 then
for i=0 to ubound(keywords)
str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'"
for j=1 to ubound(table_fields)
str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'"
next
str02=str02&")"
next
str02="("&replace(str02,")(",")and(")&")"
keyword_sousuo="(" & str01 & "or" & str02 & ")"
else
keyword_sousuo=str01
end if
end function
'==================================================
'函数名:keyword_tag
'作 用:将字符串里的关键词标记为红色
'参 数:str ------ 字符串
' keyword ------ 标记关键词(之间用空格分开)
'返 回:字符串(html格式)
'==================================================
function keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'全角--》半角 空格
'keyword=replace(keyword," "," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>")
keywords=split(keyword," ")
if ubound(keywords)>0 then
str02=str
for i=0 to ubound(keywords)
str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>")
next
keyword_tag=str02
else
keyword_tag=str01
end if
end function
以下是一个例子 http://www.zhouhaihe.com/blog/uploads/200604/recordread.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,connstr,database
connstr="DBQ="+server.mappath("record.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.open connstr

dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where
n=50
page=Request("page")
keyword=trim(request("keyword"))
sql_where=keyword_sousuo("title,cz,name,time",keyword)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from record where "&sql_where&" order by id desc",conn,1,2
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/n
pageCount=int(pageCount)
if (RecordCount mod n)>0 then
PageCount=PageCount +1
end if
%>
<style type="text/css">
<!--
.STYLE3 {color: #666666}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form id="form1" name="form1" method="post" action="?"><tr><td align="center"><input name="keyword" type="text" id="keyword" value="<%=keyword%>" size="30" />
<input type="submit" name="Submit" value="搜索" />
<span class="STYLE3">(关键词之间用空格分开) </span></td>

</tr></form>
<tr>
<td height="5"></td>
</table>

<table width="600" border="1" align="center" cellpadding="4">
<tr align="center">
<td width="131">标题</td>
<td width="131">动作</td>
<td width="131">用户名</td>
<td width="132">时间</td>
</tr>
<%pos=0
do while pos<(page-1)*n
pos=pos+1
rs.moveNext
loop
i=0
while not rs.eof and i<n
i=i+1%>
<tr align="center">
<td><%=keyword_tag(rs("title"),keyword)%></td>
<td><%=keyword_tag(rs("cz"),keyword)%></td>
<td><%=keyword_tag(rs("name"),keyword)%></td>
<td><%=keyword_tag(rs("time"),keyword)%></td>
</tr>

<%rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing

'==================================================
'函数名:keyword_sousuo
'作 用:生成sql查询条件
'参 数:table_field ------ 表的字段名(之间用逗号分开)
' keyword ------ 搜索关键词(之间用空格分开)
'返 回:sql查询条件
'==================================================
function keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j

table_fields=split(trim(table_field),",")
keywords=split(trim(keyword),",")

if table_field<>"" then
str01="("&table_fields(0)&" like '%"&keyword&"%'"
for j=0 to ubound(table_fields)
str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'"
next
str01=str01&")"
else
response.Write("<script>alert('参数错误(不能为空)!')</script>")
response.End()
end if

'全角--》半角 空格
keyword=replace(keyword," "," ")
' while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
keywords=split(keyword," ")
if ubound(keywords)>0 then
for i=0 to ubound(keywords)
str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'"
for j=1 to ubound(table_fields)
str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'"
next
str02=str02&")"
next
str02="("&replace(str02,")(",")and(")&")"
keyword_sousuo="(" & str01 & "or" & str02 & ")"
else
keyword_sousuo=str01
end if
end function
'==================================================
'函数名:keyword_tag
'作 用:将字符串里的关键词标记为红色
'参 数:str ------ 字符串
' keyword ------ 标记关键词(之间用空格分开)
'返 回:字符串(html格式)
'==================================================
function keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'全角--》半角 空格
keyword=replace(keyword," "," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>")
keywords=split(keyword," ")
if ubound(keywords)>0 then
str02=str
for i=0 to ubound(keywords)
str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>")
next
keyword_tag=str02
else
keyword_tag=str01
end if
end function
dim y
%> <tr align="center">
<td colspan="4"> <%=RecordCount%>个 <font color="#FF0000"><%=page%></font>/<%=pageCount%>页
<%=n%>个/页 转到:
<SELECT name="select" onchange=window.open(this.options[selectedIndex].value,'_self') >
<%y=1
do while y<pagecount+1%>
<OPTION value=?page=<%=y%>&keyword=<%=server.URLEncode(keyword)%> <%if cstr(page)=cstr(y) then response.Write(" selected") end if%> >第<%=y%>页</OPTION>
<%y=y+1
loop%>
</SELECT></td>
</tr>
</table>



相关阅读:
JS 日历控件(蓝色)
网页变灰配合全国哀悼日的css代码 20100421
Linux下创建自解压tar文件
JavaScript 实现 Konami Code
js 返回时间戳所对应的具体时间
二十行语句实现从Excel到mysql的转化
blockquote标记应用注意
实例解析 用Linux操作系统构建的路由器
编写线程安全的JSP应用程序
div结合css布局bbs首页(div+css布局入门)
Fedora 4升级到Fedora 9
Linux操作系统上去掉文件属性的命令介绍
ajax 异步获取数据实现代码 (js创建ajax对象)
新手看招:Linux操作系统里查看所有用户
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 海边的时时念—— 仰观宇宙之大后一句 读《围城》有感3篇 人生识字胡涂始 2016年“积极向上喜迎新年”活动方案 区党风建设自查报告 到你心里去 早读后感200字 医生岗前培训心得体会范文 “专家领航 助推教师专业成长”校本研修活动主持词 童年水墨画200字 父亲,谢谢您550字 荷花二(蒲伋为荷文化写诗) 《我们家的低碳星期天》 过分作文300字 妇女节短信:妇女节给妈妈的祝福短信 县医院廉政建设工作汇报材料 以科学发展观为指导全面建设现代后勤 2016三严三实和忠诚干净担当专题教育心得 秋天的思念外一首 亲情的避风港作文700字 传说的好人 小鸡上学450字 小学六年级作文600字:难忘的早晨 匹小曹变人记作文600字 远去了,天空的云、 *         写给所有受过伤的女子。 小狗配眼镜 文字的味道 免费《醉翁亭记》同步练习8 珍爱生命,预防艾滋病作文范文精选 初中语文第四册第三单元(附答案) 忘记(转载)作文100字 别责备生活的不满 猴年新年快乐祝福语 2012年应届毕业生转正工作总结 无悔的选择 无私的奉献——大学生村官村委会副主任事迹材料 那个尘土飞扬的下午,有个男孩在作弊作文550字 简与繁之美 夕死可矣的上一句 小学记叙文1700字:刺猬的故事 年终公司工作总结范文 企业登记制度如何适应行政许可法之我见 2011手术室护士工作总结 国旗下演讲稿:珍惜今天 我又染发啦 用汗水浇灌成长 虫虫与石器时代作文400字 机关效能建设自查报告与整改措施 我与书的故事700字

Copyright © 2016 phpStudy |