Busca de dominios

1sys · Setembro 6, 2003

Galera peguei em um site um buscador de dominios e implantei a busca em dominio.com.br para testar

Clique aqui

Codigo:

ASP

<% Option Explicit %>

<%

'Fixa a resposta True ou false

Response.Buffer = False

' Fixa o intervalo do script a 90 segundos

Server.ScriptTimeout = 90

'funcionam para examinar o servidor de buscas

Private Function whoisResult(whoisURL, strMethod, strResultsStart, strResultsEnd)

'Dimensões da variavél

Dim objXMLHTTP 'Holds the XML HTTP Object

Dim strWhoisResultString 'Holds the reult of the whois query

' Cria um objeto de XML para examinar o servidor de buscas remoto

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

'componente alternativo, para versão 3.0 de XMLHTTP

'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

'Abre uma conexão com o servidor de busca

objXMLHTTP.Open strMethod, whoisURL, False

'Envia o pedido e devolve os dados

objXMLHTTP.Send

'Coloca a resposta do registro da busca

strWhoisResultString = objXMLHTTP.ResponseText

'Se o nome do domínio é curto fala que é inválido

If Len(strDomainName) < 3 Then

'Não mostar o resultado de retorno da função para válido

whoisResult = "O domínio não e válido - deve ser pelo menos 3 caráters"

'Outros erros

ElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then

'Mostra o resultado do retorno da função

whoisResult = "Um erro ocorreu"

'Else there was a result

Else

'Strip the whois result leaving the data we want

whoisResult = resultFormater(strWhoisResultString, strResultsStart, strResultsEnd)

End If

'Clean up

Set objXMLHTTP = Nothing

End Function

'Function to strip all non estential returned input

Private Function resultFormater(strWhoisResultString, strResultsStart, strResultsEnd)

'Dimension variables

Dim lngResultsStartPos

Dim lngResultsEndPos

'Find the start position in the returned data of the result

lngResultsStartPos = InStr(1, strWhoisResultString, strResultsStart, 1) + Len(strResultsStart)

'Find the end position in the returned data of the result

lngResultsEndPos = InStr(lngResultsStartPos, strWhoisResultString, strResultsEnd, 1)

'Make sure the end position is not in error

If lngResultsEndPos - lngResultsStartPos =< Len(strResultsStart) Then lngResultsEndPos = lngResultsStartPos + Len(strResultsStart)

'Now we know the start and end position of the result, strip the rest and return the result

resultFormater = Trim(Mid(strWhoisResultString, lngResultsStartPos, (lngResultsEndPos - lngResultsStartPos)))

End Function

'Function to strip non alphanumeric characters

Private Function characterStrip(strTextInput)

'Variáveis de dimensão

Dim intLoopCounter 'Holds the loop counter

'Loop through the ASCII characters up to - hyphen

For intLoopCounter = 0 to 44

strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)

For intLoopCounter = 46 to 47

strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)

For intLoopCounter = 58 to 96

strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)

For intLoopCounter = 123 to 255

strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)

characterStrip = strTextInput

End Function

'Variáveis de dimensão

Dim strDomainName 'Holds the domain name to search for

Dim strSuffix 'Holds the domain name suffix to search

'Leir o nome do domínio a ser procurarado

strDomainName = Trim(Request.QueryString("domain"))

strSuffix = Trim(Request.QueryString("suffix"))

'Se um nome de domínio foi colocado retira qualquer caráter não desejado

If strDomainName <> "" Then

'Converte o nome de domínio para conferir, para minúscula

strDomainName = LCase(strDomainName)

'Remove o www e http da frente

strDomainName = Replace(strDomainName, "http://", "", 1, -1, 1)

strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1)

'Remove os sufixos

strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1)

strDomainName = Replace(strDomainName, ".net", "", 1, -1, 1)

strDomainName = Replace(strDomainName, ".org", "", 1, -1, 1)

strDomainName = Replace(strDomainName, ".com.br", "", 1, -1, 1)

