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是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊！

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

仓酷云

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

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

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

掌握asp的特性而且一定要知道为什么。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。