如何实现全文检索?
如何实现全文检索?
发布时间:2016-12-29 来源:查字典编辑
摘要:星河影动之全文检索0thentext_match=truedone=a.AtEndOfStreamortext_matchLoopa.Clo...

<%@ 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 ("/") & "songchunfeng" & 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]

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新编程10000问学习
热门编程10000问学习
编程开发子分类