Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal tenho este script para verificar se um dominio esta ou não registrado, se o dominio esta registrado ele tem que me mostra o codigo fonte de quem registrou alguém sabe como fazer isso já procurei na net mais não encontrei.
<%
dim objXML, Resultado, msgErro, srtmethod
Response.Buffer = false
'Set the script timeout to 60 seconds
Server.ScriptTimeout = 60
end_pag = "http://www." & request.form("dominio")&""&request.form("pont")&""
url_dom = request.form("dominio")&""&request.form("pont")&""
dominio=request("dominio")
If request.form("dominio")<>"" then
tipo = split(Request("pont"),".")
tipo_arquivo_2 = "." & tipo(ubound(tipo))
ext_perm = ".com.br,.adm.br,.br,.org.br,.gov.br,.tv.br"
exte = split(ext_perm,",")
a = 0
for i=0 to ubound(exte)
if trim(Lcase(tipo_arquivo_2)) = trim(exte(i)) then
a = 1
end if
next
if a <> 1 then
'aqui verifica os dominios internacional
Set ObjXML = Server.CreateObject("Msxml2.serverXMLHTTP")
if instr(url_dom,"-") or instr(url_dom,"+") > 0 then
objXML.Open "get", end_pag, false
else
objXML.Open "GET", end_pag, false
end if
on error resume next
objXML.Send
Resultado = objXML.ResponseText = ResponseText
If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
else
if Resultado="" then
msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"' ElseIf instr(1,Resultado,"encontrada nenhuma") Then
Else
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
End If
end if
else
'aqui verifica os dominios br
If Len(dominio) < 2 THEN
msgErro = "Erro ! O domínio deve possuir pelo menos dois caracteres"
ElseIf Len(dominio) > 32 THEN
msgErro = "Erro ! O domínio deve possuir no máximo 26 caracteres"
Else
Set ObjXML = Server.CreateObject("Msxml2.ServerXMLHTTP")
ObjXML.Open "GET", "[http://registro.br/cgi-bin/nicbr/whois?qr="&url_dom,](http://registro.br/cgi-bin/nicbr/whois?qr=) False
on error resume next
ObjXML.Send
Resultado = ObjXML.ResponseText
If instr(dominio, ".") > 0 Or instr(dominio, ",") > 0 or instr(dominio, ";") > 0 or instr(dominio, ":") > 0 or instr(dominio, "=") > 0 then
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
else
If instr(1,Resultado,"inexistente") Then
msgErro = "<br><br><strong><font color='blue'>Parabéns, o dominio <font color='#009900'>www."&url_dom&" </font> disponivel para registro</font><br><br></strong>"' ElseIf instr(1,Resultado,"encontrada nenhuma") Then
ElseIf instr(1,Resultado,"encontrada nenhuma") Then
msgErro = "Erro ! Sintaxe Inválida "
ElseIf instr(1,Resultado,"Como fazer uma consulta") Then
msgErro = "Erro ! Sintaxe Inválida "
ElseIf instr(1,Resultado,"Primeiro") Then
msgErro = "Domínio de Primeiro Nível Inválido"
Else
msgErro = "<br><br><strong><font color='blue'>Impossível, o dominio <font color='#FF0000'>www."&url_dom&" </font> não está disponível para registro</font><br><br></strong>"
End If
End If
end if
end if
Set objXML = Nothing
end if<html>
<head>
<title>Registro de dominios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/generalhs.css" rel="stylesheet" type="text/css" />
<link href="css/generalhs.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="prototype.js"></script>
<script type="text/javascript">
function Verifica(event){
var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode;
var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i);
var caract = caract.test(String.fromCharCode(keyCode));
if(!caract){
// alert("Não digite a extensão do domínio neste campo.\nSelecione a extensão na caixa ao lado.\n\nEm caso de subdomínios, digite apenas a parte principal.\n\nExemplo 1 - Domínio desejado - www.adok.com.br\nDigite apenas 'adok' no campo.\n\nExemplo 2 - Domínio desejado (com subdomínio) - www.suporte.adok.com.br\nDigite apenas 'adok' no campo.");
keyCode=0;
return false;
}
}
function bloqueia(msg){
if(event.button != 1)alert('Acesso negado');
}
function GetDominio(){
if (document.formDom.dominio.value.length ==""){
alert("Por favor, digite um nome para seu domínio !");
document.formDom.dominio.focus();
return false;
}
Element.update("content","<span class='txt2'><br /><br />Aguarde, verificando disponibilidade...</span><br /><br /><img src='images/iga_com_br.gif' onmousedown='bloqueia();' width='146' height='12'><br><br>");
var myAjax = new Ajax.Updater({success: 'content'}, 'verifica_dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.pont.value});
}
</script>
</head>
<body>
<form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);">
<table bordercolor="#336699" align="center" border="0">
<tr><td><img src="images/igad_br.gif" alt="Registro de Domínios" width="495" height="21" /></td></tr>
<tr><td width="495"><table border="0" align="center" width="500">
<tr><td align="right" class="txt" width="100%">
<fieldset style="width: 495;" class="fildweb" >
<legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend>
<table border="0" align="center" >
<tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td>
<td><label>
<input name="dominio" type="text" class="camp" id="dominio" size="20" maxlength="59" value="<%=request("dominio")%>" onkeypress="return Verifica(event);">
</label>
<font color="#990000"><strong><font color="#000000">.</font></strong>
<label>
<select id="pont" name="pont" class="text"></select>
</label>
</font></td>
<td><input name="Button" type="submit" class="bot" value="Procurar" />
</td></tr></table>
</fieldset>
</td></tr>
</table>
<table border="0" align="center" width="500">
<tr><td align="left" class="txt" width="100%">
<div id="content" align="center">
<div align="center"></div>
<div align="left">
<%
If request("dominio")<>"" then
if Resultado = "" or instr(1,Resultado,"inexistente") then%>
<a href="contratar_dominio.asp?dom=<%=url_dom%>">Registrar este domínio</a></div>
</div>
</strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org, .org.br, .gov.br, .tv.br,</font><br />
</strong>Extensões disponíveis: <font color="#0000FF">.com, .net, .info, .name</font><br />
</td></tr>
</table>
</td></tr></table>
</form>
</body>
</html>Esse script não esta funcionando.
o que eu postei ele funciona em qualque ISS e ele retorna a respostra bem rapido.
você quer que ele mostre quem registrou , né
para isso terá que ter acesso as informações da empres, do bd dela, não sei se é possivel,
acredito que por componentes você conseguirá e sem componente você deverá saber quais info buscar no XMLHTTP , para ele devolver essas info.
se você tem acesso a esse code php, tente verficar o que ele esta resgatando do XMLHTTP
laboratorio de scripts ASP = http://forum.imasters.com.br/index.php?/topic/331695-consultar-servidor-whois/page__fromsearch__1