附加在vbscript/classicasp中的UTF-8文件 - 可以这样做吗？

Const adTypeText = 2
Const adModeReadWrite = 3
Const adModeRead = 1
Const adSaveCreateOverWrite = 2
Const adWriteLine = 1
Const adLF = 10
Const adReadAll = -1
Const adWriteChar = 0

Dim objStream
Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "UTF-8"
objStream.Open
objStream.LoadFromFile("example.txt")

Dim content
content = objStream.ReadText(adReadAll)

objStream.Close
Set objStream = Nothing

Const adTypeText = 2
Const adModeReadWrite = 3
Const adModeRead = 1
Const adSaveCreateOverWrite = 2
Const adWriteLine = 1
Const adLF = 10
Const adReadAll = -1
Const adWriteChar = 0

Dim objStream
Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "UTF-8"
objStream.Open
objStream.WriteText "This is a test.", adWriteLine
objStream.SaveToFile "example.txt", adSaveCreateOverWrite

objStream.Close
Set objStream = Nothing