asp之基于adodb.stream的文件操作类(3)
' 函数内容: 读出文件
' 传入参数: 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
%>