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
%>



相关阅读:
CSS经典技巧十则
asp.net 编程 实用语句(6条)
让javascript画布变成Silverlight
用网页技术CSS实现网页背景渐变的四种代码设置
Win 7重装后五项不得不做的初始设置的解决办法
IE8 chrome中table隔行换色解决办法
jsp无刷新文件上传的实现
ASP教程:ASP是不区分大小写
VB2005中开发新一代控制台应用程序(1)
Windows7按空格键快速调用启动管理器
用PHP制作静态网站的模板框架
很好用的PHP数据库类
apache 403错误 Forbidden解决方法
学习Jquery之旅
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4