文本搜索

<% Head = 搜索 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’读全部文本到conte