硬盘文件搜索代码（ASP类）
网络编程 2021-07-05 10:58www.168986.cn编程入门
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim st
st=timer()
'
'搜索硬盘文件的类SearchFile
'调用方法:
'Set newsearch=new SearchFile '声明
'newsearch.Folder="F:+E:"'传入搜索源
'newsearch.keyword="汇编" '关键词
'newsearch.Search '开始搜索
'Set newsearch=Nothing '结束
'Copyright(c)醉雨梧桐小站
'http://btyz.51web./
'
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
'desk.ini和folder.htt不在列取范围
If strFlName<>"desk.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'>$1</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>
<%
dim st
st=timer()
'
'搜索硬盘文件的类SearchFile
'调用方法:
'Set newsearch=new SearchFile '声明
'newsearch.Folder="F:+E:"'传入搜索源
'newsearch.keyword="汇编" '关键词
'newsearch.Search '开始搜索
'Set newsearch=Nothing '结束
'Copyright(c)醉雨梧桐小站
'http://btyz.51web./
'
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
'desk.ini和folder.htt不在列取范围
If strFlName<>"desk.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'>$1</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>
编程语言
- 如何快速学会编程 如何快速学会ug编程
- 免费学编程的app 推荐12个免费学编程的好网站
- 电脑怎么编程：电脑怎么编程网咯游戏菜单图标
- 如何写代码新手教学 如何写代码新手教学手机
- 基础编程入门教程视频 基础编程入门教程视频华
- 编程演示：编程演示浦丰投针过程
- 乐高编程加盟 乐高积木编程加盟
- 跟我学plc编程 plc编程自学入门视频教程
- ug编程成航林总 ug编程实战视频
- 孩子学编程的好处和坏处
- 初学者学编程该从哪里开始 新手学编程从哪里入
- 慢走丝编程 慢走丝编程难学吗
- 国内十强少儿编程机构 中国少儿编程机构十强有
- 成人计算机速成培训班 成人计算机速成培训班办
- 孩子学编程网上课程哪家好 儿童学编程比较好的
- 代码编程教学入门软件 代码编程教程