Hola a todos.
Si quieren buscar canciones en la web de una manera más rápida, les dejo el siguiente código asp:
Código:
<html><head><title>Buscador de canciones</title>
<%
triplew="ww"&"w"
concepto=request("b2")
function cargar(pagina)
url="h"&"ttp://77.67.11.180/search.php?q="&concepto&"&p="&pagina
set ajax=server.createobject("msxml2.XMLHTTP")
call ajax.open ("GET", url, false)
ajax.send
cargar=reemplazar(ajax.ResponseText,concepto,pagina+1)
end function
function reemplazar(que,palabras,pagina)
que=replace(que,"<a target='_parent' href='h"&"ttp://"&triplew&".goear.com/search.php?q="&palabras&"&p="&pagina&"'><font face=Verdana size=1 color=#000080>Next >></font></a>","<a href='?b2="&concepto&"&p="&pagina&"'>Siguiente --></a>")
que=replace(que,"<a target='_parent' href='h"&"ttp://"&triplew&".goear.com/search.php?q="&palabras&"&p="&pagina-2&"'><font face=Verdana size=1 color=#000080><< Back</font></a>","<a href='?b2="&concepto&"&p="&pagina-2&"'><-- Anterior</a>")
reemplazar=que
end function
%>
</head><body><form name=b action=''>
Canción a buscar: <input name=b2 value="<%=concepto%>"><input type=hidden name=p value=0><br>
<input type=submit value="Buscar"></form>
<%if not ""=request.querystring then response.write cargar(request("p")) end if%>
</body></html>
Para los que no le entiendan les explico:
Primero se crea el objeto "msxml2.xmlhttp", es el que abre la página.
Después se carga una dirección IP (es de goear.com)
Luego se asigna todo a la variable "cargar", pero si se dan cuenta, es con "reemplazar". Ésta función sirve para reemplazar los típicos "Next" a enlaces a ésta misma página, pero aumentándole una página (igual con los "Back").
Espero que les funcione.
Nota: las canciones encontradas son de goear.com.