'Remove qualquer um dos primeiro e últimos caráters

If Left(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 2, Len(strDomainName))

If Right(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 1, Len(strDomainName)-1)

'Retira o caracters em dobro

strDomainName = Replace(strDomainName, "--", "-", 1, -1, 1)

'Retira todos os caracters alphanumericos

strDomainName = characterStrip(strDomainName)

End If

%>

<html>

<head>

<title>Busca de dominios</title>

</head>

<tr>

<td class="arial" height="4" width="356"> Entre com o nome do domínio: </td>

</tr>

<tr>

www.<input type="TEXT" name="domain" maxlength="35" size="20" value="<% = strDomainName %>">

<option<% If Request.QueryString("suffix") = ".com.br" Then Response.Write(" selected")%>>

.com.br</option><option<% If Request.QueryString("suffix") = ".com" Then Response.Write(" selected")%>>.com</option><option<% If Request.QueryString("suffix") = ".net" Then Response.Write(" selected")%>>.net</option><option<% If Request.QueryString("suffix") = ".org" Then Response.Write(" selected")%>>.org</option>

</select>

<input type="submit" value="Buscar>>" name="submit">

</td>

</tr>

<tr>

</tr>

</table>

</form>

<tr>

<td>

<%

'If a domain name is enterd check it

If strDomainName <> "" Then

'Display the avialbility

Response.Write("<b>O resultado da sua busca para o domínio foi www." & strDomainName & strSuffix & "</b><pre>")

'Call the domain checking function depending on domain suffix

'Check for .com

If strSuffix = ".com" Then

Response.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "<pre>", "</pre>"))

'check for .net

ElseIf strSuffix = ".net" Then

Response.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "<pre>", "</pre>"))

'Check for .org

ElseIf strSuffix = ".org" Then

Response.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "<pre>", "</pre>"))

ElseIf strSuffix = ".com.br" Then

Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".com.br&type=domain", "GET", "<pre>", "</pre>"))

End If

'Finsh the red span tag

Response.Write("</pre>")

End If

%>

</td>

</tr>

</table>

<br>

</center>

<br>

<p align="center">Sistema retirado do site <a href="http://www.webwizguide.info">

[url="http://www.webwizguide.info</a>"]http://www.webwizguide.info</a>[/url] </p>

<p align="center">E modificado por <a href="mailto:webdesignner@ig.com.br">1sys</a></p>

</body>

</html>[/font]

a.crow · Setembro 7, 2003

'Function to strip non alphanumeric charactersPrivate Function characterStrip(strTextInput)'Variáveis de dimensãoDim intLoopCounter 'Holds the loop counter'Loop through the ASCII characters up to - hyphenFor intLoopCounter = 0 to 44strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next'Olha caráters de ASCII para caracaters numéricosFor intLoopCounter = 46 to 47strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next'Loop through the ASCII characters numeric characters to lower-case charactersFor intLoopCounter = 58 to 96strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next'Olha os caráters de ASCII estendidosFor intLoopCounter = 123 to 255strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next'Retorna a stringcharacterStrip = strTextInputEnd Function

Esse pedaço serve para corrigir o velho problema que existe com os caracteres estendidos quando buscamos uma página pelo XMLHTTP ? Acho que sim, né?

m2brasil · Setembro 12, 2003

Brother,Este script é show de bola...Valeu a divulgação!Magno B)

jstecnologia · Setembro 17, 2003

Cara...Copiei esse código para eu usar na minha página mas está dando um erro..########################O resultado da sua busca para o domínio foi www.dominio.com.br Server object error 'ASP 0177 : 800401f3'Server.CreateObject Failed/teste.asp, line 18System message, messageid = 0x800401f3########################Na linha 18 tem o seguinte line 17 - ' Cria um objeto de XML para examinar o servidor de buscas remotoline 18 - Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")Alguém poderia me ajudar a corrigir esse erro.Valeu..

Salgado · Setembro 17, 2003

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/teste.asp, line 18

