760 visitas
Buscando,
Encontrados........................... .0.

Buscador de fotos y videos en Bikebogota por: Camilo J. Chaves

ejemplo flip, barspin, camilo, superman, etc, etc.
Numero de Encontrados:
0
volver a la pagina principal
<% 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 %>