pesquisa de domínios no próprio site !!!

[Rulez2k 0]

Boa Tarde Galera,Em alguns sites você pesquisa por domínios e a resposta não vem no site da FAPESP, ele mostra a mensagem se está disponível ou não no próprio layout do site, e claro traz todas as informações do domínio igual quando se pesquisa pela FAPESP, porém a diferença é que fica no layout do site.... sei que é possível fazer isso utilizando o componente ASP HTTP, mas não é free, é pago...alguém sabe como fazer isso utilizando algum método que não tenha que pagar licensa? mesmo que necessite de instalação de componentes....o problema é que tem que ser em ASP :/Agradeço quem puder ajudar!!

[silas_i 0]

Ve se isso te ajuda...

 

<%'Fixa a resposta True ou falseResponse.Buffer = False' Fixa o intervalo do script a 90 segundosServer.ScriptTimeout = 90'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 buscastrWhoisResultString = objXMLHTTP.ResponseText'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'Ler 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)strDomainName = Replace(strDomainName, ".net.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".gov.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".nom.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".edu.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".ind.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".org.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%>

<%'If a domain name is enterd check itIf strDomainName <> "" Then'Display the avialbilityResponse.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 .comIf strSuffix = ".com" Then Response.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "<pre>", "</pre>"))'check for .netElseIf 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>"))ElseIf strSuffix = ".net.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".net.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".gov.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".gov.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".nom.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".nom.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".edu.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".edu.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".ind.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".ind.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".org.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".org.br&type=domain", "GET", "<pre>", "</pre>"))End If 'Finsh the red span tagResponse.Write("</pre>") End If %>

[Rulez2k 0]

Silas, valeu pelo código brother!!Só que não consegui utiliza-lo com sucesso...dá erroError Type:Response object, ASP 0157 (0x80004005)Buffering cannot be turned off once it is already turned on.a página de pesquisa preciso colocar 1 text para o domínio e uma select para a extensão? tipo .com.br, .gov.br, etc ?ou da pra deixar apenas um text e o cara digita por exemplo:www.uol.com.bre ele já pesquisa?valeu

[silas_i 0]

é necessário ter prefixados os prefixos dos domínios sim...

 

Olha o exemplo do meu form, ve se resolve isso pra você.

 

form id="search" name="frmDomainCheck" action="../busca_dominio.asp">      <a href="">busca de domínios: </a>      <input name="domain" type="TEXT" class="capsule" value="<% = strDomainName %>" size="20" maxlength="35">                          <select name="suffix" class="feature">                            <option<% If Request.QueryString("suffix") = ".br" Then Response.Write(" selected")%>> .br</option>                            <option selected>.com.br</option>                            <option<% If Request.QueryString("suffix") = ".edu.br" Then Response.Write(" selected")%>> .edu.br</option>                            <option>.gov.br</option>                            <option<% If Request.QueryString("suffix") = ".net.br" Then Response.Write(" selected")%>> .net.br</option>                            <option>.nom.br</option>                            <option<% If Request.QueryString("suffix") = ".ind.br" Then Response.Write(" selected")%>> .ind.br</option>                            <option<% If Request.QueryString("suffix") = ".org.br" Then Response.Write(" selected")%>> .org.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 name="imageField" type="image" src="../images/button-ok.gif" width="26" height="9" border="0">    </form>

[Rulez2k 0]

é necessário ter prefixados os prefixos dos domínios sim...Olha o exemplo do meu form, ve se resolve isso pra você.

