<% @ Language = codepage VBScript = 936%>
<%
sombre
st = temporaire ()
'********************************************************************
'*************** Recherche de classe de fichiers de disque dur de recherche ************
'************ Méthode d'appel: ************
'************ Set Newsearch = New Searchfile' Declaration ************
'************ Newsearch.folder = f: + e:' Source de recherche entrante ***********
'************ Newsearch.Keyword = Assembly' Mot-clé ***************
'************ Newsearch.search' Démarrer la recherche ************
'************ Set Newssearch = rien' fin *************
'************ Copyright (c) 完望完月完月 ****************
'*************** http://btyz.51web.cn/ ************
'********************************************************************
File de recherche de classe
Les dossiers DIM passent un chemin absolu, Multipath utilise + signe pour se connecter, pas d'espaces
Mots-clés DIM 'Mots-clés passants
DIM OBJFSO 'Définir les variables globales
Dim Counter 'Définir les variables globales, le nombre de résultats de recherche
'***************** Initialisation **************************************
Private Sub class_inialize
SET OBJFSO = Server.CreateObject (Scripting.FileSystemObject)
Compteur = 0 'Initialiser le compteur
Sub-Sub
'*********************************************************************
Sous-classe privée_terminée
Définir objfso = rien
Sub-Sub
'****************** membre public, méthode appelée *****************************
Recherche de fonction
Dossiers = fendre (dossiers, +) 'Convertir en tableau
mot-clé = TRIM (mot-clé) 'Supprimer les espaces avant et après
Si mot clé = alors
Response.Write (<Font Color = 'Red'> Le mot-clé ne peut pas être vide </font> <br/>)
fonction de sortie
terminer si
'Déterminez simplement si les caractères illégaux sont inclus
flag = instant (mot-clé, /) ou instr (mot-clé, /)
Flag = Flag ou instant (mot-clé, :)
Flag = drapeau ou instant (mot-clé, |)
Flag = Flag ou instr (mot-clé, &)
Si l'indicateur, alors 'le mot clé ne peut pas contenir //: | &
Response.Write (<Font Color = 'Red'> Le mot-clé ne peut pas contenir //: | & </font> <br/>)
Fonction de sortie 'Si cela est inclus, sortez
terminer si
'Recherche de plusieurs chemins
dim je
pour i = 0 à ubund (dossiers)
Appeler GetAllfile (dossiers (i)) 'Fonction récursive de boucle d'appel
suivant
Response.Write (Total <Font Color = 'Red'> & Counter & </font> Les résultats ont été recherchés)
Fonction finale
'******************************************
Fonction privée getallfile (dossier)
DIM OBJFD, OBJFS, OBJFF
Définir objfd = objfso.getfolder (dossier)
Définir OBJFS = OBJFD.Subfolders
Définir objff = objfd.files
'Voyager à travers les sous-dossiers
Dim strfdname 'déclarer le nom du sous-dossier
'************ Visitez les sous-dossiers *******
sur l'erreur reprendre ensuite
Pour chaque Onedir dans OBJFS
strfdname = onedir.name
'Le dossier système n'est pas inclus dans la traversée
Si strfdname <> config.msi eqv strfdname <> eqv recyclé strfdname <> recycler eqv strfdname <> information de volume du système puis alors