Whois con ASP

Elalux · #1 (**permalink**) 25/06/2002, 09:45

Alguien sabe de casualidad algún script ASP para hacer un Whois pero que no requiera registrar .dll ´s, agrdecere cualquier infomacion.

Barraca · #2 (**permalink**) 25/06/2002, 11:59

http://www.hotscripts.com
Prueba allí
salu2

Ruchu · #3 (**permalink**) 25/06/2002, 12:28

ahi va:

<%
'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.micache.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>"

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

Ruchu · #4 (**permalink**) 25/06/2002, 12:29

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>

Elalux · #5 (**permalink**) 25/06/2002, 16:14

Rucho, eres mi Idolo, mi modelo a seguir, toda mi vida se basará en tus enseñanzas, GRACIAS

Ruchu · #6 (**permalink**) 25/06/2002, 16:41

:) :) :) no hace falta que me elogies tanto amigo, para eso estan los foros.

maestro · #7 (**permalink**) 26/06/2002, 12:00

Tengo un problema, busque el dominio que busque siempre obtengo esta cadena de respuesta.

www.dominio1234.com is not available

This is the raw whois output provided by Network Solutions

He revisado las varialbes del whois y no veo el fallo, alguna idea.

Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net

Elalux · #8 (**permalink**) 26/06/2002, 16:41

Maestro se me hace de los mas extraño, probe el script varias veces y funciono de maravilla, tal vez tu servidor ASP no este bien configurado, o tal vez no estas escribiendo bien la direccion que buscas dentro del código.

Revisa los permisos de tu servidor tal vez por ahi esta el problema.

Espero que te ayude