Solusi untuk karakter kacau saat menggunakan fso.OpenTextFil untuk membaca file UTF-8 atau menggunakan FSO.save untuk menghasilkan file UTF-8. Metode yang digunakan untuk menghasilkan halaman statis adalah dengan membaca kode html halaman asp dan menyimpannya sebagai file html. Metode ini
Karena halaman dinamis dikodekan dalam format utf8, setelah saya mendapatkan kode htmlnya, saya menggunakan fso untuk menyimpannya. HTML yang dihasilkan berhasil, tetapi tidak dapat diakses karena ada masalah dengan pengkodean html. Pilih gb2312 dan Anda bisa mengaksesnya secara normal. Ini tidak akan berhasil, karena seluruh situs dikodekan dalam format utf8. Untuk membuka halaman ini, Anda harus memilih pengkodean sebelum mengaksesnya. Ini terlalu merepotkan, dan tidak ada yang mau mengaksesnya, jadi pengkodean format utf8 masalah harus diselesaikan.
Setelah beberapa pencarian, saya menemukan bahwa fso tidak dapat menghasilkan file dalam format utf8. Jadi cobalah pendekatan lain.
Setelah mencari beberapa saat, saya menemukan fungsi yang dapat menghasilkan file alih-alih fso. Ia menggunakan objek adodb.stream untuk menghasilkan file utf8.
Copy kode kodenya sebagai berikut:
'------------------------------------------------
'Nama fungsi: ReadTextFile
'Fungsi: Gunakan objek AdoDb.Stream untuk membaca file teks dalam format UTF-8
'------------------------------------------------ - --
Fungsi ReadFromTextFile (FileUrl,CharSet)
redup str
setel stm=server.CreateObject("adodb.stream")
stm.Type=2 'Baca dalam mode ini
stm.mode=3
stm.charset=CharSet
stm.buka
stm.loadfromfile server.MapPath(FileUrl)
str=stm.bacateks
stm.Tutup
set stm=nothing Artikel ini berasal
BacaDariTeksFile=str
Fungsi Akhir
'------------------------------------------------
'Nama fungsi:WriteToTextFile
'Fungsi: Gunakan objek AdoDb.Stream untuk menulis file teks dalam format UTF-8
'------------------------------------------------ - --
Sub WriteToTextFile (FileUrl, byval Str, CharSet)
setel stm=server.CreateObject("adodb.stream")
stm.Type=2 'Baca dalam mode ini
stm.mode=3
stm.charset=CharSet
stm.buka
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Tutup
atur stm=tidak ada
Akhiri Sub IISBOY.COM,IISBOY.COM
Cara menggunakan:
Copy kode kodenya sebagai berikut:
panggil WriteToTextFile ("../index.html","aaa","utf-8")
Selesai.