'==================================================
'函數名：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" />
nbsp; 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 in
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%>個nbsp; font color="#FF0000">%=page%>/font>/%=pageCount%>頁
nbsp;%=n%>個/頁 轉到：
SELECT name="select" onchange=window.open(this.options[selectedIndex].value,'_self') >
%y=1
do while ypagecount+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>
