asp对象之:基于adodb.stream的文件操作类

转发时请保留此声明信息,这段声明不并会影响你的速度! 
@author:                        面条 
@realname:                        徐仁禄 
@email:                        xurenlu@sohu.com 
@QQ:                            55547082 
@Homepage:                        http://www.ksdn.net 
@版权申明:  
 非盈利性质团体或者个人可以免费使用. 

<％  

’*************************************************************  
’        类名称：        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  


％>