复制代码 代码如下:

<%

'*************************************************************

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

'*************************************************************

'*************************************************************

'@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

%>