Scripting.FileSystemObject 改 ADODB.Stream

来源：百度知道 编辑：UC知道 时间：2024/06/19 17:20:46
谁能帮我把下面这段代码改成adodb.stream输出的？

Public Function SaveHtmlPageFile(FileName,HtmlStr)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, 2, True)
f.Write HtmlStr
f.Close
set f=nothing
set fso=nothing
End Function

Sub SaveHtmlPageFile(FileName,HtmlStr)
set stm = server.CreateObject("adodb.stream")
stm.Type = 2 '以本模式读取
stm.mode = 3
stm.open
stm.WriteText HtmlStr
stm.SaveToFile FileName,2
stm.flush
stm.Close
set stm=nothing
End Sub

Sub SaveHtmlPageFile(FileName,HtmlStr)
set stm = server.CreateObject("adodb.stream")
stm.Type = 2 '以本模式读取
stm.mode = 3
stm.open
stm.WriteText HtmlStr
stm.SaveToFile FileName,2
stm.flush
stm.Close
set stm=nothing
End Sub
应该对的

不会呀，你太厉害了