<%
palabra=request.form("palabra")
dim resultado(1000)
secuencia=1
dim carpetaEncontrada
dim folderActual
j=0
path=""
if request.querystring("accion")="buscar" then ' si le han dado click a "buscar"
Set Upload = Server.CreateObject("Persits.Upload.1")
' esto es free: Set Dir = Upload.Directory( "c:\websites\free\bikebogo\www\*.*", SORTBY_TYPE)
Set Dir = Upload.Directory( "c:\websites\admin\bikebogo\www\*.*", SORTBY_TYPE)
buscarEnFolder dir,palabra
//imprimir()
end if
function buscarEnFolder(dir,palabra)
'response.write " "&path &j&" "
j=j+1
For Each item in Dir
nombre=item.filename
tipo=item.FileType
if tipo="File Folder" and nombre <>".." and nombre<>"." and nombre <>"peque" _
and nombre <> "_vti_cnf" and nombre<>"_vti_pvt" then
'response.write " "&" inside "&path &"."
'response.end
folderActual=nombre
path=trim(path&"\"&nombre)
if(buscar(nombre,palabra)="si") then
carpetaEncontrada=nombre
mostrarCarpetaCompleta Upload.Directory( "c:\websites\admin\bikebogo\www\"& path &"\*.*", SORTBY_TYPE), nombre
end if
'response.write " new path="&path
buscarEnFolder Upload.Directory( "c:\websites\admin\bikebogo\www\"& path &"\*.*", SORTBY_TYPE),palabra
else 'no es folder
if buscar(nombre,palabra)="si" and folderActual<>carpetaEncontrada then
'response.write "
encontrado"
resultado(secuencia)=replace(path,"\","/")&"/"&nombre
imprimirEncontrado resultado(secuencia), secuencia ,""
secuencia=secuencia+1
end if
end if
path=replace( path,"\"&nombre,"")
next
end function
function buscar(nombre1,palabra1) 'si encuentra algo entonces devuelve "si"
intResult=0
buscar="no"
intResult = InStr (1,nombre1, palabra1,1)
if intResult<>0 and not(InStr (1,nombre1, ".zip",1)>0) and not(inStr(1,nombre1, ".rar",1)>0) then
buscar="si"
else
buscar="no"
end if
end function
function imprimir()
i=0
response.write "imprimiendo"&" "
for each item in resultado
response.write resultado(i)&" "
i=i+1
next
end function
function imprimirEncontrado(encontrado,sec, dummy)
encontrado=Replace(encontrado,"\","/")
falso_encontrado="" ' es un link en blanco para que no bajen videos
if InStr (1,lcase(encontrado), "mdb",1)>1 then exit function
if encontrado="" then exit function
if InStr (1,lcase(encontrado), "avi",1)>1 or InStr (1,lcase(encontrado), "mpg",1)>1 or InStr (1,lcase(encontrado), "mpeg",1)>1 then
response.write " "&dummy& sec &"- "&" " &encontrado&" <---- VIDEO"
elseif InStr (1,lcase(encontrado), "htm",1)>1 or InStr (1,lcase(encontrado), "asp",1)>1 then
response.write " "& dummy&sec &"- "&" " &encontrado&" <---- PAGINA"
else
response.write " "& dummy&sec &"- " & " " &encontrado&""
end if
response.write ""
'response.write ""
end function
function mostrarCarpetaCompleta(dir, nombreCarpeta)
response.write " Carpeta Encontrada: "&nombreCarpeta
For Each item in Dir
nombre=item.filename
tipo=item.FileType
' solo archivos
if tipo<>"File Folder" and nombre <>".." and nombre<>"." and nombre <> "_vti_cnf" and nombre<>"_vti_pvt" and not(InStr (1,nombre, ".zip",1)>0) and not(inStr(1,nombre, ".rar",1)>0) then
resultado(secuencia)=replace(path,"\","/")&"/"&nombre
imprimirEncontrado resultado(secuencia), secuencia, " "
secuencia=secuencia+1
end if
next
response.write " "
end function
%>