发新话题
打印

如何实现全文检索

如何实现全文检索

如何用ASP实现网站中的全文检索?

我们可以先建立一个包含文件名,文件标题的待检索文件的数据库,然后,用ADO方式来访问它,并建立记录集对象。具体代码和说明见下:
  <%@ 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 "
"
  do while not rcst1.eof
  tit=rcst1.fields("file_title")
  fn=rcst1.fields("file_name")
  file_name= Server.MapPath ("/")

TOP

发新话题