Make your own free website on Tripod.com

Menum web

Buscadores
Home
Trucos
Chistes
Videos
Buscadores
Zona msn
Traductor
Juegos
Descargas
Chat
Links
Comentarios

Acá tengo un buscador que busca qualquier cosa como información sobre algo etc........(en internet)

<% function Sacar(cadena,campos) dim i dim SacarAux while InStr(cadena," ") Cadena=Replace(Cadena," "," ") wend if len(cadena)>0 then if InStr(cadena," ")>0 then Sacar= Sacar(left(cadena,InStr(cadena," ")-1),campos) & " OR " & Sacar(right(cadena,len(cadena)-InStr(cadena," ")),campos) elseif InStr(cadena,"+")>0 then Sacar=Sacar(left(cadena,InStr(cadena,"+")-1),campos) & " AND "& Sacar(right(cadena,len(cadena)-InStr(cadena,"+")),campos) elseif InStr(cadena,"-")>0 then Sacar=Sacar(left(cadena,InStr(cadena,"-")-1),campos) & " AND NOT " & Sacar(right(cadena,len(cadena)-InStr(cadena,"-")),campos) else 'fijamos la sentencia SacarAux="" i=1 SacarAux= "( " & campos(i) & " Like '%" & cadena & "%'" i=i+1 while len(campos(i))>0 SacarAux= SacarAux & " OR " & campos(i) & " Like '%" & cadena & "%'" i=i+1 wend SacarAux=SacarAux & " )" Sacar=SacarAux end if else sacar="" end if end function function GeneraSql(cadena,tabla,campos) if len(cadena)>0 then generaSql="Select * from " & tabla & " Where " & Sacar(cadena,campos) else Response.Write "No hay criterios" end if end function dim campos(3) 'el tamano del array debe superar en uno al numero de campos campos(1)="nombre_campo1" campos(2)="nombre_campo2" 'para mostrar cual seria el resultado... cadena="hola cariola+cocacola-colacao" tabla="cualquiera" resultado=GeneraSql(cadena,tabla,campos) Response.Write resultado %>

buscador de apuntes, trabajos y documentos