Ir para conteúdo

POWERED BY:

Arquivado

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

1sys

Busca de dominios

Por , em ASP Clássico

Recommended Posts

Kibe_Ghost    0

Kibe_Ghost
Postado

Pessoal, tai o codigo corrigido o problema de acentuação..

 

 

Abraços...

 

:natalbiggrin:

 

<% Option Explicit %><%'Fixa a resposta True ou falseResponse.Buffer = False' Fixa o intervalo do script a 90 segundosServer.ScriptTimeout = 90' Adicionei aki abaixo... ################################Function BinaryToString(strBinary)Dim intCount, xBinaryToStringxBinaryToString =""For intCount = 1 to LenB(strBinary)xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))NextBinaryToString = xBinaryToStringEnd Function' Até aki...########################################'funcionam para examinar o servidor de buscasPrivate Function whoisResult(whoisURL, strMethod, strResultsStart, strResultsEnd)'Dimensões da variavélDim objXMLHTTP 'Holds the XML HTTP ObjectDim strWhoisResultString 'Holds the reult of the whois query' Cria um objeto de XML para examinar o servidor de buscas remotoSet 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 buscaobjXMLHTTP.Open strMethod, whoisURL, False'Envia o pedido e devolve os dadosobjXMLHTTP.Send'Coloca a resposta do registro da busca' Alterei esta linha tambem...############################################strWhoisResultString = BinaryToString(objXMLHTTP.ResponseBody)'Se o nome do domínio é curto fala que é inválidoIf Len(strDomainName) < 3 Then'Não mostar o resultado de retorno da função para válidowhoisResult = "O domínio não e válido - deve ser pelo menos 3 caráters"'Outros errosElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then'Mostra o resultado do retorno da funçãowhoisResult = "Um erro ocorreu"'Else there was a resultElse'Strip the whois result leaving the data we wantwhoisResult = resultFormater(strWhoisResultString, strResultsStart, strResultsEnd)End If'Clean upSet objXMLHTTP = NothingEnd Function'Function to strip all non estential returned inputPrivate Function resultFormater(strWhoisResultString, strResultsStart, strResultsEnd)'Dimension variablesDim lngResultsStartPosDim lngResultsEndPos'Find the start position in the returned data of the resultlngResultsStartPos = InStr(1, strWhoisResultString, strResultsStart, 1) + Len(strResultsStart)'Find the end position in the returned data of the resultlngResultsEndPos = InStr(lngResultsStartPos, strWhoisResultString, strResultsEnd, 1)'Make sure the end position is not in errorIf 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 resultresultFormater = Trim(Mid(strWhoisResultString, lngResultsStartPos, (lngResultsEndPos - lngResultsStartPos)))End Function'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'Variáveis de dimensãoDim strDomainName 'Holds the domain name to search forDim strSuffix 'Holds the domain name suffix to search'Leir o nome do domínio a ser procuraradostrDomainName = Trim(Request.QueryString("domain"))strSuffix = Trim(Request.QueryString("suffix"))'Se um nome de domínio foi colocado retira qualquer caráter não desejadoIf strDomainName <> "" Then'Converte o nome de domínio para conferir, para minúsculastrDomainName = LCase(strDomainName)'Remove o www e http da frentestrDomainName = Replace(strDomainName, "http://", "", 1, -1, 1)strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1)'Remove os sufixosstrDomainName = 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átersIf 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 dobrostrDomainName = Replace(strDomainName, "--", "-", 1, -1, 1)'Retira todos os caracters alphanumericosstrDomainName = characterStrip(strDomainName)End If%><html><head><title>Busca de dominios</title></head><body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#FF0000"><form strMethod="get" name="frmDomainCheck" action="busca_registro_dominio.asp"><table cellpadding="0" cellspacing="0" width="500" align="center"><tr><td height="66" width="111" align="right" rowspan="3" valign="middle"> </td><td height="66" width="31" align="left" rowspan="3" valign="middle"> </td><td class="arial" height="4" width="356"> Entre com o nome do domínio: </td></tr><tr><td class="normal" height="2" width="356">www.<input type="TEXT" name="domain" maxlength="35" size="20" value="<% = strDomainName %>"><select name="suffix"><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><td class="normal" height="34" width="356" valign="top"> </td></tr></table></form><center><table width="70%" border="0" cellspacing="1" cellpadding="1"><tr><td><%'If a domain name is enterd check itIf strDomainName <> "" Then'Display the avialbility'Response.Write("<b>O resultado da sua busca para o domínio foi www." & strDomainName & strSuffix & "</b><pre>")Response.Write("<b>O resultado da sua busca para o domínio foi :</b><pre>")'Call the domain checking function depending on domain suffix'Check for .comIf strSuffix = ".com" ThenResponse.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "<pre>", "</pre>"))'check for .netElseIf strSuffix = ".net" ThenResponse.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "<pre>", "</pre>"))'Check for .orgElseIf strSuffix = ".org" ThenResponse.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".com.br" ThenResponse.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".com.br&type=domain", "GET", "<pre>", "</pre>"))End If'Finsh the red span tagResponse.Write("</pre>")End If%></td></tr></table><br><br><br></center><br><p align="center">Sistema retirado do site <a href="http://www.webwizguide.info">http://www.webwizguide.info</a> </p><p align="center">E modificado por <a href="mailto:webdesignner@ig.com.br">1sys</a></p></body></html>
Flws...

