Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal estou com um pequeno problema neste codigo ja tentei de varias maneira
para conrrigir um erro
www.uol.com diz que esta disponivel para registro
www.redeglobo.com diz que esta disponivel para registro
www.redeglobo.com.br diz que esta disponivel para registro
<%
Response.Buffer = false
Dim criaconexao 'Variavel para o Objeto XMLHTTP
Dim pagina 'Variavel para guardar retorno da consulta
Dim mensagem1 ' variavel
'refeito por lucas forever
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
procuraurl = "http://www." & request.form("dominio")&""&request.form("pont")&""
dominio = request.form("dominio")&""&request.form("pont")&""
' Cria um objeto XML
Set criaconexao = Server.CreateObject("Microsoft.XMLHTTP")
' Conecta-se com a url buscada
criaconexao.Open "GET", ""&procuraurl,false
on error resume next
criaconexao.Send
pagina = criaconexao.getResponseHeader("Date")
' Retorna a busca
if pagina ="" then
mensagem1 = "www."&dominio&"<br><br><strong><font color='#009900'>Parabéns, domínio disponivel para registro<br</font></strong>"
else
mensagem1 = "www."&dominio&"<br><br><strong><font color='#FF0000'>Impossível, domínio já registrado<br></font></strong>"
end if
Set criaconexao = Nothing
end if
%>
<html>
<head>
<title>Registro de dominios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/javascript" src="prototype.js"></script>
<script>
function Verifica(event){
var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode;
var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i);
var caract = caract.test(String.fromCharCode(keyCode));
if(!caract){
//alert("Caracter inválido: " +String.fromCharCode(keyCode));
keyCode=0;
return false;
}
}
function GetDominio(){
if (document.formDom.dominio.value.length < 3){
alert("Por favor, digite um nome para seu domínio !");
document.formDom.dominio.focus();
return false;
}
Element.update("content","<span class='txt2'>Pesquisando, aguarde...</span><br /><br /><img src='images/iga_com_br.gif' width='146' height='12'>");
var myAjax = new Ajax.Updater({success: 'content'}, '/Verifica_domino.asp', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.pont.value});
}
</script>
</head>
<body>
<p align="justify" class="txt">
<form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);">
<table border="0" align="center">
<tr><td align="right" class="txt">
<fieldset style="width: 99%;" class="fildweb" >
<legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend>
<table border="0" align="center">
<tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td>
<td><label>
<input name="dominio" type="text" class="camp" id="dominio" size="20" maxlength="59" value="<%=request("dominio")%>" onkeypress="return Verifica(event);" />
</label>
<font color="#990000"><strong><font color="#000000">.</font></strong>
<label>
<select id="pont" name="pont" class="text">
<%
lista=".com.br,.com,.net,.adm.br,.br"
MTT="com.br,com,net,adm.br,br"
arrsetor3=split(request("pont"),", ")
arrsetores3=split(lista,",")
mostra_form=split(MTT,",")
for y = LBOUND(mostra_form) to ubound(mostra_form)
response.write"<option value="&arrsetores3(y)
for x= LBOUND(arrsetor3) to ubound(arrsetor3)
if arrsetor3(x) = arrsetores3(y) then response.write " selected" '" selected='selected'"
next
response.write">"&mostra_form(y)&"</option>"&vbcr
next
%>
</select>
</label>
</font></td>
<td><input name="Button" type="submit" class="bot" value="Procurar" />
</td></tr></table>
</fieldset>
</td></tr>
<tr><td>
<div id="content" align="center">
<div align="center">
<%=mensagem1%>
</div>
<div align="left">
<%if pagina = "" then%>
<a href="#">Registrar este domínio</a>
<%end if%>
</div>
</div>
</td></tr>
</table>
</form>
</body>
</html>Nem todos os sites vão retornar o getResponseHeader("Date"). Por isso que está dando errado. Acho que essa não é a melhor forma de se verificar isso.
Mais qual o componente que retorna a resposta de qualquer SITE.
olha este exemplo:
<%@ Language=VBScript %>
<%
if len(Request.Form("DOMAINNAME")) <> 0 then
Dim objXML, objXSL, objFSO
Dim strFile, strFileName, strXSL
Dim strURL, theString
' URL
strURL = "http://registro.br/cgi-bin/nicbr/whois?qr="&Request.Form("DOMAINNAME")
'Create Object
Set objXML = CreateObject("Microsoft.XMLHTTP")
' Get Code
objXML.Open "get", strURL, False
objXML.Send
xmlGet = objXML.responseText
'Search
if instr(1,xmlGet,"inexistente:",1) then
sHTML = "Domínio disponível !!!"
Color = "green"
else
sHTML = "Domínio não disponível !!!"
Color = "red"
'________________________________________________________________
my1String = "<pre>"
my2String = "</pre>"strFind1 = instr(1,xmlGet,my1String,1)
strFinal1 = mid(xmlGet,strFind1,len(my1String))
strFind2 = instr(1,xmlGet,my2String,1)
strFinal2 = mid(xmlGet,strFind2,len(my2String))
RegisterName = mid(xmlGet,strFind1,(strFind2-strFind1))
end if
Set objXML = Nothing
end if
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align=center>
<form method="post" action="<%=request.servervariables("SCRIPT_NAME")%>" id=form1 name=form1>
<FONT color=#002e5b face=geneva,arial,sans-serif size=2>
<B>Nome do domínio </B></FONT>
<font color="#002e5b" face="geneva,arial,sans-serif" size="1">(Ex: teste.com.br)</font>
<FONT color=#002e5b face=geneva,arial,sans-serif size=2><B>:<br>
<input type="text" name="DOMAINNAME" size="69"></B>
</FONT>
<hr>
<input type="Submit" value="Pesquisar" id=Submit1 name=Submit1>
<INPUT type="button" value="Fechar janela" onclick="window.self.close()" id=button1 name=button1>
</form>
</td>
</tr>
</table><%if len(sHTML) <> 0 then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="center">
<hr>
<b><font color="#002e5b" face="geneva,arial,sans-serif" size="2">Resultado da busca :</font></b>
</tr>
<tr>
<td width="100%" align="center">
<table border="1" cellspacing="1" cellpadding="1" align="center" bgcolor="#D6D6D6" bordercolorlight="#FFFFFF" bordercolordark="#CCCCCC" bordercolor="#FFFFFF">
<tr>
<td width="100%" align=center>
<FONT color=#002e5b face=geneva,arial,sans-serif size=3>| <B><%=LCASE(Request.Form("DOMAINNAME"))%></b> |</font><BR><BR>
<FONT color=<%=Color%> face=geneva,arial,sans-serif size=2><B><%=sHTML%><BR></b></font>
</td>
</tr>
<TR>
<td width="100%" align=left>
<FONT color="#000000" face=geneva,arial,sans-serif size=2><p align=left>
<pre><%=RegisterName%></pre></p>
</font>
</td>
</tr>
</table>
</tr>
<tr>
<td width="100%" align="center">
<hr>
</tr>
<tr>
<td width="100%" align="center">
</tr>
</table>O codigo acima verifica varios dominios, só ta dando erro em alguns dominio .com mesmo o registro tando indisponivel me retorna que esta disponivel para registro
Galera eu conseguir arrumar o script para consultar qualguer dominio nacional e internacional para saber se o esta registrado ou não.
embre vou postar aqui.
Bacana. Estamos no aguardo. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
aproveita e coloca tb no laboratório de script...
Pessoal descobrir mais um erro neste script e não sei como corrigir alguem tem uma ideia
quando eu altero objXML.Open "GET para "get" o SITE www.hostsys.com, aparece a mensagem disponivel para registro.
195 DOMOMIO .COM.BR, .BR, .ORG.BR, .GOV.BR SO DEU ERRO WWW.MAIL-YAHOO.COM
TESTEI 235 DOMINIO INTERNACIONAL .COM, .NET, .NAME SO DEU ERRO NO WWW.MAIL-YAHOO.COM.BR
SE O LINK PARA TESTAREM Verifica dominios
Como está seu script nesse momento?
Esle esta funcionando perfeitamente so que tem um erro quando eu mando pesquisar o dominio mail-yahoo.com me retorna dizendo que esta livre para registra. não sei como retirar esse erro
Isso, mas posta o código para podermos entender o problema.
As vezes uma simples comparação pode está atrapalhando.
Movido de Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP