Foros del web, para los que viven de bits

vgaray · 26-feb-2002, 12: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 dave@dwiwebdesign.com
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 · 26-feb-2002, 12: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 · 26-feb-2002, 13:54

Gracias Vgaray :)

enrique2

Ruchu · 27-feb-2002, 09:23

gracias amigo, esta interesante.

26-feb-2002, 12:39	#1 (permalink)
vgaray Fecha de Ingreso: noviembre-2002 Ubicación: Juarez, Chih. Mensajes: 160	WhoIs 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 dave@dwiwebdesign.com 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</b></font><font color=""#000066""><br&gt ;<br> This is the raw whois output provided by " & whois_name elseif InStr(xmlGet,"NOT FOUND") > 1 then sHTML = " is Available</b></font><font color=""#000066""><br&gt ;<br> This is the raw whois output provided by " & whois_name elseif InStr(xmlGet,"Not found") > 1 then sHTML = " is Available</b></font><font color=""#000066""><br&gt ;<br> This is the raw whois output provided by " & whois_name elseif InStr(xmlGet,"No match") > 1 then sHTML = " is Available</b></font><font color=""#000066""><br&gt ;<br> This is the raw whois output provided by " & whois_name else sHTML = " is not available</b></font><font color=""#000066""><br&gt ;<br> This is the raw whois output provided by " & whois_name my1String = "<pre>" my2String = "</pre>"

26-feb-2002, 12:45	#2 (permalink)
vgaray Fecha de Ingreso: noviembre-2002 Ubicación: Juarez, Chih. Mensajes: 160	Re: WhoIs '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 "<font color=""#FF0000""><br&gt ;<br><b>" & domain & " " response.write sHTML response.write "<font color=""#000066"">" & RegisterName & "</font>" %> </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.

26-feb-2002, 13:54	#3 (permalink)
MauroViale Fecha de Ingreso: noviembre-2002 Mensajes: 184	Re: WhoIs Gracias Vgaray :) enrique2

27-feb-2002, 09:23	#4 (permalink)
Ruchu Fecha de Ingreso: noviembre-2002 Mensajes: 675	Re: WhoIs gracias amigo, esta interesante.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado