您现在的位置是：网站首页> 编程资料编程资料
如何实现全文检索？_编程10000问_
2023-05-25
103人已围观
简介 如何实现全文检索？_编程10000问_
<%@ 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 ("/") & "\song\chunfeng\" & fn
to_find=text_match(file_name,sch_str)
' 逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较.
if to_find then
url="chunfeng/" & fn
Response.Write "
" & tit
end if
rcst1.movenext
result=result or to_find
提示：
本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！
