<%@言語= vbscript codepage = 936%>
<%
Dim St
st = timer()
'******************************************************
'***************ハードディスクファイルクラスSearchFileを検索************
'***********コール方法:**********
'************セットNewsSearch = new SearchFile'宣言************
'************ Newsearch.folder = f:+e:'受信検索ソース*************
'************ newsearch.keyword =アセンブリ'キーワード***************
'************ Newsearch.Search'検索開始************
'************ set newssearch = Nothing' end *************
'************ Copyright(c)完望完月完月**************
'*************** http://btyz.51web.cn/ ************
'******************************************************
クラスSearchFile
DIMフォルダが絶対パスを通過する、マルチパスは +サインを使用して接続し、スペースなし
DIMキーワード 'キーワードのパッシング
dim objfso 'グローバル変数を定義します
薄暗いカウンター 'グローバル変数、検索結果の数を定義する
'***************初期化**********************************
private sub class_initialize
objfso = server.createobject(scripting.filesystemobject)を設定します
カウンター= 0 'カウンターを初期化します
End Sub
'*****************************************************************
プライベートSub Class_terminate
objfso =何も設定しません
End Sub
'******************公開会員、***************************という方法
関数検索
フォルダー= split(フォルダー、+) 'アレイに変換します
キーワード=トリム(キーワード) '前後のスペースを削除します
キーワード= thenの場合
response.write(<font color = 'red'>キーワードは空にすることはできません</font> <br/>)
出口機能
ifを終了します
'違法なキャラクターが含まれているかどうかを判断してください
flag = strunt(keyword、/)またはstruns(keyword、/)
flag = flagまたはstrunt(キーワード、:)
flag = flagまたはgruts(キーワード、|)
flag = flagまたはgruts(キーワード、&)
フラグの場合、 'キーワードは//:|&を含めることができません
response.write(<font color = 'red'>キーワードが含まれない//:|&</font> <br/>)
exit function 'これが含まれている場合は、終了します
ifを終了します
'マルチパス検索
薄暗いi
i = 0からubund(フォルダー)の場合
getallfile(フォルダー(i))を呼び出します 'ループ再帰関数を呼び出します
次
Response.Write(Total <font color = 'red'>&counter&</font>結果が検索されました)
エンド関数
'**********************************
プライベート機能getallfile(フォルダー)
Dim objfd、objfs、objff
objfd = objfso.getFolder(フォルダー)を設定します
objfs = objfd.subfoldersを設定します
objff = objfd.filesを設定します
'サブフォルダーを旅します
dim strfdname 'サブフォルダー名を宣言します
'************サブフォルダーにアクセス*******
エラーの再開時に次に再開します
objfsの各onedirについて
strfdname = onedir.name
'システムフォルダーはトラバーサルに含まれていません
strfdname <> config.msi eqv strfdname <>リサイクルeqv strfdname <> recycler eqv strfdname <>システムボリューム情報情報