Hola tengo un buscador en asp, que me busca en un archivo de texto, hasta hay todo bien,lo que me gustaria es que al encontrar los resultados, y pinchar sobre ellos , se me abran con un tamaño de hoja (alto y ancho)que yo le diga.
muchas gracias :(
| |||
buscador en asp Hola tengo un buscador en asp, que me busca en un archivo de texto, hasta hay todo bien,lo que me gustaria es que al encontrar los resultados, y pinchar sobre ellos , se me abran con un tamaño de hoja (alto y ancho)que yo le diga. muchas gracias :( |
| |||
Re: buscador en asp ¿Lo habres en una página nueva? si es así, supongo que lo harás con un
Código:
¿me equivoco?, pues sólo tienes que pasarle los valores que tú quieras:window.open
Código:
height -> alto en puntoswindow.open(url,titulo,características) width -> ancho en puntos left -> posición horizontal top -> posición vertical menubar -> barra de menú scrollbars -> barras de desplazamiento status -> barra de estado toolbar -> barra de herramientas fullscreen -> si quisieras pantalla completa Espero que te sirva. Un saludete |
| |||
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> |
| |||
Re: buscador en asp Darts, siento mucho haber tardado tanto... No se si ya lo habrás solucionado, por si acaso llego a tiempo mira: porqué pones
Código:
Un saludete, y disculpa la tardanza <a target=" & nombre & " ...> porqué no poner target=blank? |