Hari ini, ketika saya mengoreksi program UTF-8 di bilah pencarian, saya menemukan bahwa dokumen format UTF-8 yang dihasilkan memiliki kode yang kacau, dan file aslinya adalah
Kode create_html.asp adalah sebagai berikut:
Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "65001"%>
<%
setobjrs = server.createObject ("scripting.filesystemObject")
conn = server.mappath ("example.xml")
setStream = objrs.opentextFile (Conn, 1, true, -2)
konten = stream.readall
Response.write (konten)
stream.close
%>
Fungsi untuk mengimplementasikan kode ini adalah: baca teks termasuk bahasa Cina dari example.xml (format UTF-8), dan kemudian menghasilkannya, tetapi setiap kali output rusak. Masalah ini sangat mengganggu saya untuk waktu yang lama. Kemudian, itu diselesaikan dengan bantuan forum klasik "Xiao Han" dan "Xiao Xiaoyu". Terima kasih.
Mungkin saya salah di awal, tetapi sekarang kode yang benar dimodifikasi sebagai berikut, menggunakan kode yang diberikan oleh "Xiao Xiaoyu", termasuk menggunakan konten yang dibaca untuk menghasilkan dokumen format UTF-8 baru. Kode terperinci adalah sebagai berikut:
Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "65001"%>
<%Response.codepage = 65001%>
<%Response.charset = "UTF-8"%>
<%
'Deklarasikan variabel
DIMREAD_PATH, write_paht, konten
'---- Baca konten file ---------------------------------------------------------------------------------------------------------------------
FunctionReadTextFile (FilePath, Charset)
Dimstm
setstm = server.createObject ("adodb.stream")
STM.Type = 1'AdTypeBinary, dibaca menurut data biner
STM.Mode = 3'AdModereadWrite, hanya 3 yang dapat digunakan di sini untuk menggunakan orang lain dan akan menyebabkan kesalahan.
stm.open
STM.LoadFromFileFilePath
stm.position = 0'move pointer kembali ke titik awal
stm.type = 2'text data
stm.charset = charset
ReadTextFile = stm.readtext
stm.close
setstm = tidak ada
Fungsi endfungsi
'--- Tulis ke file ------------------------------
SubwritetextFile (FilePath, FileContent, Charset)
Dimstm
setstm = server.createObject ("adodb.stream")
stm.type = 2'Adtypetext, data teks
stm.mode = 3'AdModereAdwrite, baca dan tulis, jika parameter ini menggunakan 2, itu akan menyebabkan kesalahan.