23/01/2008, 06:42
|
 | | | Fecha de Ingreso: julio-2002 Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 9 meses Puntos: 1 | |
| Re: ayuda con buscador convinado
Código:
<div id="ContBuscador">
<div id="CabezalBuscador"><img src="/img/fondos/buscador.png"></div>
<form name="form1" method="post" action="index.asp?Modu=buscador">
<div Class="inputBuscar">
<%
if not Request.Form("keywords")="" then
CademaTemp=Request.Form("keywords")
else
if not Request.QueryString("keywords")="" then
CademaTemp=Request.QueryString("keywords")
end if
end if
%>
<div align="right" style="width:471px; float:left">
<input name="search" type="text" size="50" value="<%=CademaTemp%>" onSubmit="return CheckForm();">
</div>
<div style="width:180px; float:left; margin-left:10px; clear:right">
<input name=submit1 type="image" value="Buscar" src="img/Botones/btn_ir.gif" width="60" height="21">
</div>
</div>
<div align="center" style="margin-top:5px; margin-bottom:5px; font-family:'Trebuchet MS'; font-size:12px;">
<label><input type="radio" name="Noticias" value="web" checked>Noticias</label>
<label><input type="radio" name="Noticias" value="spa">Google</label>
</div>
</form>
<div Class="Navegador">
<%
' Mostramos el dato de que página estamos...
Dim mostrar 'cantidad de registros a mostrar por página
Dim cantN_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
Dim CademaTemp
mostrar = 10 ' Pueden modificar este número para cambiar la cantidad de registros por página
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
'ordenacion por filtros
if not CademaTemp="" then 'Busca en noticias
sqlNoticias ="SELECT * FROM tblDiario WHERE Titulo like'%" & search & "%' OR copete like '%" & search & "%' OR texto like '%" & search & "%' ORDER BY id"
resultado=1
else
resultado=0
end if
' Creamos el RecordSet y definimos la cantidad de registros a mostrar
resNoticias.PageSize = mostrar
resNoticias.CacheSize = mostrar
' Abrimos la tabla...
if resultado=1 then
resNoticias.Open sqlNoticias, Con,3,1
'contamos las páginas que se formaron con la variable mostrar.
cantN_paginas = resNoticias.PageCount
end if
' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cantN_paginas Then pagina_actual = cantN_paginas
If pagina_actual < 1 Then pagina_actual = 1
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
if not resultado=0 then
If cantN_paginas = 0 Then
Response.Write ("<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 13px; Color: #666666; "" align='center' >")
Response.Write (" <strong>No se ha encontrado nada con...")
Response.Write (" ")& Request("search") & ("</strong>")
Response.Write ("<br>")
Response.Write("<img src='/img/icons/downarrow-1.gif' width='12' height='12' border='0'> <a href='javascript:history.go(-1)' class='LikBuscador'> Atrás</a>")
Else
Response.Write ("<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 13px; Color: #666666; "" align='left' >")
Response.Write (" Se han encontrado con la palabra ")
Response.Write (" <strong>")& CademaTemp & ("</strong>, cantidad de notas") & (" ") & resNoticias.RecordCount
' Nos movemos a la página elegida
resNoticias.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<%= CreaNav(cantN_paginas, pagina_actual)%>
</div>
<div class="contResultados">
<%
' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not resNoticias.EOF
Color1="#F9F9F9"
Color2="#F0F0F0"
if colorfila=0 then
COLOR=Color1
colorfila=1
else
COLOR=Color2
colorfila=0
end if
%>
<div class="divlinkname">
<h3><a href="vernota.asp?id=<%= resNoticias("id") %>" class="lightwindow page-options artitle2" params="lightwindow_type=external"><%=resNoticias("Titulo")%></a></h3>
</div>
<%IF resNoticias("c-copete")=true then%>
<div class="divsum">
<%=resNoticias("copete")%>
</div>
<% End If %>
<div class="separadorBuscar"></div>
<%
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
resNoticias.MoveNext
Loop
%>
</div>
<div Class="Navegador">
<%
' Cerramos y limpiamos...
resNoticias.Close
Set resNoticias = Nothing
Con.Close
Set Con = Nothing%>
<%= CreaNav(cantN_paginas, pagina_actual)%>
<%end if
end if%>
</div>
</div>
<%
else
SoapText = "<?xml version='1.0' encoding='UTF-8'?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doGoogleSearch xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><q xsi:type='xsd:string'>" & keywords & "</q><start xsi:type='xsd:int'>" & request.querystring("h") & "</start><maxResults xsi:type='xsd:int'>" & maxResults & "</maxResults><filter xsi:type='xsd:boolean'>true</filter><restrict xsi:type='xsd:string'></restrict><safeSearch xsi:type='xsd:boolean'>false</safeSearch><lr xsi:type='xsd:string'>lang_es</lr> <ie xsi:type='xsd:string'>latin1</ie><oe xsi:type='xsd:string'>latin1</oe></ns1:doGoogleSearch></SOAP-ENV:Body></SOAP-ENV:Envelope>"
Googleurl = "http://api.google.com/search/beta2"
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "POST",Googleurl,"False"
objXML.setRequestHeader "Man", "POST"+" "+Googleurl+" HTTP/1.1"
objXML.setRequestHeader "MessageType", "CALL"
objXML.setRequestHeader "Content-Type", "text/xml"
objXML.send SoapText
ResponsePage = objXML.responseText
Set objXML = Nothing
SoapTextSpelling ="<?xml version='1.0' encoding='UTF-8' ?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV:Body><ns1:doSpellingSuggestion xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'><key xsi:type='xsd:string'>" & key & "</key><phrase xsi:type='xsd:string'>" & request.querystring("keywords") & "</phrase></ns1:doSpellingSuggestion></SOAP-ENV:Body></SOAP-ENV:Envelope>"
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "POST",Googleurl,"False"
objXML.setRequestHeader "Man", "POST"+" "+Googleurl+" HTTP/1.1"
objXML.setRequestHeader "MessageType", "CALL"
objXML.setRequestHeader "Content-Type", "text/xml"
objXML.send SoapTextSpelling
ResponsePageSpelling = objXML.responseText
Set objXML = Nothing
if inStr(ResponsePageSpelling,"</return>") then
Spelling=left(ResponsePageSpelling,inStr(ResponsePageSpelling,"</return>")-1)
Spelling=right(Spelling,len (Spelling)-inStr(Spelling,"<return")-29)
end if
spellingarray=Split(Spelling," ")
spellingmax=ubound(spellingarray)
Spellingitalic=Spelling
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla |