..:: MX Studio Fóruns ::..: Verificar dominio registrado - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

ATENÇÃO

Para evitar posts desnecessários e que não influam para o andamento e desenvolvimento do fórum, clique aqui e leia todas as regras.
Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Verificar dominio registrado

#1 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 04 February 2010 - 01:35 AM

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.
CÓDIGO
<%
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,.nam
e"
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>

0

#2 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 04 February 2010 - 06:13 PM

existe um exemplo, ótimo e funcionando perfeitamente no repositório de códigos, você pode utilizar
0

#3 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 05 February 2010 - 10:28 PM

Você não entendeu este codigo esta funcionado perfeitamente ele pesquisa qual quer extenção
ou seja nacional ou internacional.

O problema e quando o dominio esta registrado ele me dar a opção de mostrar quem registrou conforme abaixo:

http://www.locaweb.com.br

Registrant:

IDELBRANDES GONCALVES DE AMORIM
RUA RN 07 qi 21 lOTE 25, 25
PALMAS - TO
77270000 - BR

Domain Name:

domain: igadino.com
nserver: ns1.apserver11.net
nserver: ns2.apserver11.net
created: 20091028
changed: 20100106

Administrative Contact:

person: IDELBRANDES GONCALVES DE AMORIM
address: RUA RN 07 qi 21 lOTE 25, 25
address: PALMAS - TO
address: 77270000 - BR
phone: +63 92320506
e-mail: igadino@yahoo.com.br

Technical Contact:

person: IDELBRANDES GONCALVES DE AMORIM
address: RUA RN 07 qi 21 lOTE 25, 25
address: PALMAS - TO
address: 77270000 - BR
phone: +63 92320506
e-mail: igadino@yahoo.com.br


0

#4 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 06 February 2010 - 11:40 AM

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,
não sei se através de componente exista um que retorene isso.
0

#5 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 06 February 2010 - 04:14 PM

Em asp eu não sei tem mais em PHP tem porque eu tenho um script em PHP para verificar se o dominio esta ou não registrado tanto faz ser nacional ou internacional e ele me mostra conforme descriminado acima sem prescisar de banco de dados.
0

#6 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 06 February 2010 - 04:37 PM

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
0

#7 User is offline   igadino 

  • Group: Membros
  • Posts: 65
  • Joined: 10-June 05

Posted 07 February 2010 - 11:36 PM

Olha eu conseguir fazer quando eu terminar vou postar para quem esta prescisando.

Segue link para que possam testarem Verifica dominios e ver se funciona ou não.
0

#8 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2077
  • Joined: 04-November 08

Posted 10 February 2010 - 04:53 PM

ótimo, dae eu disponibilizo na seção de repositório de códigos...
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Subdomínios - Como ?
Como posso desenvolver um sistema que crie subdomínios? 		Outros mfilho 
  • 1 Reply
  • 938 Views
New Replies Grupo holandês propõe eliminar domínio ".com"
Terra Tecnologia 		Notícias TiTi Celestino 
  • 0 Replies
  • 292 Views
New Replies Problemas com o Speedy deixam moradores de três condomínios sem internet na Grande SP Notícias Notícias 
  • 0 Replies
  • 239 Views
New Replies relação com o cliente
sobre hospedagem e dominio 		Dúvidas Gerais DIMEBAG 
  • 1 Reply
  • 471 Views
New Replies Registro de domínios passa ao NIC.br
IDG Now! - Internet 		Notícias TiTi Celestino 
  • 0 Replies
  • 304 Views
New Replies Domínio para sites pornográficos motiva processos Notícias Notícias 
  • 0 Replies
  • 28 Views
New Replies ICANN aprova criação de domínio .tel
IDG Now! - Internet 		Notícias TiTi Celestino 
  • 0 Replies
  • 289 Views
New Replies Domínio chinês ".cn" já é o terceiro mais popular do mundo Notícias Notícias 
  • 0 Replies
  • 329 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)