Adodb.Stream方法保存文件

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

Function StreamWriteFile(FilePath, Str, fCharset)
    adSaveCreateOverWrite = 2
    adSaveCreateNotExist = 1
    On Error Resume Next
    Set stm = Server.CreateObject("Adodb.Stream")
    stm.Charset = fCharset
    stm.Open
    stm.WriteText Str
    stm.SaveToFile FilePath, adSaveCreateOverWrite
    If Err.Number<>0 Then
        Err.Clear
        StreamWriteFile = False
    Else
        StreamWriteFile = True
    End If
    On Error GoTo 0
End Function
%>