如何实现全文检索？

网络编程 2025/4/27 佚名

3 2 1

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

|如何|何实|实现|现全|全文|文检|检索|索？|？|

标签：

|如何|何实|实现|现全|全文|文检|检索|索？|？|

免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

评论“如何实现全文检索？”

如何实现全文检索？

暂无“如何实现全文检索？”评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新动态

2025年04月27日

如何实现全文检索？

|如何|何实|实现|现全|全文|文检|检索|索？|？|

如何用FileSystemObject组件来做一个站内搜索？

如何分页显示数据库查询结果？

评论“如何实现全文检索？”

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新动态

友情链接