Jump to content


Photo

Sistema De Whois


  • This topic is locked This topic is locked
Nenhuma resposta neste tópico

#1 Marcos-RJ

Marcos-RJ

    Turista

  • Usuários
  • 31 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro

Posted 28/08/2006, 15:55

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


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

verifica.asp

<% Option Explicit %>
<% 
'Elimina o armazenamento no Buffer
Response.Buffer = true

'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", "https://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="439" 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="39" <%IF Request.QueryString("Dominio") <> ""  THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>>&nbsp;
		  <input type="submit" value="Consultar" name="B1"></p>
		</form>
	  </td>
	</tr>
	<tr>
	  <td bgcolor="#D4D4D4" align="center" height="27"><font size="2" face="Verdana" color="#FF0000"><b><%IF Request.QueryString("Dominio") <> ""  THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></b></font></td>
	</tr>
  </table>
  

  </center>
</div>

</body>

</html>

Se a resposta te ajudou, retorne ao tópico e diga, pois facilitará para outros usuarios

"É melhor pensar e depois falar, do que falar para depois pensar."
"Faça, cometa erros, mais não espere que as coisas aconteçam...nada cai do céu...as coisas so aconteceram se você fizer acontecer..."

Tenha sua loja virtual:
www.infomarcos.com




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq