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

网学网ASP编辑为广大网友搜集整理了：asp之基于adodb.stream的文件操作类绩等信息，祝愿广大网友取得需要的信息，参考学习。

复制代码 代码如下:
<%

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


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