USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página