Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

reavilla

Verificando se um domínio está ou não Registrado

Por , em ASP Clássico

Recommended Posts

reavilla    0

reavilla
Postado

Verificando se um domínio está ou não Registrado

(válido para domínios .br)

 

 

Há muito tempo que venho acompanhando nos fóruns pela internet , um assunto que sempre deixa uma lacuna é a verificação de domínios utilizando ASP.

 

Após algum tempo e pesquisas cheguei a um script simples e funcional que poderá ser a base para soluções mais complexas. Descrevo abaixo como funciona o script que tem por base o Componente XMLHTTP da Microsoft.

 

A estratégia do Script consiste em utilizar o componente XMLHTTP para efetuar uma requisição do endereço de consulta, no site do Registro.Br :

 

http://registro.br/cgi-bin/nicbr/whois?qr=dominio

 

Em seguida vamos comparar o a String de Retorno com as palavras chaves que indicarão se o domínio está ou não disponível para Registro.

 

Apesar de ser simples, a solução pode ser implementada para consultar outros domínios internacionais como: .com . net .info etc ... bastando mudar o endereço base de consulta e criar mecanismos que verifiquem a extensão do domínio e realizem o redirecionamento.

 

 

Espero ter ajudado.

 

Qualquer sugestão, favor enviar para o email reavilla@terra.com.br

 

Abraço,

 

Renato Motzko Soares Avilla - 05/07/2003

 

Segue o código .asp :

 

 

<% Option Explicit %>

<%

 

'****************************************************************************

 

***************'

' VERIFICANDO SE UM DOMÍNIO ESTÁ OU NÃO REGISTRADO '

'****************************************************************************

 

***************'

' AUTOR: Renato Motzko Soares Avilla '

' EMAIL: reavilla@terra.com.br '

' VERSAO: 1.0 '

' DATA: 05/07/2003 '

' '

' ATENÇÃO : Esse script tem por objetivo oferecer uam alternativa à consulta de registros '

' no Brasil, no entanto o autor não oferece nenhum suporte ao mesmo. sendo o usuário livre '

' para modificá-lo e adaptá-lo as suas necessidades. '

' No entanto gostaria de saber quais sites estão utilizando esse script para isso basta '

' enviar um email com sua opinião para : reavilla@terra.com.br '

' '

'****************************************************************************

 

****************

 

 

'Elimina o armazenamento no Buffer

Response.Buffer = false

 

'Função para consulta de Domínio no sites ww.registro.br

Private Function VerificaDominio(Dominio)

 

Dim ObjXML 'Variavel para o Objeto XMLHTTP

Dim ResultadoConsulta 'Variavel para guardar retorno da consulta

Dim Situacao

 

' verifica as condições básicas de sintaxe do domínio

If Len(Dominio) < 9 THEN

 

Situacao = "Erro ! O domínio deve possuir pelo menos dois caracteres"

 

ElseIf Len(Dominio) > 32 THEN

 

Situacao = "Erro ! O domínio deve possuir no máximo 26 caracteres"

Else

 

' Cria a instância no objeto no servidor

Set ObjXML = Server.CreateObject("Microsoft.XMLHTTP")

 

' Obtem a página do endereço base do registro.br

ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&Dominio, False

 

'Envia a requisição e aguarda a Resposta

ObjXML.Send

 

'Guarda o Retorno em uma variável para comparação posterior

ResultadoConsulta = ObjXML.ResponseText

 

'Pesquisa por palavras chaves no texto para obter o resultado

 

If instr(1,ResultadoConsulta,"inexistente") Then

 

Situacao = "Disponível para Registro"

 

ElseIf instr(1,ResultadoConsulta,"encontrada nenhuma") Then

 

Situacao = "Erro ! Sintaxe Inválida "

 

ElseIf instr(1,ResultadoConsulta,"Como fazer uma consulta") Then

 

Situacao = "Erro ! Sintaxe Inválida "

 

ElseIf instr(1,ResultadoConsulta,"Primeiro") Then

 

Situacao = "Domínio de Primeiro Nível Inválido"

 

Else

Situacao = "Dominio já Registrado"

End If

 

End If

'retorna o resultado à função

VerificaDominio = Situacao

End Function

%>

 

<html>

 

<head>

<title>Verficando Domínios</title>

</head>

 

<body>

 

<div align="center">

<center>

<table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid #000000">

<tr>

<td bgcolor="#D4D4D4" align="center"><b><font size="2" face="Verdana">Digite

o domínio com a extensão, e sem o www. </font></b></td>

</tr>

<tr>

<td align="center">

<form method="GET" action="verifica.asp">

<p><br><input type="text" name="Dominio" size="20" <%IF Request.QueryString("Dominio") <> "" THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>><br>

<input type="submit" value="Consultar" name="B1"><input type="reset" value="Limpar" name="B2"></p>

</form>

</td>

</tr>

<tr>

<td bgcolor="#D4D4D4" align="center"><font size="2" face="Verdana" color="#FF0000"><b><%IF Request.QueryString("Dominio") <> "" THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></b></font></td>

</tr>

</table>

 

<p align="center"><b><font face="Verdana" size="2">..:: Desenvolvimento <a href="mailto:reavilla@terra.com.br">Renato

Motzko Soares Avilla</a> ::..</font></b></p>

 

 

</center>

</div>

 

</body>

 

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito