硬盘文件搜索代码（ASP类）


            <%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;936&quot;%>

<%

dim st

st=timer()

'*************************************************************

'*************搜索硬盘文件的类SearchFile *************

'*************调用方法: ************* 

'*************Set newsearch=new SearchFile '声明 ************* 

'*************newsearch.Folder=&quot;F:+E:&quot;'传入搜索源************* 

'*************newsearch.keyword=&quot;汇编&quot; '关键词************* 

'*************newsearch.Search '开始搜索************* 

'*************Set newsearch=Nothing '结束*************

'*************Copyright(c)醉雨梧桐小站 ************* 

'*************http://btyz.51web.cn/ ************* 

'*************************************************************

Class SearchFile

 dim Folders '传入绝对路径,多路径使用+号连接,不能有空格

 dim keyword '传入关键词

 dim objFso '定义全局变量

 dim Counter '定义全局变量，搜索结果的数目

'*****************初始化**************************************

 Private Sub Class_Initialize

 Set objFso=Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)

 Counter=0 '初始化计数器

 End Sub

'************************************************************

 Private Sub Class_Terminate

 Set objFso=Nothing

 End Sub

'**************公有成员,调用的方法***************************

 Function Search

 Folders=split(Folders,&quot;+&quot;) '转化为数组

 keyword=trim(keyword) '去掉前后空格

 if keyword=&quot;&quot; then

 Response.Write(&quot;<font color='red'>关键字不能为空</font><br/>&quot;)

 exit Function

 end if

 '判断是否包含非法字符

 flag=instr(keyword,&quot;\&quot;) or instr(keyword,&quot;/&quot;)

 flag=flag or instr(keyword,&quot;:&quot;)

 flag=flag or instr(keyword,&quot;|&quot;)

 flag=flag or instr(keyword,&quot;&&quot;)

 if flag then '关键字中不能包含\/:|&

 Response.Write(&quot;<font color='red'>关键字不能包含/\:|&</font><br/>&quot;)

 Exit Function '如果包含有这个则退出

 end if

 '多路径搜索

 dim i

 for i=0 to ubound(Folders)

 Call GetAllFile(Folders(i)) '调用循环递归函数

 next

 Response.Write(&quot;共搜索到<font color='red'>&quot;&Counter&&quot;</font>个结果&quot;)

 End Function

'***************历遍文件和文件夹******************************

 Private Function GetAllFile(Folder)

 dim objFd,objFs,objFf

 Set objFd=objFso.GetFolder(Folder)

 Set objFs=objFd.SubFolders

 Set objFf=objFd.Files

 '历遍子文件夹

 dim strFdName '声明子文件夹名

 '*********历遍子文件夹******

 on error resume next

 For Each OneDir In objFs

 strFdName=OneDir.Name

 '系统文件夹不在历遍之列

 If strFdName<>&quot;Config.Msi&quot; EQV strFdName<>&quot;RECYCLED&quot; EQV strFdName<>&quot;RECYCLER&quot; EQV strFdName<>&quot;System Volume Information&quot; Then 

 SFN=Folder&&quot;\&quot;&strFdName '绝对路径

 Call GetAllFile(SFN) '调用递归

 End If

 Next

 dim strFlName

 '**********历遍文件********

 For Each OneFile In objFf

 strFlName=OneFile.Name

 'desktop.ini和folder.htt不在列取范围

 If strFlName<>&quot;desktop.ini&quot; EQV strFlName<>&quot;folder.htt&quot; Then

 FN=Folder&&quot;\&quot;&strFlName

 Counter=Counter+ColorOn(FN)

 End If

 Next

 '***************************

 '关闭各对象实例

 Set objFd=Nothing

 Set objFs=Nothing

 Set objFf=Nothing

 End Function

'*********************生成匹配模式***********************************

 Private Function CreatePattern(keyword) 

 CreatePattern=keyword

 CreatePattern=Replace(CreatePattern,&quot;.&quot;,&quot;\.&quot;)

 CreatePattern=Replace(CreatePattern,&quot;+&quot;,&quot;\+&quot;)

 CreatePattern=Replace(CreatePattern,&quot;(&quot;,&quot;\(&quot;)

 CreatePattern=Replace(CreatePattern,&quot;)&quot;,&quot;\)&quot;)

 CreatePattern=Replace(CreatePattern,&quot;[&quot;,&quot;\[&quot;)

 CreatePattern=Replace(CreatePattern,&quot;]&quot;,&quot;\]&quot;)

 CreatePattern=Replace(CreatePattern,&quot;{&quot;,&quot;\{&quot;)

 CreatePattern=Replace(CreatePattern,&quot;}&quot;,&quot;\}&quot;)

 CreatePattern=Replace(CreatePattern,&quot;*&quot;,&quot;[^\\\/]*&quot;) '*号匹配

 CreatePattern=Replace(CreatePattern,&quot;?&quot;,&quot;[^\\\/]{1}&quot;) '?号匹配

 CreatePattern=&quot;(&quot;&CreatePattern&&quot;)+&quot; '整体匹配

 End Function

'**************************搜索并使关键字上色*************************

 Private Function ColorOn(FileName)

 dim objReg

 Set objReg=new RegExp

 objReg.Pattern=CreatePattern(keyword)

 objReg.IgnoreCase=True

 objReg.Global=True

 retVal=objReg.Test(FileName) '进行搜索测试,如果通过则上色并输出

 if retVal then

 OutPut=objReg.Replace(FileName,&quot;<font color='#FF0000'>$1</font>&quot;) '设置关键字的显示颜色

'***************************该部分可以根据需要修改输出************************************

 OutPut=&quot;<a href='#'>&quot;&OutPut&&quot;</a><br/>&quot;

 Response.Write(OutPut) '输出匹配的结果

'*************************************可修改部分结束**************************************

 ColorOn=1 '加入计数器的数目

 else

 ColorOn=0

 end if

 Set objReg=Nothing

 End Function

End Class

'************************结束类SearchFile**********************

%>

<html>

<head>

<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=gb2312&quot;>

<title>Media搜索</title>

</head>

<body>

<form name=&quot;form1&quot; method=&quot;post&quot; action=&quot;<% =Request.ServerVariables(&quot;PATH_INFO&quot;)%>&quot;>

 关键词: 

 <input name=&quot;keyword&quot; type=&quot;text&quot; id=&quot;keyword&quot;>

 <input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;搜索&quot;>

 <a href=&quot;help.htm&quot; target=&quot;_blank&quot;>高级搜索帮助</a> 

</form>

<%

dim keyword

keyword=Request.Form(&quot;keyword&quot;)

if keyword<>&quot;&quot; then

 Set newsearch=new SearchFile

 newsearch.Folders=&quot;E:\Media+F:&quot;

 newsearch.keyword=keyword

 newsearch.Search

 Set newsearch=Nothing

 response.Write(&quot;<br/>费时：&quot;&(timer()-st)*1000&&quot;毫秒&quot;)

end if

%>

</body>

</html>