如何实现全文检索？

技术交流
2024-10-01 10:23:01

<%@ LANGUAGE="VBscript" %>
　　
　　
　　
　　
　　</SPAN><SPAN style="FONT-FAMILY: 宋体; mso-bidi-font-size: 9.0pt; mso-ascii-font-family: ''; mso-hansi-font-family: ''">星河影动之全文检索</SPAN><SPAN lang=EN-US style="FONT-FAMILY: ''; mso-bidi-font-size: 9.0pt">
　　

<%
　　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)

' 逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较.
　　if to_find then
　　url="chunfeng/" & fn
　　Response.Write "
" & tit
　　end if
　　rcst1.movenext
　　result=result or to_find
　　loop
　　Response.Write "