当前位置：首页 > 资讯 > 技术文档

如何实现全文检索？

时间：2020-02-04 11:49 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何实现全文检索？

<%@ LANGUAGE="VBscript" %> 　　<html> 　　<head> 　　<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> 　　<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80"> 　　<title>星河影动之全文检索</title> 　　<meta name="Microsoft Border" content="tl, default">

</head> 　 <body BGPROPERTIES="FIXED" BGCOLOR="#00FFFF">

<% 　　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 "<CENTER>检索结果<HR><Br>" 　　Dim result 　　result =false 　　Response.Write "<UL>" 　　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 "<A HREF=" & url & "> " & tit 　　end if 　　rcst1.movenext 　　result=result or to_find 　　loop 　　Response.Write "</UL>"

' 把符合条件的文件标题以超级链接形式输出到客户端. 　　if not result then 　　Response.Write "对不起,没有找到!" 　　end if 　　mousepointer=0 　　%> 　　<script RUNAT="Server" LANGUAGE="VBScript"> 　　function text_match(filename,search_string) 　　dim retstring 　　dim find_pos 　　Dim fso, a 　　dim done 　　text_match=false 　　Set fso = Server .CreateObject("Scripting.FileSystemObject ")

' 创建脚本的文件系统,打开文本流以读入. 　　Set a = fso.OpenTextFile(filename, 1, FALSE)

done=a.AtEndOfStream or text_match 　　Do While not done 　　retstring = a.ReadLine 　　find_pos=instr(retstring,search_string) 　　if find_pos>0 then text_match=true 　　done=a.AtEndOfStream or text_match 　　Loop 　　a.Close 　　end function 　　</script> 　　</body></html>

[b][1][/b]

全部评论(0)

上一篇：如何遍历目录及目录下的文件？
下一篇：怎样获知数据库的连接属性？

资讯排行榜
更多>>