请为这个asp全文检索程序增加二次检索功能

<%
Head = "htm文件全文搜索"
SearchString = Request("SearchString")
count=0

'把当前目录的实际路径转换为虚拟路径
Function UnMapPath( Path )
UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")
End Function

Function SearchFile( f, s, title )
Set fo = fs.OpenTextFile(f)
content = fo.ReadAll'读全部文本到content
fo.Close
SearchFile = InStr(1, content, S, vbTextCompare) > 0 '从第一个字符开始检查content里面是否有S
If SearchFile Then'如果有,则提出文件TITLE存入变量
pos1 = InStr(1, content, "<TITLE>", vbTextCompare)
pos2 = InStr(1, content, "</TITLE>", vbTextCompare)
title = ""
If pos1 > 0 And pos2 > 0 Then'取TITLE标记中间的字符
title = Mid( content, pos1 + 7, pos2 - pos1 - 7 )
End If
End If
End Function

Function FileLink( f, title )
vPath = UnMapPath( f.Path )&#

请为这个asp全文检索程序增加二次检索功能 什么是全文检索 全文检索怎末做〉？？ java，检索全文 asp 时间检索问题 asp自动检索 请高手才看下这个asp程序里面的错误 请高手才看下这个asp程序里面的错误!!! 这个ASP程序错在哪里啊?请帮忙啊. 全文本检索怎么解释?