用ASP做全文检索

摘要：通过词句查找相关的全文是浏览器端常用的方法，ASP类似于CGI，也可以进行简单的文本方式全文检索
　　关键词：ASP检索Intranet网页ADO数据源
　　在Internet/Intranet上对某类信息做详细浏览和全文检索也是常碰到的情况。ASP是微软公司开发的用于制作动态Web页的一种服务器端
脚本型式（或曰编写环境）。它使用VBScript或JavaScript等简易的脚本语言，集成在HTML码中，在服务器端响应浏览器端请求而执行数据访
问和过程（或对象）调用并产生浏览器端执行的脚本语言。本文介绍用ASP编写全文检索代码的方法。
　　方法介绍：
　　确定被检索的文件。将它们保存在同一文件夹中。文件的类型可以是任何文本类型（包括.htm网页文件类型）
　　建立被检索文件的信息库。其中主要包含文件名，文件标题等。
　　用ADO方式访问数据库。建立记录集对象。
　　逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较。
　　将符合条件的文件标题输出到客户端Web页，并加入指向该文件的超链，以供用户选择浏览。
　　技术要点：
　　数据源。要在创建脚本之前,利用Windows95控制面板中的ODBC指定要访问的数据库及其驱动程序，以数据源名（DSN）标识之。
　　匹配字串的长度。由于浏览器端的数据经过编码传到服务器端，ASP通过其内建对象Request取得的数据也并非完全是用户输入的有用信息
，所以要加以处理。可以在输入字串后附加一标志字符（如#或chr(7)）。本文则采取另一种方法，即计算有效信息的长度。从而截取所需的
字串。
　　创建脚本的文件系统对象Scripting.FileSystemObject，从而打开文本流以读入。
　　特点：
　　直接对.htm文件进行全文检索，省却许多转换过程。.htm文件又用于网页的显示，一举两得。
　　应用ASP，简单明了，易于实现。
　　本例ASP代码：
　　〈%@LANGUAGE="VBSCRIPT"%〉
　　〈html〉
　　〈head〉
　　〈metaNAME="GENERATOR"Content="MicrosoftFrontPage3.0"〉
　　〈metaHTTP-EQUIV="Content-Type"content="text/html;charset=gb_2312-80"〉
　　〈title〉DocumentTitle〈/title〉
　　〈metaname="MicrosoftBorder"content="tl,default"〉〈/head〉
　　〈bodyBACKGROUND="/ie/images/watermrk.gif"BGPROPERTIES="FIXED"BGCOLOR="#00FFFF"〉
　　〈%
　　mousepointer=13
　　SetConn1=Server.CreateObject("ADODB.Connection")
　　conn1.open"DSN=cznj"
　　Setrcst1=conn1.execute("SELECT*FROMpages_catalogue")
　　sch_str=request.form("text1")
　　doubbytes=len(sch_str)\2
　　sch_str=left(sch_str,doubbytes)
　　Response.Write"〈strong〉〈CENTER〉〈H2〉查找结果〈/H2〉〈HR〉〈Br〉〈/strong〉"
　　Dimresult
　　result=false
　　Response.Write"〈UL〉"
　　dowhilenotrcst1.eof
　　tit=rcst1.fields("file_title")
　　fn=rcst1.fields("file_name")
　　file_name=Server.MapPath("/")&"\njweb\private\"&fn
　　to_find=text_match(file_name,sch_str)
　　ifto_findthen
　　url="private/"&fn
　　Response.Write"〈LEFT〉〈LI〉〈H4〉〈AHREF="&url&"〉"&tit
　　endif
　　rcst1.movenext
　　result=resultorto_find
　　loop
　　Response.Write"〈/UL〉"
　　ifnotresultthen
　　Response.Write"〈H3〉〈I〉未找到！〈/I〉〈/H3〉"
　　endif
　　mousepointer=0
　　%〉
　　〈scriptRUNAT="Server"LANGUAGE="VBScript"〉
　　functiontext_match(filename,search_string)
　　dimretstring
　　dimfind_pos
　　Dimfso,a
　　dimdone
　　text_match=false
　　Setfso=Server.CreateObject("Scripting.FileSystemObject")
　　Seta=fso.OpenTextFile(filename,1,FALSE)"ForReading--〉1
　　done=a.AtEndOfStreamortext_match
　　DoWhilenotdone
　　retstring=a.ReadLine
　　find_pos=instr(retstring,search_string)
　　iffind_pos〉0thentext_match=true
　　done=a.AtEndOfStreamortext_match　Loop
　　a.Close
　　endfunction
　　〈/script〉
　　〈/body〉
　　〈/html〉