System message, messageid = 0x800401f3

Aparentemente seu server não possui o componente.

silas_i · Setembro 18, 2003

É o Salgado tem razão !

jstecnologia · Setembro 22, 2003

:D valeu kara.. Entrei em contato com o servidor de hospedagem e realmente não funciona o esquema de xml.Valeu pela atenção.

jago · Outubro 9, 2003

Quando cliquei no link para teste deu esse erroMicrosoft VBScript compilation error '800a0400' Expected statement /poemasdeamor/busca.asp, line 6 Option Explicit^

Wild · Novembro 8, 2003

:D Comigo funcionou tudo...Valeu e parabéns!!!!!!!!!!!O sisteminha é do caraca....

br1 · Novembro 16, 2003

valeu camarada o meu funfo, da umas codificação f*** mais beleza... tava atrz desse codigo a tempos...

lucianobruch · Novembro 20, 2003

E o problema com a acentuação das palavras, alguem sabe porque dá esse problema ou sabe resolver?

thiagocs · Novembro 20, 2003

esse código é bom mesmo só que estou precisando utilizar tb para o canadá. Mas tá mó treta.

WHOIS:http://www.cira.ca/cira/public/

lucianobruch · Novembro 20, 2003

E o problema com a acentuação das palavras, alguem sabe porque dá esse problema ou sabe resolver?
Tenta colocar o código abaixo na parte superior do script:

<?xml version="1.0" encoding="ISO-8859-1"?>

Isso não resolve o problema, mas sim cria outros....

Mas valeu assim mesmo....

Alguem sabe resolver?

Rulez2k · Abril 21, 2004

E o problema com a acentuação das palavras, alguem sabe porque dá esse problema ou sabe resolver?

pode cre mano só falta isso pra o script ficar nota 10000 alguém sabe como resolver isso? pra ele mostra de fato igualzinho a registro.br:no lugar de: dom?omostrar: domíniono lugar de: endere? mostrar: endereçono lugar de: respons?lmostrar responsávele por ai vai... e também o alinhamento dos textos que não fica igual o da registro.br (talves isso seja devido a substituição de alguns caracteres neh) :)

Rulez2k · Junho 10, 2004

up!alguém manja como fazer isso q coloquei acima? por favorrrrr

Rulez2k · Julho 4, 2004

up! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Mário Monteiro · Março 21, 2005

bacana o sistema

KBR · Julho 22, 2005

Alguém sabe como resolver o problema de acentuação?Na parte de cima do resultado está sendo exibido dessa forma:"O resultado da sua busca para o domínio foi www.rklinformatica.com.br"Sendo que o correto seria:"O resultado da sua busca para o domínio foi:"Alguém sabe como alterar???Grato,

Generation · Julho 22, 2005

Alguém sabe como resolver o problema de acentuação?

Na parte de cima do resultado está sendo exibido dessa forma:

"O resultado da sua busca para o domínio foi www.rklinformatica.com.br"

Sendo que o correto seria:

"O resultado da sua busca para o domínio foi:"

Alguém sabe como alterar???

Grato,

<{POST_SNAPBACK}>

Substitua essa linha:

ASP

[*]'Display the avialbility

[*]Response.Write("<b>O resultado da sua busca para o domínio foi www." & strDomainName & strSuffix & "</b><pre>")

Por essa:

ASP

[*]'Display the avialbility

[*]Response.Write("<b>O resultado da sua busca para o domínio foi :</b><pre>")

[]'s

KBR · Julho 22, 2005

OK!, não tinha reparado.Bom, e sobre a acentuação?Alguém sabe como resolver o problema de acentuação?

Arquivado

Busca de dominios

Recommended Posts

1sys 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

a.crow 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

m2brasil 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jstecnologia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

silas_i 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jstecnologia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jago 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wild 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

br1 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lucianobruch 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

thiagocs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lucianobruch 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rulez2k 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rulez2k 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rulez2k 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

KBR 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Generation 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

KBR 0