作家
登录

asp之基于adodb.stream的文件操作类

作者: 来源:www.28hudong.com 2013-03-30 08:36:18 阅读 我要评论

复制代码 代码如下:<% '************************************************************* '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************************************************* '************************************************************* '@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 %>

  推荐阅读

  ip138之asp小偷程序代码

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>脚本之家 >> 手机号码查询 </title> <meta name="generator" content="脚本之家"> <style type="text/css"> BODY { >>>详细阅读


本文标题:asp之基于adodb.stream的文件操作类

地址:http://www.17bianji.com/kaifa2/ASP/32449.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)