ASP网页编程之一个硬盘文件搜刮的Asp源码

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQL Server还有更多的扩展，可以用存储过程，数据库大小无极限限制。硬盘   能够具有必定的伤害性,请不要用于不法妄图,不然效果自信
<%
'**************************代码源自收集***********************
'******************能够具有必定的伤害性,请不要用于不法妄图,不然效果自信*******************
'**********************修正:Blue2004***********************
'*************Setnewsearch=newSearchFile'声明*************
'*************newsearch.Folder="F:+E:"'传入搜刮源*************
'*************newsearch.keyword="汇编"'关头词*************
'*************newsearch.Search'入手下手搜刮*************
'*************Setnewsearch=Nothing'停止*************
'*************************************************************
Server.ScriptTimeOut=99999'法式加载的超时设置
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=WordStr(CreatePattern,".",".")
CreatePattern=WordStr(CreatePattern,"+","+")
CreatePattern=WordStr(CreatePattern,"(","(")
CreatePattern=WordStr(CreatePattern,")",")")
CreatePattern=WordStr(CreatePattern,"[","[")
CreatePattern=WordStr(CreatePattern,"]","]")
CreatePattern=WordStr(CreatePattern,"{","{")
CreatePattern=WordStr(CreatePattern,"}","}")
CreatePattern=WordStr(CreatePattern,"*","[^/]*")'*号婚配
CreatePattern=WordStr(CreatePattern,"?","[^/]{1}")'?号婚配
CreatePattern="("&CreatePattern&")+"'全体婚配
EndFunction
'**************************搜刮并使关头字上色*************************
PrivateFunctionColorOn(FileName)
dimobjReg
SetobjReg=newRegExp
objReg.Pattern=CreatePattern(keyword)
objReg.IgnoreCase=True
objReg.Global=True
retVal=objReg.Test(FileName)'停止搜刮测试,假如经由过程则上色并输入
ifretValthen
OutPut=objReg.WordStr(FileName,"<fontcolor='#FF0000'>$1</font>")'设置关头字的显示色彩
'***************************该局部可以依据需求修正输入************************************
OutPut="<ahref='#'>"&OutPut&"</a><br/>"
Response.Write(OutPut)'输入婚配的了局
'*************************************可修正局部停止**************************************
ColorOn=1'到场计数器的数量
else
ColorOn=0
endif
SetobjReg=Nothing
EndFunctionASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊！

Session:这个存储跟客户端会话过程的数据，默认20分钟失效