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 |