Asp + ajax + utf8

[mgusdl]

Buenos días.

Tengo un problema y llevo 2 horas mirando por todas partes.

El escenario del crimen es un formulario donde se introducen unos datos y se envían, previa validación, mediante post de manera asíncrona de esta manera:

Código PHP:

  var frm = document.forms.miFormulario;
var qString = "a=1";
for (i=0; i<frm.elements.length; i++)
    {
    qString += "&"+ frm.elements[i].name + "=" + frm.elements[i].value;
    }
var xo = xmlobj();
xo.open('POST', 'xml_recibe.asp?d1=' + d1 + '&d2=' + d2 + '&d3=' + d3);
xo.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
xo.onreadystatechange = function()
    {
    if (xo.readyState == 4)
        {
        alert(xo.responseText);
        if (xo.responseText.substring(0, 5) != 'Error') frm.reset();
        cargaAluP(ex, af, gr);
        }
    }
xo.send(qString); 
   

La funcion xmlobj() está más que probada y lo único que hace es crear el objeto ajax.

Estos datos se reciben en el citado archivo, se procesan y se insertan en una BD MSSQL.

La solución empezó por comenzar el archivo con:

Código PHP:

  <%@ Language=VBScript Codepage=65001 %> 
   

También he probado, con peores resultados, una función similar a utf8_decode de PHP que me he encontrado.

Después de solucionar las tildes, ñ y resto de caracteres aún me queda que se pierden los espacios en la conversión
Es decir, si envío la cadena "PEPE GONZALEZ", en la BD acaba guardado "PEPEGONZALEZ"

También he probado cambiar la codificación de los archivos implicados de ANSI a UTF8, sin ningún cambio ni a mejor ni a peor.

De momento estoy pensando aplicar un parche, sustituyendo " " por los caracteres ";:" y restaurando luego en destino, pero me gustaría saber si alguien tiene una solución más... bonita.

[PosProdukcion]

Por probar, prueba también esta: <%@ Language=VBScript Codepage=1252 %> , a mi me solucipnó el mismo problema (sin Ajax, solo ASP).

¿En la BD los campos son varchar() o nvarchar()? S son UTF-8 deberían ser nvarchar(), que es unicode.

