|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Verificando se um domínio está ou não Registrado
|
 |
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
Segue o código:
<% Option Explicit %>
<%
'*******************************************************************************************'
' VERIFICANDO SE UM DOMÍNIO ESTÁ OU NÃO REGISTRADO '
'*******************************************************************************************'
' 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"><font size="2" face="Verdana">Digite
o domínio com a extensão, e sem o www. </font></td>
</tr>
<tr>
<td align="center">
<form method="GET" action="verifica.asp">
<p>
<input type="text" name="Dominio" size="20" <%IF Request.QueryString("Dominio") <> "" THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>>
<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"><%IF Request.QueryString("Dominio") <> "" THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></font></td>
</tr>
</table>
<p align="center"><font face="Verdana" size="2">..:: Desenvolvimento <a href="mailto:reavilla@terra.com.br">Renato
Motzko Soares Avilla</a> ::..</font></p>
</center>
</div>
</body>
</html>
T+,
|
|
|
|
|
