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

　　复制代码 代码如下:
<%

*************************************************************
转发时请保留此声明信息,这段声明不并会影响你的速度!
*************************************************************


*************************************************************
@author:面条
@realname:徐仁禄
@QQ:55547082
@Homepage:
@版权申明:
非盈利性质团体或者个人可以免费使用.
*************************************************************


*************************************************************
类名称：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
%>