用ASP做全文检索

80酷酷网    80kuku.com

  摘要:通过词句查找相关的全文是浏览器端常用的方法,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〉

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: