復(fù)制代碼 代碼如下:
%
'*************************************************************
'轉(zhuǎn)發(fā)時(shí)請保留此聲明信息,這段聲明不并會(huì)影響你的速度!
'*************************************************************
'*************************************************************
'@author: 面條
'@realname: 徐仁祿
'@email: xurenlu@sohu.com
'@QQ: 55547082
'@Homepage: http://www.ksdn.net
'@版權(quán)申明:
' 非盈利性質(zhì)團(tuán)體或者個(gè)人可以免費(fèi)使用.
'*************************************************************
'*************************************************************
' 類名稱: files
' 類功能: 實(shí)現(xiàn)文件讀寫功能,利用adodb.stream實(shí)現(xiàn),在不支持fso的主機(jī)上也可以讀寫文件.
'*************************************************************
class files
private adSaveCreateOverWrite '創(chuàng)建文件的時(shí)候可以覆蓋已經(jīng)存在的文件.
private adSaveCreateNotExist '保存文件的時(shí)候如果文件不存在,可以創(chuàng)建文件.
'*************************************************************
' 事件名稱: Class_Initialize()
' 事件發(fā)生條件: 類創(chuàng)建時(shí)候產(chǎn)生該事件
' 事件內(nèi)容: 給私有變量賦值
' 事件傳入?yún)?shù): 無
'*************************************************************
sub Class_Initialize()
adSaveCreateOverWrite =2
adSaveCreateNotExist = 1
end sub
'*************************************************************
' 函數(shù)名稱: function readfile(filepath)
' 函數(shù)內(nèi)容: 讀出文件
' 傳入?yún)?shù): filepath:要讀的文件的絕對路徑
' 返回參數(shù): 要讀的文件的內(nèi)容.
'*************************************************************
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
'*************************************************************
' 函數(shù)名稱: function writefile(filepath,str)
' 函數(shù)內(nèi)容: 寫入文件
' 傳入?yún)?shù): filepath:要讀的文件的絕對路徑
' str: 要寫入的內(nèi)容
' 返回參數(shù): 無返回
'*************************************************************
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
'*************************************************************
' 函數(shù)名稱: function copy(filepath_s,filepath_d)
' 函數(shù)內(nèi)容: 讀出文件
' 傳入?yún)?shù): 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
%>
您可能感興趣的文章:- 使用asp下的adodb.stream 下載文件而不是打開
- asp下用ADODB.Stream代替FSO讀取文本文件
- asp adodb.stream對象的方法/屬性
- ASP下通過Adodb.Stream實(shí)現(xiàn)多線程下載大文件