asp读写文件函数

'本文章提供了二款asp文件操作函数，read打开文件读取全部内容，wirte把内容写入到一个文件。
function read(path)
 set mf=server.createobject("scripting.filesystemobject")
 set mt=mf.opentextfile(server.mappath(path),1,true,-2)
 if mt.atendofstream=true then
  read=""
 else
  read=mt.readall
 end if
 mt.close
 set mt=nothing
 set mf=nothing
end function
'#######################################################################################
function write(path,str)
 set mf=server.createobject("scripting.filesystemobject")
 set mt=mf.opentextfile(server.mappath(path),8,true,-2)
 mt.write(str)
 mt.close
 set mt=nothing
 set mf=nothing
end function