WhoIs

vgaray · #1 (**permalink**) 26/02/2002, 13:39

Este código sirve para implementar un sistema de busqueda de dominios disponibles y en caso de que ya exista una dirección, mostrar la información relacionada a ella.

<%
'Code by [email protected]
On Error Resume Next
Response.Buffer = True
Server.ScriptTimeout = 1200
%>
<html>
<head>
<title>US Whois v1</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000066" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<%
Dim objXML, objXSL, objFSO
Dim strFile, strFileName, strXSL
Dim strURL, theString, whois_name

' edita la siguiente línea para buscar alguna dirección en espécifico...

domain = "www.maestrosdelweb.com"

strURL = "http://www.netsol.com/cgi-bin/whois/whois?STRING="& Domain & "&SearchType=do&STRING2.x=14&STRI NG2.y=14"
whois_name = "Network Solutions"
'Create Object
Set objXML = CreateObject("Microsoft.XMLHTTP")

' Get Code
objXML.Open "get", strURL, False
objXML.Send
xmlGet = objXML.responseText

if InStr(xmlGet,"is available") > 1 then
sHTML = " is Available<br&gt ; This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"NOT FOUND") > 1 then
sHTML = " is Available<br&gt ; This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"Not found") > 1 then
sHTML = " is Available<br&gt ; This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"No match") > 1 then
sHTML = " is Available<br&gt ; This is the raw whois output provided by " & whois_name

else
sHTML = " is not available<br&gt ; This is the raw whois output provided by " & whois_name

my1String = "<pre>"
my2String = "</pre>"

vgaray · #2 (**permalink**) 26/02/2002, 13:45

'Continua

strFind1 = instr(1,xmlGet,my1String,1)
if NOT strFind1 = "" then strFinal1 = mid(xmlGet,strFind1,len(my1String))

strFind2 = instr(1,xmlGet,my2String,1)
if NOT strFind2 = "" then strFinal2 = mid(xmlGet,strFind2,len(my2String))

if NOT strFind1 = "" then RegisterName = mid(xmlGet,strFind1,(strFind2-strFind1))
Set objXML = Nothing
end if
%>
<center>
<%
response.write "<br&gt ; " & domain & " "
response.write sHTML
response.write "" & RegisterName & ""

%>
</center>
</body>
</html>

Si necesitas más info para saber como obtener contenido de otro sitio, visita el link http://forosdelweb.com/mensaje.asp?id=63913

Ahi inclusive verás una función que puedes implementar para revisar que tengas el componente necesario y poder ofrecer el servicio 'WhoIs' desde tu sitio.

MauroViale · #3 (**permalink**) 26/02/2002, 14:54

Gracias Vgaray :)

enrique2

Ruchu · #4 (**permalink**) 27/02/2002, 10:23

gracias amigo, esta interesante.