Die Lösung für verstümmelte Zeichen bei der Verwendung von fso.OpenTextFil zum Lesen von UTF-8-Dateien oder der Verwendung von FSO.save zum Generieren von UTF-8-Dateien. Die zum Generieren statischer Seiten verwendete Methode besteht darin, den HTML-Code der ASP-Seite zu lesen und als zu speichern html-Datei
Da die dynamische Seite im utf8-Format codiert ist, habe ich sie mit fso gespeichert, aber es kann nicht darauf zugegriffen werden, da ein Problem mit der HTML-Codierung vorliegt normal darauf zugreifen. Dies funktioniert nicht, da die gesamte Website im utf8-Format codiert ist. Um diese Seite zu öffnen, müssen Sie die Codierung auswählen, bevor Sie darauf zugreifen. Dies ist zu mühsam und niemand ist bereit, darauf zuzugreifen, daher ist die Codierung im utf8-Format erforderlich Problem muss gelöst werden.
Nach einigem Suchen habe ich festgestellt, dass fso keine Dateien im utf8-Format generieren kann. Versuchen Sie es also mit einem anderen Ansatz.
Nach einer Weile der Suche habe ich eine Funktion gefunden, die Dateien anstelle von fso generieren kann. Sie verwendet das Objekt adodb.stream, um utf8-Dateien zu generieren.
Kopieren Sie den Codecode wie folgt:
'------------------------------------------------
'Funktionsname: ReadTextFile
'Funktion: Verwenden Sie das AdoDb.Stream-Objekt, um Textdateien im UTF-8-Format zu lesen
'------------------------------------------------ - --
Funktion ReadFromTextFile (FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 'In diesem Modus lesen
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Schließen
set stm=nothing Dieser Artikel stammt von
ReadFromTextFile=str
Funktion beenden
'------------------------------------------------
'Funktionsname:WriteToTextFile
'Funktion: Verwenden Sie das AdoDb.Stream-Objekt, um Textdateien im UTF-8-Format zu schreiben
'------------------------------------------------ - --
Sub WriteToTextFile (FileUrl, byval Str, CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2 'In diesem Modus lesen
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Schließen
setze stm=nichts
End Sub IISBOY.COM,IISBOY.COM
Anwendung:
Kopieren Sie den Codecode wie folgt:
Rufen Sie WriteToTextFile auf („../index.html“, „aaa“, „utf-8“)
Erledigt.