form id="search" name="frmDomainCheck" action="../busca_dominio.asp">      <a href="">busca de domínios: </a>      <input name="domain" type="TEXT" class="capsule" value="<% = strDomainName %>" size="20" maxlength="35">                          <select name="suffix" class="feature">                            <option<% If Request.QueryString("suffix") = ".br" Then Response.Write(" selected")%>> .br</option>                            <option selected>.com.br</option>                            <option<% If Request.QueryString("suffix") = ".edu.br" Then Response.Write(" selected")%>> .edu.br</option>                            <option>.gov.br</option>                            <option<% If Request.QueryString("suffix") = ".net.br" Then Response.Write(" selected")%>> .net.br</option>                            <option>.nom.br</option>                            <option<% If Request.QueryString("suffix") = ".ind.br" Then Response.Write(" selected")%>> .ind.br</option>                            <option<% If Request.QueryString("suffix") = ".org.br" Then Response.Write(" selected")%>> .org.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 name="imageField" type="image" src="../images/button-ok.gif" width="26" height="9" border="0">    </form>

tentei colocar o código inteiro na página mas não entendi o funcionamento, pois nos campos você já da request de variáveis que eu nem sei pra que serve :/ e o erro que ele dá não é nem no formulário (requests) e sim o mesmo erro falando:Response object, ASP 0157 (0x80004005)Buffering cannot be turned off once it is already turned on.é certo q desta forma não é necessário NENHUM componente?malz aew a newbizisse heheh

<html><head>	<title>Teste</title></head><body><%'Fixa a resposta True ou falseResponse.Buffer = False' Fixa o intervalo do script a 90 segundosServer.ScriptTimeout = 90'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 buscastrWhoisResultString = objXMLHTTP.ResponseText'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'Ler 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)strDomainName = Replace(strDomainName, ".net.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".gov.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".nom.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".edu.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".ind.br", "", 1, -1, 1)strDomainName = Replace(strDomainName, ".org.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%><%'If a domain name is enterd check itIf strDomainName <> "" Then'Display the avialbilityResponse.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 .comIf strSuffix = ".com" Then Response.Write(whoisResult("http://reports.internic.net/cgi-bin/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "<pre>", "</pre>"))'check for .netElseIf 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>"))ElseIf strSuffix = ".net.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".net.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".gov.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".gov.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".nom.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".nom.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".edu.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".edu.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".ind.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".ind.br&type=domain", "GET", "<pre>", "</pre>"))ElseIf strSuffix = ".org.br" Then Response.Write(whoisResult("http://registro.br/cgi-bin/nicbr/whois?qr=" & strDomainName & ".org.br&type=domain", "GET", "<pre>", "</pre>"))End If 'Finsh the red span tagResponse.Write("</pre>") End If %><form id="search" name="frmDomainCheck" action="../busca_dominio.asp">     <a href="">busca de domínios: </a>     <input name="domain" type="TEXT" class="capsule" value="<% = strDomainName %>" size="20" maxlength="35">                         <select name="suffix" class="feature">                           <option<% If Request.QueryString("suffix") = ".br" Then Response.Write(" selected")%>> .br</option>                           <option selected>.com.br</option>                           <option<% If Request.QueryString("suffix") = ".edu.br" Then Response.Write(" selected")%>> .edu.br</option>                           <option>.gov.br</option>                           <option<% If Request.QueryString("suffix") = ".net.br" Then Response.Write(" selected")%>> .net.br</option>                           <option>.nom.br</option>                           <option<% If Request.QueryString("suffix") = ".ind.br" Then Response.Write(" selected")%>> .ind.br</option>                           <option<% If Request.QueryString("suffix") = ".org.br" Then Response.Write(" selected")%>> .org.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 name="imageField" type="image" src="../images/button-ok.gif" width="26" height="9" border="0">   </form></body></html>

[Rulez2k 0]

tentei daqui de casa e da o mesmo erro :(

[Rulez2k 0]

Silas me disseram que esse esquema de http://registro.br/cgi-bin/nicbr/whois?qr não funciona mais assim na fapesp, eles mudaram a sintaxe para pesquisa!!! você sabe se esse seu script funciona ainda? tem como enviar o .asp pois aqui não está funcionando!!

 

valeuu ;)

[Rulez2k 0]

Dê uma olhada em http://sistemas.rede2.com.br/whois_1/ Abraços;

legal !!! mas precisava de 1 solução free :)