Ir para conteúdo

POWERED BY:

Arquivado

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

mkboy

Busca de Domínios

Por , em ASP Clássico

Recommended Posts

mkboy    1

mkboy
Postado

Pesquisei aqui e achei dezenas de resultados...visitei um a um e nada.Preciso de um sistema simples em ASP que PESQUISE dominios NACIONAIs e INTERNACIONAIS e me de uma página com o resultado para que eu possa personalizar!Se alguem tiver um funcional e quiser arrumar di boa... legal...Se alguem tiver algum funcional e queira vender, por favor, me mostro o sistema e de o valor!QQ coisa maikon@pescaki.com.brGRATO!

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

procura no google por estas palavras todas juntas.. q virão uma série de links q provavelmente vai te ajudar... ai qdo achar, posta aki uma solução, beleza

 

check WHOIS domain asp component
;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcos-rj    0

marcos-rj
Postado

Para dominios nacionais você pode usar o codigo abaixo, internacionas eu não sei.

 

<% Option Explicit %><% 'Elimina o armazenamento no BufferResponse.Buffer = true'Função para consulta de Domínio no sites ww.registro.brPrivate 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 = SituacaoEnd 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%>> 		  <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>

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