日期:2013-03-04  浏览次数:20895 次

<% 

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


’************************************************************* 
’@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 
     
    di