Y si tienes un servidor o hosting, prueba también en el servidor, a mi este tipo de problemas me ocurren solo en local, no en remoto (ya te digo, que yo lo solucioné con el Codepage=1252.

Si no... siempre puedes ir a la solución drástica:

Código asp:

Function quitaTildes(texto)
        If not EsNulo(texto) Then
            texto = Replace(texto, "¡", "", 1, Len(texto), 1)
            texto = Replace(texto, "¿", "", 1, Len(texto), 1)
            texto = Replace(texto, "'", "", 1, Len(texto), 1)
 
            Texto = Replace(Texto, "á", "a", 1, Len(Texto), 1)
            Texto = Replace(Texto, "é", "e", 1, Len(Texto), 1)
            Texto = Replace(Texto, "í", "i", 1, Len(Texto), 1)
            Texto = Replace(Texto, "ó", "o", 1, Len(Texto), 1)
            Texto = Replace(Texto, "ú", "u", 1, Len(Texto), 1)
            Texto = Replace(Texto, "ñ", "n", 1, Len(Texto), 1)
            texto = Replace(texto, "ç", "c", 1, Len(texto), 1)
 
            texto = Replace(texto, "Á", "A", 1, Len(texto), 1)
            texto = Replace(texto, "É", "E", 1, Len(texto), 1)
            texto = Replace(texto, "Í", "I", 1, Len(texto), 1)
            texto = Replace(texto, "Ó", "O", 1, Len(texto), 1)
            texto = Replace(texto, "Ú", "U", 1, Len(texto), 1)
            texto = Replace(texto, "Ñ", "N", 1, Len(texto), 1)
            texto = Replace(texto, "Ç", "C", 1, Len(texto), 1)
 
            texto = Replace(texto, "à", "a", 1, Len(Texto), 1)
            texto = Replace(texto, "è", "e", 1, Len(Texto), 1)
            texto = Replace(texto, "ì", "i", 1, Len(Texto), 1)
            texto = Replace(texto, "ò", "o", 1, Len(Texto), 1)
            texto = Replace(texto, "ù", "u", 1, Len(Texto), 1)
                                        
            texto = Replace(texto, "À",  "A", 1, Len(texto), 1) 
            texto = Replace(texto, "È",  "E", 1, Len(texto), 1) 
            texto = Replace(texto, "Ì",  "I", 1, Len(texto), 1) 
            texto = Replace(texto, "Ò",  "O", 1, Len(texto), 1) 
            texto = Replace(texto, "Ù",  "U", 1, Len(texto), 1) 
 
            texto = Replace(texto, "ä", "a", 1, Len(Texto), 1)
            texto = Replace(texto, "ë", "e", 1, Len(Texto), 1)
            texto = Replace(texto, "ï", "i", 1, Len(Texto), 1)
            texto = Replace(texto, "ö", "o", 1, Len(Texto), 1)
            texto = Replace(texto, "ü", "u", 1, Len(Texto), 1)
 
            texto = Replace(texto, "Ä",  "A", 1, Len(texto), 1) 
            texto = Replace(texto, "Ë",  "E", 1, Len(texto), 1) 
            texto = Replace(texto, "Ï",  "I", 1, Len(texto), 1) 
            texto = Replace(texto, "Ö",  "O", 1, Len(texto), 1) 
            texto = Replace(texto, "Ü",  "U", 1, Len(texto), 1) 
 
            texto = Replace(texto, "â", "a", 1, Len(Texto), 1)
            texto = Replace(texto, "ê", "e", 1, Len(Texto), 1)
            texto = Replace(texto, "î", "i", 1, Len(Texto), 1)
            texto = Replace(texto, "ô", "o", 1, Len(Texto), 1)
            texto = Replace(texto, "û", "u", 1, Len(Texto), 1)
 
            texto = Replace(texto, "Â",  "A", 1, Len(texto), 1) 
            texto = Replace(texto, "Ê",  "E", 1, Len(texto), 1) 
            texto = Replace(texto, "Î",  "I", 1, Len(texto), 1) 
            texto = Replace(texto, "Ô",  "O", 1, Len(texto), 1) 
            texto = Replace(texto, "Û",  "U", 1, Len(texto), 1) 
       Else
            texto = ""
        End If
        quitaTildes = texto
    End Function
 

[mgusdl]

Bueno, lo de poner el servidor en UTF8 no es posible y además corro el riesgo de perder información de muuuuuuuchos alumnos de los ultimos 5 años. Ya lo investigué en su día para otras cosas.

Cambiar a la pagina de codigos 1252 no cambia el hecho de que la información llega en UTF8 si o si, tendria que seguir traduciendo los caracteres, al menos al estar el script con la misma codificacion se entienden.

La solucion del replace es matar moscas a cañonazos, eso lo dejo para los simplistas.

De momento funciona lo que comenté inicialmente, aunque sea un parche es bastante menos código y más eficiente. En vez de usar el método replace nativo de js, he pillado de por ahi una función:

Código PHP:

  function replace(texto, s1, s2) { return texto.split(s1).join(s2); } 
   

Y en la función inicial:

Código PHP:

  for (i=0; i<frm.elements.length; i++)
    {
    qString += "&"+ frm.elements[i].name + "=" + replace(frm.elements[i].value, ' ', ';:');
    } 
   

Luego en ASP, como ya tengo una funcion para limpiar las cadenas y prevenir SQLInjection, simplemente he agregado

Código PHP:

  cadena = Replace(cadena, ";:", " ") 
   

[PosProdukcion]

Iniciado por mgusdl

Cambiar a la pagina de codigos 1252 no cambia el hecho de que la información llega en UTF8 si o si, tendria que seguir traduciendo los caracteres, al menos al estar el script con la misma codificacion se entienden.

Esto (<%@ Language=VBScript Codepage=1252 %>) te lo comentaba porque a mí me funciona en páginas que están en UTF-8, no me preguntes por qué, pero ma fallaba con 65001.

Acerca de esta llamada en el Ajax:

Código:

xo.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");

No indicas el charset del objeto, ¿has probado a poner alguno? ¿Que charset tiene la página llamante?

¿Has probado a hacer la llamada a pelo, sin Ajax, a ver si también ocurre el problema? Si no ocurre está claro que el problema no es del ASP llamado, sino de la llamada en sí

[mgusdl]

Buenas PosProdukcion

He probado lo del charset 1252, además en JS he especificado en la cabecera que sea iso-8859-1, que es el que usa el servidor por defecto y el que se especifica en las cabeceras HTML de la página.

Yo normalmente trabajo con PHP (esto es una parte antigua que aun está en ASP y he de mantener hasta que la jubile) y toda la información en texto que recibo mediante este método la paso por utf8_decode y no tengo más problemas.

Creo que se va ha quedar con lo de la sustitución de los espacios, que funciona OK.

Muchas gracias por las posibilidades aportadas.