asp對像化之:基於adodb.stream的文件操作類

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- asp對像化之:基於adodb.stream的文件操作類 (http://www.webasp.net/article/18/17894.htm)
-- 作者:徐仁祿
-- 發佈日期: 2005-04-24
<% 

』************************************************************* 
』轉發時請保留此聲明信息,這段聲明不並會影響你的速度! 
』************************************************************* 


』************************************************************* 
』@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 


%> 

webasp.net