您的位置：首页 > 其它

如何实现全文检索

2012-12-06 09:36 281 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航