asp对象化中基于adodb.stream的文件操作类
<%
’*************************************************************
’转发时请保留此声明信息,这段声明不并会影响你的速度!
’*************************************************************
’*************************************************************
’@author:面条
’@realname:徐仁禄
’@email:xurenlu@sohu.com
’@QQ:55547082
’@Homepage:http://www.ksdn.Net
’@版权申明:
’非盈利性质团体或者个人可以免费使用.
’*************************************************************
’*************************************************************
’类名称：files
’类功能:实现文件读写功能，利用adodb.stream实现,在不支持fso的主机上也可以读写文件.
’*************************************************************
classfiles
privateadSaveCreateOverWrite’创建文件的时候可以覆盖已经存在的文件.
privateadSaveCreateNotExist’保存文件的时候如果文件不存在，可以创建文件.
’*************************************************************
’事件名称：Class_Initialize()
’事件发生条件：类创建时候产生该事件
’事件内容:给私有变量赋值
’事件传入参数:无
’*************************************************************
subClass_Initialize()
adSaveCreateOverWrite=2
adSaveCreateNotExist=1
endsub
’*************************************************************
’函数名称:functionreadfile(filepath)
’函数内容:读出文件
’传入参数:filepath:要读的文件的绝对路径
’返回参数:要读的文件的内容.
’*************************************************************
functionreadfile(filepath)
onerrorresumenext
dimstm2
setstm2=server.createobject("ADODB.Stream")
stm2.Charset="gb2312"
stm2.Open
stm2.LoadFromFilefilepath
readfile=stm2.ReadText
endfunction
’*************************************************************
’函数名称:functionwritefile(filepath,str)
’函数内容:写入文件
’传入参数:filepath:要读的文件的绝对路径
’str:要写入的内容
’返回参数:无返回
’*************************************************************
functionwritefile(filepath,str)
onerrorresumenext
Setstm=server.createobject("ADODB.Stream")
stm.Charset="gb2312"
stm.Open
stm.WriteTextstr
stm.SaveToFilefilepath,adSaveCreateOverWrite
endfunction
’*************************************************************
’函数名称:functioncopy(filepath_s,filepath_d)
’函数内容:读出文件
’传入参数:filepath_d:目的文件的绝对路径
’filepath_s:源文件路径
’*************************************************************
functioncopy(filepath_s,filepath_d)
onerrorresumenext
dimstm2
setstm2=server.createobject("ADODB.Stream")
stm2.Charset="gb2312"
stm2.Open
stm2.LoadFromFilefilepath_s
stm2.SaveToFilefilepath_d,adSaveCreateOverWrite
endfunction
endclass
%>