
24/07/2002, 04:03
|
| | Fecha de Ingreso: julio-2002
Mensajes: 16
Antigüedad: 22 años, 9 meses Puntos: 0 | |
Re: buscador en asp <HTML>
<HEAD>
<TITLE>RESULTADOS BUSQUEDA</TITLE>
</HEAD>
<BODY background="/gifs/fondocrema.gif"><FONT FACE="ARIAL,HELVETICA">
<p>
<p align="left"><img border="0" src="/gifs/edsolv.gif" width="136" height="60">
<align="center"><font color="#0000FF" size="6" face="Comic Sans MS"><b><i> ZARAGOZA</i></b></font>
<%
dim TestFile
Fecha = date
Busqueda = Request.Form("Busqueda")
BaseFile= Server.MapPath ("/xxxxx") & "\dardos\" & "\pid.txt"
Respuesta = Request.Form("Opcion")
Response.write "<H2 align='center'>RESULTADOS DE LA BUSQUEDA DE -" & Busqueda & "-</H2>"
Response.Write "<STRONG>Opción de busqueda: " & Respuesta & "</STRONG><BR><BR><HR>"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const Procedures = "http://xxxxx/yyyyy/yyyyyy/pid/"
Dim fso, f , salida, linea, line, Encontrado, posicion, ocurrencias, Esta
Encontrado = 0
Esta = 0
Set fso = CreateObject("Scripting.FileSystemObject" ;)
Set fichero = fso.OpenTextFile(BaseFile, ForReading, True)
if Respuesta = "Solo titulos" then
While not fichero.AtEndOfStream
linea=fichero.readline
If InStr(1,linea,Busqueda,1)<>0 Then
Esta = 1
Encontrado=1
posicion = InStr(1,linea,":",1)
nombre = mid(linea,1,posicion -1) & ".htm"
response.write "<p><H5><a target=" & nombre & " href=" & Procedures & nombre & ">" & linea & "</a></H5>"
end if
wend
else
While not fichero.AtEndOfStream
linea=fichero.readline
posicion = InStr(1,linea,":",1)
nombre = mid(linea,1,posicion -1) & ".htm"
TotFile= Server.MapPath ("/xxxxx") & "\yyyyy\" & "\pid\" & nombre
set f = fso.OpenTextFile(TotFile, ForReading, True)
Encontrado = 0
ocurrencias = 0
While not f.AtEndOfStream
line=f.readline
If InStr(1,line,Busqueda,1)<>0 Then
Esta = 1
Encontrado=1
ocurrencias = ocurrencias +1
end if
wend
if Encontrado = 1 then
response.write "<p><H5><a target=" & nombre & " href=" & Procedures & nombre & ">" & linea & "</a></H5><H6> |