Ir para conteúdo

Arquivado

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

igadino

Verificando se

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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>
<%end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

aproveita e coloca tb no laboratório de script...

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como está seu script nesse momento?

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Isso, mas posta o código para podermos entender o problema.

 

As vezes uma simples comparação pode está atrapalhando.

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