如何进行文本搜索

<
头=搜索
要查找的字符串值的要求（要查找的字符串）
数= 0

函数的UnMapPath（路径）
unmappath =取代（MID（路径，len（server.mappath（'（' / ））+ 1），
端功能

功能searchfile（F，S，标题）
套= fs.opentextfile（F）
内容为佛。readall'read所有文本内容。
接近佛。
searchfile =仪器（1，内容，vbtextcompare）> 0从第一个字符检查是否有在内容
如果searchfile then'is可用，文件标题应存储在变量。
pos1 =仪器（1、内容、
pos2 =仪器（1、内容、
标题
如果pos1 > 0 > 0 then'take pos2在标题标签中的文字。
标题=中（内容，pos1 + 7，pos2 - pos1 - 7）
最后如果
最后如果
端功能

功能filelink（F，标题）
vpath = unmappath（f.path）得到的路径。
如果标题= 然后标题= f.name'to建立链接。
filelink = 称号
filelink = ，filelink
端功能

Sub SearchFolder（FD，S）
发现= false
对于文件中的每个f文件
POS = instrrev（f.path，，）
如果POS > 0然后
Ext =中（f.path，POS机+ 1）
其他的

最后如果
如果LCase（EXT）=htmthen'displays带有扩展名为htm文件。
如果SearchFile（F，S，然后标题）
响应。写filelink（F，标题）
计数=计数+ 1
响应：编写CSTR（计数）
最后如果
最后如果
下一个

每个fd.subfolders SFD
searchfolder SFD，S
下一个
端子
%>

内容=文本/ HTML；字符集= gb_2312-80>

明星河运动无与伦比的文本搜索

请输入您要搜索的内容：<输入类型>文本
尺寸=20name=要查找的字符串价值=> <输入
类型

<
设置FS = server.createobject（脚本。FileSystemObject ）
设置FD = fs.getfolder（server.mappath（ / ））设置的路径开始搜索。

如果要查找的字符串>然后
响应。写搜索要查找的字符串结果如下：
searchfolder FD，要查找的字符串
最后如果
%>

{ 1 }