03
2014
11

adodb.stream的文件操作类


class files
    private adSaveCreateOverWrite    '创建文件的时候可以覆盖已经存在的文件.
    private    adCharset
    private adSaveCreateNotExist    '保存文件的时候如果文件不存在,可以创建文件.
    '*************************************************************
    '        事件名称:        Class_Initialize()
    '        事件发生条件:    类创建时候产生该事件
    '        事件内容:        给私有变量赋值
    '        事件传入参数:    无
    '*************************************************************
    sub Class_Initialize()
        adSaveCreateOverWrite =2
        adSaveCreateNotExist = 1
        adCharset="utf-8"
    end sub
    '*************************************************************
    '        函数名称:        function readfile(filepath)
    '        函数内容:        读出文件
    '        传入参数:        filepath:要读的文件的绝对路径
    '        返回参数:        要读的文件的内容.
    '*************************************************************
    function readfile(filepath)
        on error resume next
        dim stm2
        set stm2 =server.createobject("ADODB.Stream")
        stm2.Charset = adCharset
        stm2.Open
        stm2.LoadFromFile filepath
        readfile = stm2.ReadText
    end function
    '*************************************************************
    '        函数名称:        function writefile(filepath,str)
    '        函数内容:        写入文件
    '        传入参数:        filepath:要读的文件的绝对路径
    '                        str:    要写入的内容
    '        返回参数:        无返回
    '*************************************************************
    function writefile(filepath,str)
        on error resume next
        Set stm = server.createobject("ADODB.Stream")
        stm.Charset = adCharset
        stm.Open
        stm.WriteText str
        stm.SaveToFile filepath, adSaveCreateOverWrite
    end function
    '*************************************************************
    '        函数名称:        function copy(filepath_s,filepath_d)
    '        函数内容:        读出文件
    '        传入参数:        filepath_d:目的文件的绝对路径
    '                        filepath_s:源文件路径
    '*************************************************************
    function copy(filepath_s,filepath_d)
        on error resume next
        dim stm2
        set stm2 =server.createobject("ADODB.Stream")
        stm2.Charset = adCharset
        stm2.Open
        stm2.LoadFromFile filepath_s
        stm2.SaveToFile filepath_d, adSaveCreateOverWrite
    end function
end class

« 上一篇下一篇 »

相关文章:

评论列表: