当前位置： 移动技术网 > IT编程>开发语言>其他编程 > 如何实现全文检索？

如何实现全文检索？

2017年12月01日  | 移动技术网IT编程  | 我要评论

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

[1]

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网