Ir para conteúdo
Fórum Script Brasil
  • 0

Verificar dominio registrado


igadino

Pergunta

Pessoal estou tentando melhorar este script para verificar se o dominio esta ou não registrado se ele esta registrado me mostra as informações do registro ok

O problema e que quando eu marco so os dominio internacional ele funciona perfeitamente já os dominio nacionais não esta funcionado.

se eu conseguir enviar os checkbox com os valores ".com.br,.net.br,.adv.br,.org.br,.tv.br,.gov.br,.adm.br" para ser pesquisado no registro br

e os checkbox com os valores ".com,.net,.org,.info" Internic

Exemplo:

Se for escolhido so dominio internacional ele tem que fazer a consulta só na linha azul e se for escolhido somente dominio nacional tem que fazer consulta só na linha vermelha e se for escolhido nacional e internacional tem que fazer consulta nas duas linha azul e vermelha

If InStr(ext_perm, ",") > 0 Then

xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic=" &Replace(endereco & dominio, " .",".")& "&type=domain", False

xmlhttp.send Else

xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False

xmlhttp.send("qr="&Replace(endereco & dominio, " .",".")) End If

Olha eu conseguir fazer este

Verifica dominios quero adptar com os checkbox para depois disponibilizar.

<% 
Server.ScriptTimeout = 99999999 
Dim dominio 
Dim endereco 
Dim xmlhttp 
Dim Resultado 
Dim arrayDominios 
Dim verificarDominios 
Dim contador 
Dim detalhe 
Dim dominiosInternic
Dim dominiosInt 
Dim dominiosRegistroBr 
If request("endereco")<>"" then 
endereco= Request("endereco")
dominio=Request("dominio") 
dominiosRegistroBr = ""&dominio&"" 
verificarDominios = Replace(dominio, ",", ",") 
arrayDominios = Split(verificarDominios, ",") 
 Response.ContentType = "text/html" 
 For contador = Lbound(arrayDominios) To Ubound(arrayDominios) 
        dominio = arrayDominios(contador) 
        detalhe = "" 
        If dominio <> "" Then 
                        Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") 
                   If InStr(1, dominiosRegistroBr, ",") > 0 Then 
                          xmlhttp.Open "GET", "http://reports.internic.net/cgi/whois?whois_nic="&Replace(endereco & dominio, " .",".")& "&type=domain", False 
                       xmlhttp.send 
                Else 
                        xmlhttp.Open "POST", "https://registro.br/cgi-bin/whois/#lresp", False 
                        xmlhttp.send("qr=" &Replace(endereco & dominio, " .",".")) 
                End If 
                Resultado = BinaryToString(xmlhttp.responseBody) 
    If InStr(1, dominiosRegistroBr, ",") > 0 Then 
            If InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 or not InStr(1, Resultado, "Domain Name", vbTextCompare) > 0 Or InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then
            If saida <> "" Then saida = saida & "" 
            saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""85%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" 
            Else
            If saida <> "" Then saida = saida & "" 
            saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe &  "</td></tr></table></div></td></tr>" 
            saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" 
            If InStr(1, Resultado, "NOT AUTHORITATIVE", vbTextCompare) > 0 and InStr(1, Resultado, "No match for domain", vbTextCompare) > 0 and InStr(1, Resultado, "No match for registrar", vbTextCompare) > 0 Then 
            ElseIf InStr(1, Resultado, "Domain Name:", vbTextCompare) > 0 or InStr(1, Resultado, "Name Server:", vbTextCompare) > 0 Then 
            posInicioDetalhe = InStr(1, Resultado, "Domain Name:", vbTextCompare) 
            If posInicioDetalhe > 0 Then 
            posFimDetalhe = InStr(1, Mid(Resultado, posInicioDetalhe), "Expiration Date", vbTextCompare) + 29 
            End If 
            If posFimDetalhe > 0 or posInicioDetalhe > 0 Then 
            detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) 
            detalhe = Replace(detalhe, "Registrar:", "<br />Registrar:") 
            detalhe = Replace(detalhe, "Whois Server:", "<br />Whois Server:") 
            detalhe = Replace(detalhe, "URL:", "<br />URL:") 
            detalhe = Replace(detalhe, "Name Server:", "<br />Name Server:") 
            detalhe = Replace(detalhe, "Status:", "<br /> Status:") 
            detalhe = Replace(detalhe, "Updated Date:", "<br />Updated Date:") 
            detalhe = Replace(detalhe, "Creation Date:", "<br />Creation Date:") 
            detalhe = Replace(detalhe, "Expiration Date:", "<br />Expiration Date:") 
            end if
            end if
            end if
