<% '************************************************************* '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************************************************* '************************************************************* '@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 %>