元件#使用[FileSystemObject]&[Stream] 存為「編碼」文字檔
#1
Function WriteTxtFile(Text,FileName)
dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(Server.MapPath(FileName),true,true)
f1.Write (Text)
f1.Close
set fso = nothing
End Function
＃2
Function WriteTxtFile(Text,FileName)
Set fsObj = Server.CreateObject("Scripting.FileSystemObject")
If fsObj.FileExists(FileName) Then fsObj.DeleteFile FileName, True
Set fsObj = Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "UTF-8"
.Position = objStream.Size
.WriteText = Text
.SaveToFile FileName, 2
.Close
End With
Set objStream = Nothing
End Function