<% 

’************************************************************* 
’        类名称：        files 
’        类功能:            实现文件读写功能，利用adodb.stream实现,在不支持fso的主机上也可以读写文件. 
’************************************************************* 

class files 

                private adSaveCreateOverWrite    ’创建文件的时候可以覆盖已经存在的文件. 
    private adSaveCreateNotExist    ’保存文件的时候如果文件不存在，可以创建文件. 

’************************************************************* 
’        事件名称：        Class_Initialize() 
’        事件发生条件：    类创建时候产生该事件 
’        事件内容:        给私有变量赋值 
’        事件传入参数:    无 
’************************************************************* 

    sub Class_Initialize() 
         adSaveCreateOverWrite =2 
         adSaveCreateNotExist = 1 
    end sub 

’************************************************************* 
’        函数名称:        function readfile(filepath) 
’        函数内容:        读出文件 
’        传入参数:        filepath:要读的文件的绝对路径 
’        返回参数:        要读的文件的内容. 
’************************************************************* 
function readfile(filepath) 

                on error resume next 

          dim stm2 

                set stm2 =server.createobject("ADODB.Stream") 
    stm2.Charset = "gb2312" 
    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 = "gb2312" 
        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 = "gb2312" 
    stm2.Open 
    stm2.LoadFromFile filepath_s 
    stm2.SaveToFile filepath_d, adSaveCreateOverWrite 
end function  

end class 

%>