'==============================                        
            else
                        If InStr(1, Resultado, "Domínio inexistente", vbTextCompare) > 0 Then 
                                If saida <> "" Then saida = saida & "" 
                                saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ /></td><td width=""75%""><strong>" &Replace(endereco & dominio, " .",".")& "</strong></td><td width=""15%""><img src=""../images/disponivel.png"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""blue"">Disponivel</font></td></tr>" 
                        ElseIf InStr(1, Resultado, "Sintaxe inválida", vbTextCompare) > 0 Or InStr(1, Resultado, "ASN inexistente", vbTextCompare) > 0 Then 
                                If saida <> "" Then saida = saida & "" 
                                saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>URL invalida</td></tr>" 
                        ElseIf InStr(1, Resultado, "Consulta inválida", vbTextCompare) > 0 Then 
                                If saida <> "" Then saida = saida & "" 
                                saida = saida & "<tr><td width=""3""></td><td><span style=""color:red;"">" &Replace(endereco & dominio, " .",".")& "</span></td><td>Consulta invalida</td></tr>" 
                        ElseIf InStr(1, Resultado, "ID entidade:", vbTextCompare) > 0 And InStr(1, Resultado, "servidor DNS:", vbTextCompare) > 0 Then 
                                posInicioDetalhe = InStr(1, Resultado, "domínio:", vbTextCompare) 
                                If posInicioDetalhe > 0 Then 
                                        posFimDetalhe = InStrRev(Mid(Resultado, posInicioDetalhe), "alterado") + 25 
                                End If 
                                If posFimDetalhe > 0 And posInicioDetalhe > 0 Then 
                                        detalhe = Mid(Resultado, posInicioDetalhe, posFimDetalhe) 
