<%@Idioma = VBScript CodePage = 936%>
<%
Dim st
st = temporizador ()
'**********************************************************************
'*************** Búsqueda de archivo de archivo de disco duro SearchFile **************
'************ Método de llamadas: **************
'************ SET NewsSearch = New SearchFile' Declaración **************
'************** LOWERSEARC.Folder = F:+E:' Fuente de búsqueda entrante ***************
'************** LOWARECH.KEYWORD = Assembly' Palabra clave ********************
'************ LEARNEARCH.Search' Inicio de búsqueda **************
'************ SET NewsSearch = Nothing' End *************
'************ Copyright (c) 完望完月完月 ******************
'*************** http://btyz.51web.cn/ **************
'**********************************************************************
Class Searchfile
Dim carpetas pasando una ruta absoluta, Multipath usa + signo para conectarse, sin espacios
Palabras clave Dim Palabra clave '
Dim objfso 'Definir variables globales
Dim Counter 'Definir variables globales, el número de resultados de búsqueda
'****************i Inicialización ******************************************
Sub class_initialize privado
Establecer objfso = server.createObject (scripting.filesystemObject)
Contador = 0 'Inicializar el mostrador
Final
'**********************************************************************
Sub class_merminate privado
Establecer objfso = nada
Final
'****************** Miembro público, llamado ********************************
Búsqueda de funciones
Carpetas = dividir (carpetas,+) 'convertir a matriz
Palabra clave = TRIM (Palabra clave) 'Eliminar los espacios antes y después
Si la palabra clave = entonces
Response.write (<font color = 'rojo'> La palabra clave no puede estar vacía </font> <br/>)
función de salida
final si
'Solo determina si se incluyen caracteres ilegales
flag = instr (palabra clave,/) o instr (palabra clave,/)
bandera = bandera o instrer (palabra clave, :)
bandera = bandera o instrer (palabra clave, |)
bandera = bandera o instrer (palabra clave, &)
Si el indicador entonces 'la palabra clave no puede contener //: | &
Response.Write (<font color = 'rojo'> La palabra clave no puede contener //: | & </font> <br/>)
Función de salida 'Si esto está incluido, salga
final si
'Búsqueda de múltiples vías
Dim I
para i = 0 a Ubund (carpetas)
Llamar a getAllFile (carpetas (i)) 'Función recursiva del bucle de llamadas
próximo
Response.Write (Total <font color = 'rojo'> & Counter & </font> Los resultados fueron buscados)
Función final
'********************************************
Función privada getallfile (carpeta)
Dim objfd, objfs, objff
Establecer objfd = objfso.getfolder (carpeta)
Establecer objfs = objfd.subfolders
Establecer objff = objfd.files
'Viaja a través de subcarpetas
dim strfdname 'declara el nombre de la subcarpeta
'************ Visite subcarpetas *******
En el currículum de error siguiente
Para cada Onedir en OBJFS
strfdname = onedir.name
'La carpeta del sistema no está incluida en el recorrido
Si strfdname <> config.msi eqv strfdname <> reciclado eqv strfdname <> recycler eqv strfdname <> información de volumen del sistema entonces