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%>>
<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>
Pergunta
Marcos-rj
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%>> <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>Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.