如何使用FSO搜索硬盘文件-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

如何使用FSO搜索硬盘文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim st
st=timer()
\\\'*************************************************************
\\\'*************搜索硬盘文件的类SearchFile *************
\\\'*************调用方式: *************
\\\'*************Set newsearch=new SearchFile \\\'声明 *************
\\\'*************newsearch.Folder="F:+E:"\\\'传入搜索源*************
\\\'*************newsearch.keyword="汇编" \\\'要害词*************
\\\'*************newsearch.Search \\\'开始搜索*************
\\\'*************Set newsearch=Nothing \\\'结束*************
\\\'*************************************************************
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\\\'>$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>www.knowsky.com</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>

返回类别: 教程
上一教程: 作一个可以直接和浏览器进行交互的组件
下一教程: 完整的访问统计程序(二程序篇)

您可以阅读与"如何使用FSO搜索硬盘文件"相关的教程:
· 硬盘文件搜索代码
· 如何使用ASP生成HTML文件
· 如何使用 MICROSOFT ACCESS 和 ACTIVE SERVER PAGES 加密你的页面
· 在ASP中自动创建多级文件夹的函数(使用FSO)
· ADO如何使用INSERT语法


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接