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, 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">
Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio (seunome@seunome.com.br) é o primeiro passo.
<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">
<%
lista=".com.br,.com,.net,.adm.br,.br,.net.br,.org,.org.br,.gov.br,.tv.br,.info,.name"
MTT="com.br,com,net,adm.br,br,net.br,org,org.br,gov.br,tv.br,info,name"
arrsetor3=split(request("pont"),", ")
arrsetores3=split(lista,",")
mostra_form=split(MTT,",")
for y = LBOUND(mostra_form) to ubound(mostra_form)
response.write"<option value="&arrsetores3(y)
for x= LBOUND(arrsetor3) to ubound(arrsetor3)
if arrsetor3(x) = arrsetores3(y) then response.write " selected"
next
response.write">"&mostra_form(y)&"</option>"&vbcr
next
%>
</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">
<%=msgErro%>
</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>
<%else%>
<a href="#"><b>Ver quem registros</b></a>
<%
end if
end if
%>
</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>
Pergunta
igadino
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, 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"> Para o seu negócio ter sucesso, é fundamental marcar presença na Web. Possuir um site personalizado e um endereço de e-mail próprio (seunome@seunome.com.br) é o primeiro passo. <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"> <% lista=".com.br,.com,.net,.adm.br,.br,.net.br,.org,.org.br,.gov.br,.tv.br,.info,.name" MTT="com.br,com,net,adm.br,br,net.br,org,org.br,gov.br,tv.br,info,name" arrsetor3=split(request("pont"),", ") arrsetores3=split(lista,",") mostra_form=split(MTT,",") for y = LBOUND(mostra_form) to ubound(mostra_form) response.write"<option value="&arrsetores3(y) for x= LBOUND(arrsetor3) to ubound(arrsetor3) if arrsetor3(x) = arrsetores3(y) then response.write " selected" next response.write">"&mostra_form(y)&"</option>"&vbcr next %> </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"> <%=msgErro%> </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> <%else%> <a href="#"><b>Ver quem registros</b></a> <% end if end if %> </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>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.