ASP教程之硬盘文件搜刮代码（ASP类）
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。硬盘<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%
dimst
st=timer()
*************************************************************
*************搜刮硬盘文件的类SearchFile*************
*************挪用办法:*************
*************Setnewsearch=newSearchFile声明*************
*************newsearch.Folder="F:+E:"传进搜刮源*************
*************newsearch.keyword="汇编"关头词*************
*************newsearch.Search入手下手搜刮*************
*************Setnewsearch=Nothing停止*************
*************Copyright(c)醉雨梧桐小站*************
*************http://btyz.51web.cn/*************
*************************************************************
ClassSearchFile
dimFolders传进相对路径,多路径利用+号毗连,不克不及有空格
dimkeyword传进关头词
dimobjFso界说全局变量
dimCounter界说全局变量，搜刮了局的数量
*****************初始化**************************************
PrivateSubClass_Initialize
SetobjFso=Server.CreateObject("Scripting.FileSystemObject")
Counter=0初始化计数器
EndSub
************************************************************
PrivateSubClass_Terminate
SetobjFso=Nothing
EndSub
**************私有成员,挪用的办法***************************
FunctionSearch
Folders=split(Folders,"+")转化为数组
keyword=trim(keyword)往失落前后空格
ifkeyword=""then
Response.Write("<fontcolor=red>关头字不克不及为空</font><br/>")
exitFunction
endif
判别是不是包括不法字符
flag=instr(keyword,"")orinstr(keyword,"/")
flag=flagorinstr(keyword,":")
flag=flagorinstr(keyword,"|")
flag=flagorinstr(keyword,"&")
ifflagthen关头字中不克不及包括/:|&
Response.Write("<fontcolor=red>关头字不克不及包括/:|&</font><br/>")
ExitFunction假如包括有这个则加入
endif
多路径搜刮
dimi
fori=0toubound(Folders)
CallGetAllFile(Folders(i))挪用轮回递回函数
next
Response.Write("共搜刮到<fontcolor=red>"&Counter&"</font>个了局")
EndFunction
***************历遍文件和文件夹******************************
PrivateFunctionGetAllFile(Folder)
dimobjFd,objFs,objFf
SetobjFd=objFso.GetFolder(Folder)
SetobjFs=objFd.SubFolders
SetobjFf=objFd.Files
历遍子文件夹
dimstrFdName声明子文件夹名
*********历遍子文件夹******
onerrorresumenext
ForEachOneDirInobjFs
strFdName=OneDir.Name
体系文件夹不在历遍之列
IfstrFdName"Config.Msi"EQVstrFdName"RECYCLED"EQVstrFdName"RECYCLER"EQVstrFdName"SystemVolumeInformation"Then
SFN=Folder&""&strFdName相对路径
CallGetAllFile(SFN)挪用递回
EndIf
Next
dimstrFlName
**********历遍文件********
ForEachOneFileInobjFf
strFlName=OneFile.Name
desktop.ini和folder.htt不在列取局限
IfstrFlName"desktop.ini"EQVstrFlName"folder.htt"Then
FN=Folder&""&strFlName
Counter=Counter+ColorOn(FN)
EndIf
Next
***************************
封闭各工具实例
SetobjFd=Nothing
SetobjFs=Nothing
SetobjFf=Nothing
EndFunction
*********************天生婚配形式***********************************
PrivateFunctionCreatePattern(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&")+"全体婚配
EndFunction
**************************搜刮并使关头字上色*************************
</p>由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。
页:
[1]