Compartilhar este post

Link para o post
Compartilhar em outros sites

romulorasec    0

romulorasec
Postado

O resultado do meu é:[/b]

 

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

 

msxml3.dll error '80070005'

Access is denied.

/whois.asp, line 42

 

A linha em que o erro se refere é:

'Envia o pedido e devolve os dados

objXMLHTTP.Send

 

Já testei em dois servidores, hostnet e maxserver, ambos deu erro o mesmo, e ambos possuem o componente usado XMLHTTP.

Alguem pode me auxiliar na correção.

 

Detalhe só da eese erro quando faço uma busca .com.br.

 

Meu codigo:

 

ASP
<% Option Explicit %>

<%

 

 

 

'Fixa a resposta True ou false

Response.Buffer = False

 

' Fixa o intervalo do script a 90 segundos

Server.ScriptTimeout = 90

 

' Adicionei aki abaixo... ################################

 

Function BinaryToString(strBinary)

Dim intCount, xBinaryToString

xBinaryToString =""

For intCount = 1 to LenB(strBinary)

xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))

Next

BinaryToString = xBinaryToString

End Function

 

' Até aki...########################################

 

'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

 

' Alterei esta linha tambem...############################################

strWhoisResultString = BinaryToString(objXMLHTTP.ResponseBody)

 

 

 

'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)

Next

 

'Olha caráters de ASCII para caracaters numéricos

For intLoopCounter = 46 to 47

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

Next

 

'Loop through the ASCII characters numeric characters to lower-case characters

For intLoopCounter = 58 to 96

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

Next

 

'Olha os caráters de ASCII estendidos

For intLoopCounter = 123 to 255

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

Next

 

'Retorna a string

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>

<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#FF0000">

 

<form strMethod="get" name="frmDomainCheck" action="whois.asp">

<table cellpadding="0" cellspacing="0" width="500" align="center">

<tr>

<td height="66" width="111" align="right" rowspan="3" valign="middle"> </td>

<td height="66" width="31" align="left" rowspan="3" valign="middle"> </td>

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

</tr>

<tr>

<td class="normal" height="2" width="356">

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

<select name="suffix">

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

<td class="normal" height="34" width="356" valign="top"> </td>

</tr>

</table>

</form>

<center>

<table width="70%" border="0" cellspacing="1" cellpadding="1">

<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>")

 

Response.Write("<b>O resultado da sua busca para o domínio foi :</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>

<br>

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

Comigo tbem unico que não funciona é quando vou procurar por dominios .com.brmsxml3.dll error '80070005'Access is denied./busca.asp, line 42'Envia o pedido e devolve os dadosobjXMLHTTP.SendAlguem poderia nos ajudar?Obs: Mesmo na locaweb não funfa

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinícius Siller    0

Vinícius Siller
Postado

Linha 225 coloque assim:

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

Arrumado funfando normalmente!!!

 

Só dar ctrl+c e ctrl+v http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

ASP
<% Option Explicit %>

<%

 

 

 

'Fixa a resposta True ou false

Response.Buffer = False

 

' Fixa o intervalo do script a 90 segundos

Server.ScriptTimeout = 90

 

' Adicionei aki abaixo... ################################

 

Function BinaryToString(strBinary)

Dim intCount, xBinaryToString

xBinaryToString =""

For intCount = 1 to LenB(strBinary)

xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))

Next

BinaryToString = xBinaryToString

End Function

 

' Até aki...########################################

 

'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

 

' Alterei esta linha tambem...############################################

strWhoisResultString = BinaryToString(objXMLHTTP.ResponseBody)

 

 

 

'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)

Next

 

'Olha caráters de ASCII para caracaters numéricos

For intLoopCounter = 46 to 47

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

Next

 

'Loop through the ASCII characters numeric characters to lower-case characters

For intLoopCounter = 58 to 96

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

Next

 

'Olha os caráters de ASCII estendidos

For intLoopCounter = 123 to 255

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

Next

 

'Retorna a string

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>

<body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#FF0000">

 

<form strMethod="get" name="frmDomainCheck" action="busca.asp">

<table cellpadding="0" cellspacing="0" width="500" align="center">

<tr>

<td height="66" width="111" align="right" rowspan="3" valign="middle"> </td>

<td height="66" width="31" align="left" rowspan="3" valign="middle"> </td>

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

</tr>

<tr>

<td class="normal" height="2" width="356">

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

<select name="suffix">

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

<td class="normal" height="34" width="356" valign="top"> </td>

</tr>

</table>

</form>

<center>

<table width="70%" border="0" cellspacing="1" cellpadding="1">

<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>")

 

Response.Write("<b>O resultado da sua busca para o domínio foi :</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>

<br>

 

<br>

</center>

<br>

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

<a href="http://www.webwizguide.info</a>" target="_blank">http://www.webwizguide.info</a></a> </p>

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

</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