Yo tengo aquí otro buscador de dominios. No contacta a ninguna página externa, solo trata de acceder al sitio, y si no lo encuentra, aparece el dominio libre.
Código asp:
Ver original<html><title>Buscador de dominios</title><body>
<%
tipico="msxml2.xmlhttp" 'El objeto "tipico"
function disponible(dominio)
set xml=server.createobject(tipico) 'Creamos el objeto
if checar_conexion_internet=false then 'Checamos si el usuario tiene conexión a internet
disponible="No existe conexión a internet."
else
xml.open "GET","http://"&dominio,false 'Enviamos la solicitud
if "www."=left(lcase(dominio),4) then dominio=right(dominio,len(dominio)-4)
on error resume next
xml.send
if err.description="" then 'Si el objeto xml devuelve un error, quiere decir que no encontro el dominio en la web y esta libre
disponible="El dominio <b>"&dominio&"</b> esta ocupado.<br><a href='http://"&dominio&"' target=_blank>Link a la página</a>"
else
disponible="El dominio <b>"&dominio&"</b> esta libre.<br><a href='http://www.superhosting.cl/dominios/dominios2.php?dominio="&server.urlencode(dominio)&"' target=_blank>Comprar</a>"
end if
end if
end function
function checar_conexion_internet
set xml=server.createobject(tipico)
xml.open "get","http://www.sitio.com",false 'Abrimos www.sitio.com. Con esta pagina, comprobaremos la conexion a internet
on error resume next 'Si hay un error, no hay conexion a internet
xml.send
if err.description="" then estado=true else estado=false end if
checar_conexion_internet=estado
end function
%>
<form action="?checar=true" method=post>
Escriba el dominio a checar sin <b>http://</b>:<br>
<input type=text name=dominio value="<%=request("dominio")%>"><br>
<input type=submit value="Checar">
</form>
<%
if request("checar")="true" then
%>
<%="<hr>"&disponible(request("dominio"))%>
<%end if%>
</body></html>
Espero que les sirva de algo.
