代碼如下:

<% 

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


'************************************************************* 
'@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 
%>