【下载文档:  asp之基于adodb.stream的文件操作类.txt 】

---

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 %>