Heute, als ich das UTF-8-Programm in der Suchleiste korrigierte, stellte ich fest, dass das generierte UTF-8-Format-Dokument einen verstümmelten Code hatte und die Originaldatei war
Der Code von create_html.asp lautet wie folgt:
Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "65001"%>
<%
setObjrs = server.createObject ("scripting.FilesSystemObject"))
conn = server.mappath ("example.xml")
setStream = objrs.opentextfile (conn, 1, true, -2)
content = stream.readall
Response.write (Inhalt)
stream.close
%>
Die Funktion zum Implementieren dieses Codes lautet: Text einschließlich Chinesen aus example.xml (UTF-8-Format) und dann ausgabe, aber jedes Mal, wenn die Ausgabe verstümmelt ist. Dieses Problem hat mich sehr lange gestört. Später wurde es mit Hilfe der klassischen Foren "Xiao Han" und "Xiao Xiaoyu" gelöst. Danke ihnen.
Vielleicht habe ich mich am Anfang falsch gemacht, aber jetzt wird der richtige Code wie folgt geändert, wobei der von "Xiao Xiaoyu" angegebene Code verwendet wird, einschließlich der Verwendung des Leseinhalts, um ein neues UTF-8-Formatdokument zu generieren. Der detaillierte Code lautet wie folgt:
Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "65001"%>
<%Antwort.CodePage = 65001%>
<%Response.charset = "utf-8"%>
<%
'Variablen deklarieren
dimread_path, write_paht, Inhalt
'---- Lesen Sie den Dateiinhalt ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunktionReadTextFile (Filepath, Charset)
Dimstm
setstm = server.createObject ("adodb.stream")
STM.Type = 1'Attypeinary, gelesen nach Binärdaten
stm.mode = 3'AdModeradWrite, hier können nur 3 verwendet werden, um andere zu verwenden, und verursacht Fehler.
stm.open
stm.loadfromFileFilepath
stm.position = 0''Move den Zeiger zurück zum Startpunkt
stm.type = 2'text -Daten
stm.charSet = charSet
ReadTextFile = stm.ReadText
stm.close
setstm = nichts
Endfunktion
'--- Schreiben in die Datei ----------------------------------
SubwriteTextfile (Filepath, FileContent, Charset)
Dimstm
setstm = server.createObject ("adodb.stream")
stm.type = 2'AttyPext, Textdaten
stm.mode = 3'adModeradWrite, lesen und schreiben, wenn dieser Parameter 2 verwendet, verursacht er einen Fehler.