asp文件搜索

asp文件搜索
 
 
 
<%
'*************Set newsearch=new SearchFile '声明 *************
'*************newsearch.Folder="F:+E:"'传入搜索源*************
'*************newsearch.keyword="汇编"     '关键词*************
'*************newsearch.Search           '开始搜索*************
'*************Set newsearch=Nothing          '结束*************     
'*************************************************************
Server.ScriptTimeOut =99999   '程序加载的超时设置
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.Wr