'                                        detalhe = limparHtml(detalhe) 
                                        detalhe = Replace(detalhe, "entidade:", "<br />entidade:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "documento:", "<br />documento:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "responsável:", "<br />responsável:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "país:", "<br />país:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "ID entidade:", "<br />ID entidade:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "ID admin:", "<br />ID admin:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "ID técnico:", "<br />ID técnico:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "ID cobrança:", "<br />ID cobrança:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "servidor DNS:", "<br />servidor DNS:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "status DNS:", "<br />status DNS:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "último AA:", "<br />último AA:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "expiração:", "<br />expiração:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "status:", "<br />status:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "ID:", "<br />ID:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "e-mail:", "<br />e-mail:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "criado:", "<br />criado:", 1, -1, 1) 
                                        detalhe = Replace(detalhe, "alterado:", "<br />alterado:", 1, -1, 1) 
                                End If 
                                If saida <> "" Then saida = saida & "" 
                                  saida = saida & "<tr><td colspan=""3""><div style=""display:none;"" id=""d"&varCont&"_mais_menos""></div><div style=""display:none;"" id=""periodo_"&varCont&"""><table width=""100%""><tr><td>"& detalhe &  "</td></tr></table></div></td></tr>" 
                                 saida = saida & "<tr><td width=""3""><input type=""checkbox"" value=""" &Replace(endereco & dominio, " .",".")& """ disabled/></td><td width=""85%""><a href=""http://www."&Replace(endereco & dominio, " .",".")&""" target=""_blank""><font color=""red"">" &Replace(endereco & dominio, " .",".")& "</font></a></span></td><td width=""15%""><a class=""rteimage"" onclick=""window.open('Checker_detalhes.asp?dominio="&endereco&"&pont="&Replace(dominio, " .",".")&"','','scrollbars=yes,top=10,left=10,width=300,height=350');"" class=""hiperlink""><img src=""../images/mais.gif"" name=""d"&varCont&"_mais_menos"" align=""absmiddle"" border=""0"" width=""10"" height=""10""> <font color=""red"">Indisponivel</font></a></td></tr>" 

                        End If   
            end if
    end if
    Next
end if
Public Function BinaryToString(xBinary) 
        Dim Binary 
        Dim RS, LBinary 
        If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary 
        Const adLongVarChar = 201 
        Set RS = CreateObject("ADODB.Recordset") 
        LBinary = LenB(Binary) 
        If LBinary>0 Then 
                RS.Fields.Append "mBinary", adLongVarChar, LBinary 
                RS.Open 
                RS.AddNew 
                RS("mBinary").AppendChunk Binary  
                RS.Update 
                BinaryToString = RS("mBinary") 
        Else 
                BinaryToString = "" 
        End If 
        Set RS = Nothing 
End Function 

Public Function MultiByteToBinary(MultiByte) 
        Dim RS, LMultiByte, Binary 
        Const adLongVarBinary = 205 
        Set RS = CreateObject("ADODB.Recordset") 
        LMultiByte = LenB(MultiByte) 
        If LMultiByte>0 Then 
                RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte 
                RS.Open 
                RS.AddNew 
                RS("mBinary").AppendChunk MultiByte & ChrB(0) 
                RS.Update 
                Binary = RS("mBinary").GetChunk(LMultiByte) 
        End If 
        Set RS = Nothing 
        MultiByteToBinary = Binary 
End Function 

%>
<html>
<head>
<title>Registro de dominios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/show_ads.css" rel="stylesheet" type="text/css" />
<link href="css/generalhs.css" rel="stylesheet" type="text/css" />
&lt;script type="text/javascript" src="prototype.js"></script>
&lt;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.endereco.value.length ==""){
        alert("Por favor, digite um nome para seu domínio !");
        document.formDom.endereco.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'>");
            var myAjax = new Ajax.Updater({success: 'content'}, 'Dominios.asp?dom=<%=request("dominio")%>', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.dominio.value});
          }
                    <!--
                var imgmais = new Image();
                var imgmenos = new Image();
                imgmais.src = "../images/mais.gif"
                imgmenos.src = "../images/menos.gif"
                function mostrar_mais(quem,mm){
                    var mmimg = eval(mm+"_mais_menos")
                    if (quem.style.display == "none"){
                        quem.style.display = ""
                        mmimg.src = imgmenos.src
                    }else{
                        quem.style.display = "none"
                        mmimg.src = imgmais.src
                    }
                }
            //-->
</script>
</head>
<body class="tabela01">
<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" width="100%" >
<tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td>
<td><label>
<input name="endereco" type="text" class="camp" id="endereco" size="20" maxlength="59" value="<%=request("endereco")%>" onkeypress="return Verifica(event);">
</label>
</td>
</tr>
<tr><td colspan="3">
<input type="checkbox" value=".com.br"name="dominio">.com.br
<input type="checkbox" value=".adm.br"name="dominio">.adm.br
<input type="checkbox" value=".br"name="dominio">.br
<input type="checkbox" value=".net.br"name="dominio">.net.br
<input type="checkbox" value=".org.br"name="dominio">.org.br
<input type="checkbox" value=".gov.br"name="dominio">.gov.br
<input type="checkbox" value=".tv.br"name="dominio">.tv.br<br>
<input type="checkbox" value=".com"name="dominio">.com
<input type="checkbox" value=".net"name="dominio">.net
<input type="checkbox" value=".org"name="dominio">.org
<input type="checkbox" value=".info"name="dominio">.info

</td></tr>
<td><td><input name="Button" type="submit" class="bot" value="Procurar" /></td></tr>
</table>
</fieldset>
</td></tr>
</table>
<div  id="d1_mais_menos" align="center">
<div  id="content" align="center">
<table border="1" align="center" cellpadding="1" cellspacing="1" width="100%">
<tr><td align="center" ><b>X</b></td><td align="center" width="75%"><b>Dominios</b></td><td align="center" width="20%"><b>Status</b></td></tr>
<tr><td colspan="4" width="100%">
<div align="center">
<%=saida%> 
</div>
</td></tr>
</table>
</div>
</div>
</strong>Extensões disponíveis: <font color="#0000FF">.com.br, .adm.br, .br, .net.br, .org.br, .gov.br, .tv.br,</font><br />
</strong>Extensões disponíveis: <font color="#0000FF">.com, .net</font><br />
</td></tr></table>
</form>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...