Adodb.Stream方法保存文件

<%
'FilePath:保存路径
'str:文件内容
'fCharset:文件编码 如GB2312

Function StreamWriteFile(FilePath, Str, fCharset)
    adSaveCreateOverWrite =2
    adSaveCreateNotExist =1
OnErrorResumeNext
Set stm = Server.CreateObject("Adodb.Stream")
    stm.Charset = fCharset
    stm.Open
    stm.WriteText Str
    stm.SaveToFile FilePath, adSaveCreateOverWrite
    If Err.Number<>0Then
        Err.Clear
        StreamWriteFile =False
Else
        StreamWriteFile =True
EndIf
OnErrorGoTo0
EndFunction
%>