28,405
社区成员
发帖
与我相关
我的任务
分享
Sub WriteText(content, path)
Dim stm
Set stm = Server.CreateObject("ADODB.Stream")
stm.Mode = 3
stm.Type = 2
stm.Open
stm.Charset = "UTF-8"
stm.WriteText content
stm.SaveToFile path
stm.Close
Set stm = Nothing
End Sub
WriteText "内容", Server.MapPath("abc.txt")