asp之基于adodb.stream的文件操作类(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)
内容版权声明:除非注明,否则皆为本站原创文章。