点击这里给我发消息 点击这里给我发消息

硬盘文件搜索代码(ASP类)

添加时间:2011-6-25
    相关阅读: ASP 系统

硬盘文件的类SearchFile         *************

''*************调用方法:                          *************
''*************Set newsearch=new SearchFile ''声明 *************
''*************newsearch.Folder="F:+E:"''传入搜索源*************
''*************newsearch.keyword="汇编"    ''关键词*************
''*************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("Scripting.FileSystemObject")
 Counter=0    ''初始化计数器
End Sub
''************************************************************
Private Sub Class_Terminate
   Set objFso=Nothing
End Sub
''**************公有成员,调用的方法***************************
Function Search
 Folders=split(Folders,"+")   ''转化为数组
 keyword=trim(keyword)   ''去掉前后空格
 if keyword="" then
   Response.Write("<font color=''red''>关键字不能为空</font><br/>")
exit Function
 end if
 ''判断是否包含非法字符
 flag=instr(keyword,"") or instr(keyword,"/")
 flag=flag or instr(keyword,":")
 flag=flag or instr(keyword,"|")
 flag=flag or instr(keyword,"&")

 if flag then   ''关键字中不能包含/:|&
   Response.Write("<font color=''red''>关键字不能包含/:|&</font><br/>")
Exit Function   ''如果包含有这个则退出
 end if
 ''多路径搜索
 dim i
 for i=0 to ubound(Folders)
   Call GetAllFile(Folders(i))  ''调用循环递归函数
 next
 Response.Write("共搜索到<font color=''red''>"&Counter&"</font>个结果")
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<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
     SFN=Folder&""&strFdName     ''绝对路径
     Call GetAllFile(SFN)            ''调用递归
End If
 Next
 dim strFlName
 ''**********历遍文件********
 For Each OneFile In objFf
   strFlName=OneFile.Name
''desktop.ini和folder.htt不在列取范围
   If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then
     FN=Folder&""&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,".",".")
  CreatePattern=Replace(CreatePattern,"+","+")
  CreatePattern=Replace(CreatePattern,"(","(")
  CreatePattern=Replace(CreatePattern,")",")")
  CreatePattern=Replace(CreatePattern,"[","[")
  CreatePattern=Replace(CreatePattern,"]","]")
  CreatePattern=Replace(CreatePattern,"{","{")
  CreatePattern=Replace(CreatePattern,"}","}")
  CreatePattern=Replace(CreatePattern,"*","[^\/]*")   ''*号匹配
  CreatePattern=Replace(CreatePattern,"?","[^\/]{1}") ''?号匹配
  CreatePattern="("&CreatePattern&")+"                  ''整体匹配
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,"<font color=''#FF0000''>{GetProperty(Content)}</font>")   ''设置关键字的显示颜色
''***************************该部分可以根据需要修改输出************************************
    OutPut="<a href=''#''>"&OutPut&"</a><br/>"
 Response.Write(OutPut)  ''输出匹配的结果
''*************************************可修改部分结束**************************************
 ColorOn=1    ''加入计数器的数目
  else
    ColorOn=0
  end if
  Set objReg=Nothing
End Function
End Class
''************************结束类SearchFile**********************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Media搜索</title>
</head>

<body>
<form name="form1" method="post" action="<% =Request.ServerVariables("PATH_INFO")%>">
关键词:

 <input name="keyword" type="text" id="keyword">
 <input type="submit" name="Submit" value="搜索">
 <a href="help.htm" target="_blank">高级搜索帮助</a>
</form>
<%
dim keyword
keyword=Request.Form("keyword")
if keyword<>"" then
 Set newsearch=new SearchFile
 newsearch.Folders="E:Media+F:"
 newsearch.keyword=keyword
 newsearch.Search
 Set newsearch=Nothing
 response.Write("<br/>费时:"&(timer()-st)*1000&"毫秒")
end if

%>
</body>
</html>

本文作者:未知
咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册