【www.gdgbn.com--全文检索】
如何用ASP实现网站中的全文检索?我们可以先建立一个包含文件名,文件标题的待检索文件的数据库,然后,用ADO方式来访问它,并建立记录集对象。具体代码和说明见下:
<%@ LANGUAGE="VBSCRIPT" %>
<%
mousepointer=13
Set Conn1 = Server.CreateObject("ADODB.Connection")
conn1.open "DSN=intels"
Set rcst1 = conn1.execute("SELECT * FROM pages_catalogue")
sch_str=request.form("text1")
doubbytes=len(sch_str)2
sch_str=left(sch_str,doubbytes)
" 匹配字串的长度.预处理Request取得的数据(用户输入的有用信息), 通过计算有效信息长度来截取所需的字串.我们也可以在输入字串后附加一标志字符(如#或chr(7))来处理.
Response.Write "
"
Dim result
result =false
Response.Write "
"
do while not rcst1.eof
tit=rcst1.fields("file_title")
fn=rcst1.fields("file_name")
file_name= Server.MapPath ("/") & "songchunfeng" & fn
to_find=text_match(file_name,sch_str)
" 逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较
……
Response.Write "
" & tit
end if
rcst1.movenext
result=result or to_find
loop
Response.Write "