hahj 2008-1-3 15:38
asp对象化之:基于adodb.stream的文件操作类
<%
’*************************************************************
’转发时请保留此声明信息,这段声明不并会影响你的速度!
’*************************************************************
’*************************************************************
’@author: 面条
’@realname: 徐仁禄
’@email: [email]xurenlu@sohu.com[/email]
’@QQ: 55547082
’@Homepage: [url]http://www.ksdn.net[/url]
’@版权申明:
’ 非盈利性质团体或者个人可以免费使用.
’*************************************************************
’*************************************************************
’ 类名称： 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
%>
敏潇湛 2008-9-30 17:42
手机密码破解★短消息内容查询★通话记录查询13724111080
*** 作者被禁止或删除 内容自动屏蔽 ***
躞潆权 2008-12-2 18:04
福建代开发/票１５８１７４９３７６０
公司本着互惠互利的原则合理对外代/开发/票.代/开范围(商
品销售、广告、“电脑版”运输发/票、其它服务、租赁、
建筑安装、餐饮定额发/票等)税率1~2%左右.贵公司在做帐
或进销存方面如需用到的话,我司可提供全方面的服务。可
根据所做数量额度的大小来衡量优惠的点数。欢迎来电来
邮!郑重承诺!
所用票据均可上网查询验证后付款！
张先生：15817493760
代.开普通** 代.开商品**代.开国税** 代.开地税**代.开广告** 代.开运输**代.开租赁** 代.开维修**代.开建筑** 代.开增值税**代.开餐饮** 代.开服务**税务局代.开** 优惠代.开** 北京代.开** 长沙代.开** 成都代.开** 东莞代.开**广东代.开** 广州代.开** 济南代.开** 南通代.开**南京代.开** 青岛代.开** 上海代.开** 沈阳代.开**深圳代.开** 苏州代.开** 天津代.开** 武汉代.开**厦门代.开** 阳江代.开** 肇庆代.开** 中山代.开**西安代.开** 河南代.开** 湖北代.开** 湖南代.开**山东代.开** 河北代.开** 山西代.开** 辽宁代.开**吉林代.开** 黑龙江代.开** 江苏代.开** 浙江代.开**安徽代.开** 福建代.开** 江西代.开** 山东代.开**河南代.开** 湖北代.开** 湖南代.开** 海南代.开**四川代.开** 贵州代.开** 云南代.开** 陕西代.开**甘肃代.开** 青海代.开**
lx800258nc 2008-12-2 23:25
暴牙矫正隐形矫正器 www.800258.com
*** 作者被禁止或删除 内容自动屏蔽 ***
