利用AdoDb.Stream对象来读取UTF-8格式的文本文件(2)

        set stm=server.CreateObject("adodb.stream")
        stm.Type=2 '以本模式读取
        stm.mode=3
        stm.charset=CharSet
        stm.open
        stm.WriteText str
        stm.SaveToFile FileUrl,2    
        stm.flush
        stm.Close
        set stm=nothing
    End Function