在ASP中使用ADODB.Stream对象以指定编码格式保存文本文件

    <div style="text-indent: 2em;">

有时候使用 ASP 的 Scripting.FileSystemObject 对象来保存文件，会受到服务器的安全限制，在保存.asp文件时没有权限而失败。这时可以尝试使用ADODB.Stream对象来保存文件。

<%    
    ' 保存文本文件
    Function SaveEncodedTextFile(sFilePath, sCharset, s)
        Dim oStream
        Set oStream = Server.CreateObject("ADODB.Stream")
        ' 以文本模式
        oStream.Type = 2
        oStream.Mode = 3
        If Len(sCharset) > 0 Then
            On Error Resume Next
            oStream.Charset = sCharset
            If Err.number <> 0 Then
                oStream.Charset = "_autodetect_all"
            End If
            On Error Goto 0
        End If
        oStream.Open
        oStream.WriteText s
        ' 2 - adSaveCreateOverwrite
        On Error Resume Next
        oStream.SaveToFile sFilePath, 2
        If Err.number <> 0 Then
            SaveEncodedTextFile = False
        Else
            SaveEncodedTextFile = True
        End If
        On Error Goto 0
        Set oStream = Nothing
    End Function
%>