Hoy, cuando estaba corrigiendo el programa UTF-8 en la barra de búsqueda, descubrí que el documento de formato UTF-8 generado tenía código confuso, y el archivo original era
El código de create_html.asp es el siguiente:
La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "65001"%>
<%
setobjrs = server.createObject ("scripting.filesystemObject")
conn = server.mappath ("Ejemplo.xml")
setstream = objrs.opeNextFile (Conn, 1, true, -2)
contenido = stream.readall
Response.write (contenido)
transmisión. Clara
%>
La función para implementar este código es: Leer texto, incluido el chino del ejemplo.xml (formato UTF-8), y luego lo emite, pero cada vez que la salida está confusa. Este problema realmente me molestó durante mucho tiempo. Más tarde, se resolvió con la ayuda de los foros clásicos "Xiao Han" y "Xiao Xiaoyu". Gracias.
Tal vez me equivoqué al principio, pero ahora el código correcto se modifica de la siguiente manera, utilizando el código dado por "Xiao Xiaoyu", incluido el uso del contenido de lectura para generar un nuevo documento de formato UTF-8. El código detallado es el siguiente:
La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "65001"%>
<%Respuesta.codepage = 65001%>
<%Respuesta.charset = "utf-8"%>
<%
'Declarar variables
dimread_path, write_paht, contenido
'---- Lea el contenido del archivo ----------------------------------------------------------------------------------------------------------------
FunctionElEntTextFile (FilePath, Charset)
dimstm
setstm = server.createObject ("ADODB.Stream")
stm.type = 1'adtypebinary, lea en según datos binarios
stm.mode = 3'AdModeReadWrite, solo 3 se pueden usar aquí para usar otros y causarán errores.
stm.open
stm.LoadFromFileFilepath
stm.Position = 0'Mo el puntero de regreso al punto de partida
stm.type = 2'text data
stm.charset = charset
ReadTextFile = stm.readText
stm. cerrar
setstm = nada
Función final
'--- Escribir al archivo ------------------------------
SubwriteTextFile (FilePath, FileContent, Charset)
dimstm
setstm = server.createObject ("ADODB.Stream")
stm.type = 2'adtypetext, datos de texto
stm.mode = 3'AdModeReadWrite, lea y escriba, si este parámetro usa 2, causará un error.