asp对象化之:基于adodb.stream的文件操作类__教程 |
|
日期:2007-5-20 0:37:26 人气:73 [大 中 小] |
|
|
|
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 |
|
出处:本站原创 作者:佚名 |
|
|