Ir para conteúdo

POWERED BY:

Arquivado

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

Ivan.Teles

Acentuação em AJAX

Por , em Javascript

Recommended Posts

Ivan.Teles    23

Ivan.Teles
Postado

Sistema de autocompletar.

 

Sistema adaptado.

 

página default.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer= True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"

Response.Write "<center><div id='Carregando' style='display:block;'><br><br><br><br><br><br><br><br>"
Response.Write "<font face='Arial, Tahoma' color='#DB251E'><b>Carregando Dados...</b></font><br><br>"
Response.Write "<img src='indicator.gif' alt='Carregando...' border='0'>"
Response.Write "</div></center>"
Response.Flush()
Response.Write "<script language='javascript'>document.all.Carregando.style.display = 'none';</script>"
%>
<!--#include file="banco.asp" -->
<% Session.LCID = 1046 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>VISANET</title>
<script src="js.js" type="text/javascript"></script>
<script type="text/javascript" language="javascript">
   var http_request = false;
   function testarMail(mail) {
	   http_request = false;
	   if (window.XMLHttpRequest) { 
		   http_request = new XMLHttpRequest();
		   if (http_request.overrideMimeType) {
			   http_request.overrideMimeType('text/xml');
		   }
	   } else if (window.ActiveXObject) {
		   try {
			   http_request = new ActiveXObject("Msxml2.XMLHTTP");
		   } catch (e) {
			   try {
				   http_request = new ActiveXObject("Microsoft.XMLHTTP");
			   } catch (e) {}
		   }
	   }

	   if (!http_request) {
		   alert('Erro.');
		   return false;
	   }
	   http_request.onreadystatechange = resultado;
	   http_request.open('GET', mail, true);
	   http_request.send(null);

   }


   function resultado() {

	   if (http_request.readyState == 4) {
		   if (http_request.status == 200) {
			  var resultado = http_request.responseText.split(",");
				if (resultado.length == 3)
				{
					document.getElementById("endereco").value  = resultado[0];
					document.getElementById("cidade").value = resultado[1];
					document.getElementById("complemento").value = resultado[2];
					
				}
		   }
	   }

   }
</script>
<style type="text/css">
<!--
input {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
}
body {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
}
-->
</style>
</head>
<body>
<form method="post" id="form1" name="form1" action="">
  <div align="center">
	<table cellpadding="2" cellspacing="0" class="KT_tngtable">
	  <tr>
		<td colspan="2"></td>
	  </tr>
	  <tr>
		<td><label for="id">Cep</label></td>
		<td><div align="left">
		  <input type="text" name="cep" id="cep" size="32" onKeyUp="testarMail('verifica.asp?cep='+document.getElementById('cep').value);return false;" /></div></td>
	  </tr>
	  <tr>
		<td><label for="senha">Endereço:</label></td>
		<td><div align="left">
		  <input name="endereco" type="text" id="endereco" size="50" />
		</div></td>
	  </tr>
	  <tr>
		<td>Complemento:</td>
		<td><input type="text" name="complemento" id="complemento" size="30" /></td>
	  </tr>
	  <tr>
		<td>Cidade:</td>
		<td><input type="text" name="cidade" id="cidade" size="30" /></td>
	  </tr>
	  <tr>
		<td> </td>
		<td> </td>
	  </tr>
	  <tr>
		<td> </td>
		<td><div align="left">
		  <input type="submit" class="bt" name="submit" id="submit" value="Cadastrar" />
		</div></td>
	  </tr>
	</table>
  </div>
</form>
</body>
</html>

página verifica.asp

<%@ LANGUAGE="VBScript" %>
<%
	'Buffer output.
	Response.Buffer = true

	'Set response Content-type header.
	Response.ContentType = "text/plain"
cep = request("cep")
If cep <> "" Then

	DB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cepBr.mdb")
	auxsql = "SELECT nome, bai_ini, cep, complemento FROM cep WHERE cep = '"& cep &"'"

	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.CursorLocation = 3
	Rs.Open auxsql, DB

	If not (rs.BOF and rs.EOF) then
		Response.Write(rs("nome") & "," & rs("bai_ini") & "," & rs("complemento"))
	else
	Response.Write("")
	End if
Else

Response.Write("")

End if
%>

Como fazer pros acentos ficarem normais, mesmo definindo

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

 

ele não ta acentuando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

não ja tentei da erro:

 

Objeto Response erro 'ASP 0156 : 80004005'

Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página.

Compartilhar este post

Link para o post
Compartilhar em outros sites

micox    2

micox
Postado

Voce tem que colocar NO INÍCIO DO CÓDIGO. Antes de qualquer espaço ou enter, antes de TUDO.Se o arquivo for chamado através de include, voce tem que colocar no arquivo original (o que chama o include).

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Javascript
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito