asp用adodb.stream读写文件

Function WriteFile(filepath,str,fCharset)  '写文件 
adSaveCreateOverWrite = 2 
adSaveCreateNotExist = 1 
Set stm = Server.Createobject("Adodb.Stream") 
stm.Charset = fCharset 
stm.Open 
stm.WriteText str 
stm.SaveToFile filepath,adSaveCreateOverWrite 
WriteFile=True 
stm.close 
set stm = nothing 
End Function

Function ReadFile(filepath,fCharset) '读文件 
Dim stm2 
Set stm2 =server.createobject("ADODB.Stream") 
stm2.Charset = fCharset 
stm2.Open 
stm2.LoadFromFile filepath 
ReadFile=Null 
ReadFile = stm2.ReadText 
set stm2 = nothing 
End Function