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