Problema con acentos objeto ResponseText en asp

ocarrasco20 · #1 (**permalink**) 22/12/2011, 15:09

Estimados recurro a ustedes nuevamente apreciando su ayuda.

Les cuento mi tema debo obtener la salida HTML de un asp y despues unirlo con un css lo cual lo realizo bien, el problema creo q son los acentos o caracteres extraños que no soporta y me envía un error asp.Otro punto importante que he cambiado ya varias veces la codificacion(ISO-8859-1, UTF-8) ambas iguales en cada lado y nada. A veces me funciona cuando trabajo con utf-8 supuestamente no me envia error asp pero solamente me muestra en un archivo html aparte solo la mitad del informe, pero en el navegador se ve completo y al tracear con firebug sale los css externos con códigos de lenguaje chino. bueno les dejo mis codigos

P.D: el informe tiene varios include html solo muestro una parte y tambi'en los css tienen declarada su codificacion.

Código HTML:

Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Informe Final</title>
<link href="css/estilos_rep34.css" rel="stylesheet" type="text/css" />
<link href="css/css_nuevo.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
   
 function nuevoAjax(){
    
    var xmlhttp=false;
     
     try {
        
        xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
        
     } catch (e) {
         
        try {
            
            xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
            
        } catch (E) {
            
            xmlhttp = false;
        }
     }
 
     if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
         
        xmlhttp = new XMLHttpRequest();
        
     }
     
     return xmlhttp;
     
 }
   
 
 
  function Carga(){
      
    var strUrl = document.URL;
    
    strUrl = strUrl.toString();  
    peticion = nuevoAjax(); 
    peticion.open("GET", "crear_informe_estatico.asp?intCodColegio="+<%=Request("codigocolegio")%>+"&url="+strUrl, true);
    peticion.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded;charset=iso-8859-1');
    
    peticion.onreadystatechange = function () {
        /*
       if (peticion.readyState == 4) {
            document.getElementById('resultado').innerHTML = peticion.responseText;
        }
        */
    }
 
    peticion.send(null);
      
  }
  
</script>
<body onLoad="Carga();">
<p>El presente informe entrega una visión general de los logros alcanzados por su colegio con el proyecto eMAT durante el año escolar.</p>
      <p>&nbsp;</p>
      <p><a href="#Criterios"><strong>● Criterios de la muestra</strong></a></p>
      <p>&nbsp;</p>
      <p><a href="#Resumen"><strong>● Resumen informe final</strong></a></p>
      <p>&nbsp;</p>
      <p><a href="#Evaluaciones"><strong>● Promedio de evaluaciones e incremento de logro por eje tem&aacute;tico por nivel escolar</strong></a></p>
</body>
</html>

Código ASP:

Ver original'Response.AddHeader "Content-Type", "text/html; charset=utf-8"
  
  Dim objXML, strUrl, objHTML, objCSS, strInforme, strCSS, strHTML, strBody, i
  
  Const ForReading = 1, ForWriting = 2 
  
  Set objXML = Nothing
 
  Set fso = Nothing
 
  'strUrl = "http://192.168.2.64:83/oscar/informefinal/02.1_CRITERIOS.asp?codigocolegio=19012087"   
  
  strUrl = Request("url")
 
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  
  If fso.FileExists( Server.MapPath( Request("intCodColegio") & ".html" ) ) = False And Request("intCodColegio") <> Empty Then 
   
    Call crear_informe( strUrl, fso )   
 
  
  End If
 
   'Procedimiento generador de informe
  Sub crear_informe( strUrl, fso )
 
     'Set objXML = Servger.CreateObject ("Microsoft.XMLHTTP")
      Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
     'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
     'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")
 
     If Err then
        Response.write "Error: " & Err.Description
     End if
    
    
    
    
    objXML.Open "GET", strURL, false, "", ""
    Response.Charset = "ISO-8859-1" 
    objXML.send
 
    If objXML.Status >= 400 And objXML.Status <= 599 Then
        Response.write "Error al obtener página: " & objXML.Status & " - " & objXML.statusText
    Else
        ResponsePage = objXML.ResponseText
    End If
        
    'Quita llamado a funcion para no volverse a autollamar
    ResponsePage = Replace( ResponsePage, "Carga();", "" )
            
 
    Set f = fso.CreateTextFile(Server.Mappath("informe_intermedio.html"), True, True)
        
    'Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
    
    
    f.Write ResponsePage
    
    Response.Flush()
    f.Close
    Set objXML = Nothing
                
 End Sub

Nota: Cuando cambio en el codigo asp el segundo atributo de la funcion CreateTextFile de False a True me genera el informe pero incompleto bajandolo desde el server ftp pero en el navegador completo pero como les decia anteriormente con codigos raros en el llamado a los css externos.

Esperando su ayuda ya que esto me tiene de cabeza.

Gracias

yeyowave · #2 (**permalink**) 23/12/2011, 06:36

me paso lo mismo y sufri, esto en la asp de respuesta

Response.Expires = -100
Response.Expiresabsolute = Now() - 100
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.AddHeader "Access-Control-Allow-Origin","*"
Response.ContentType="text/html"
Response.Charset = "iso-8859-1"
%>

yeyowave · #3 (**permalink**) 23/12/2011, 06:37

ahh otra cosa, no inicies aqui el script te dara errores...

<body onLoad="Carga();">

ocarrasco20 · #4 (**permalink**) 26/12/2011, 08:35

Gracias yeyowave me sirvió de mucho eso, lo otro q me comentas con el evento onload me sirve porque si lo llamo por código por asp se va a demorar mucho ya que ese evento cuando termina de cargarse la página le envío los datos por AJAX.

yeyowave · #5 (**permalink**) 26/12/2011, 12:28

si, pero no lo hagas desde el onload de la etiqueta body

ocarrasco20 · #6 (**permalink**) 26/12/2011, 15:09

Entonces desde cual etiqueta HTML lo hago?, porque es cuando ejecuto el asp no es un acción de pinchar un enlace o algo así.

yeyowave · #7 (**permalink**) 27/12/2011, 05:55

desde un archivo javascript con y ajax

$(document).ready(function() {
funcion_a_ejecutar()
});

ocarrasco20 · #8 (**permalink**) 27/12/2011, 07:58

Estimada ¿Como podría hacer ese código sin jquery?, te pregunto porq acá en el trabajo no dejan usar jquery.

gracias