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

'函数名称:readtextfile
    '作用:利用adodb.stream对象来读取utf-8格式的文本文件
    '----------------------------------------------------
    function readfromtextfile (fileurl,charset)
        if fileurl = "" or isnull(fileurl) then
            readfromtextfile = ""
            exit function
        end if
        if not flib.isreallypath(fileurl) then
            fileurl = server.mappath(fileurl)
        end if
        dim str, stm
        set stm=server.createobject("adodb.stream")
        stm.type=2 '以本模式读取
        stm.mode=3 
        stm.charset=charset
        stm.open
        stm.loadfromfile fileurl
        str=stm.readtext
        stm.close
        set stm=nothing
        readfromtextfile=str
    end function
    '-------------------------------------------------
    '函数名称:writetotextfile
    '作用:利用adodb.stream对象来写入utf-8格式的文本文件
    '----------------------------------------------------
    function writetotextfile (fileurl,byval str,charset)   
        if fileurl = "" or isnull(fileurl) then
            writetotextfile = ""
            exit function
        end if
        if not flib.isreallypath(fileurl) then
            fileurl = server.mappath(fileurl)
        end if
        dim stm
        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