如何实现全文检索？(2)

如何实现全文检索？

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>