<%@Sprache = vbscript codepage = 936%>
<%
Dim st
ST = Timer ()
'************************************************
'**************************************
'************ CALL -Methode: ************
'************ Setzen
'******************************************************************************************************************************************************************************************************************************************************************************************************
'************newsearch.keyword=assembly' keyword***************
'*************************************************************************************************************************************************************************************************************************************************************************************
'************ Setzen
'******************************************************************************************************************************************************************************************************************************************
'***************
'************************************************
Klassensuche
Dim -Ordner gibt einen absoluten Pfad durch, Multipath verwendet + Zeichen, um eine Verbindung herzustellen, keine Leerzeichen
Dim Keyword 'Schlüsselwörter übergeben
Dim OBJFSO 'Definieren Sie globale Variablen
Dim Counter 'Definieren Sie globale Variablen, die Anzahl der Suchergebnisse
'*****************Initialisierung**************************************
Private sub class_initialize
Setzen Sie OBJFSO = Server.createObject (scripting.filesystemObject)
Zähler = 0 'initialisieren Sie den Zähler
Ende sub
'*************************************************
Private sub class_terate
Setzen Sie OBJFSO = nichts
Ende sub
'***********************
Funktionsuche
Ordner = Split (Ordner,+) 'in Array konvertieren
Keyword = trim (Schlüsselwort) 'Entfernen Sie die Leerzeichen vor und nachher
Wenn Keyword = dann
Response.write (<font color = 'rot'> Schlüsselwort kann nicht leer sein </font> <br/>)
Ausgangsfunktion
Ende wenn
„Stellen Sie einfach fest, ob illegale Charaktere enthalten sind
flag = instr (keyword,/) oder instr (keyword,/)
Flag = Flag oder Instrument (Schlüsselwort, :)
Flag = Flag oder Instrument (Schlüsselwort, |)
Flag = Flag oder Instrument (Schlüsselwort, &)
Wenn Flaggens dann 'das Schlüsselwort nicht enthalten //: | &
Response.write (<font color = 'rot'> Schlüsselwort kann nicht enthalten //: | & </font> <br/>)
Beendenfunktion 'Wenn dies enthalten ist, beenden Sie beenden
Ende wenn
'Mehrwegsuche
dim i
für I = 0 bis Ubund (Ordner)
Rufen Sie GetallFile (Ordner (i)) 'Aufrufschleife Rekursive Funktion
nächste
Antwort.Write (Total <font color = 'rot'> & Zähler & </font> Die Ergebnisse wurden durchsucht)
Endfunktion
'**********************************************
Private Funktion getallFile (Ordner)
Dim Objfd, Objfs, Objff
Setzen Sie objfd = objfso.getFolder (Ordner)
Setzen Sie OBJFS = OBJFD.SubFolders
Setzen Sie objff = objfd.files
'Reisen Sie durch Unterordner
Dim Strfdname 'deklarieren Sie den Unterordner -Namen
'************ besuchen Unterordner *******
Bei der nächsten Fehleraufnahme als nächstes
Für jedes Oneedir in OBJFs
strfdname = oneedir.name
'Der Systemordner ist nicht im Traversal enthalten
Wenn StrfdName <> config.msi EQV strfdname <> recyceltes EQV strfdname <> Recycler EQV StrfdName <> Systemvolumeninformationen, dann dann