asp 读取文件和保存文件函数代码

对于asp下的不用fso，使用adodb.stream对象实现文件的保存与读取，避免一些虚拟主机不支持fso的机器。

'************************************* 
'读取文件 
'************************************* 

Function LoadFromFile(ByVal File) 
Dim objStream 
Dim RText 
RText = Array(0, "") 
Set objStream = Server.CreateObject("ADODB.Stream") 
With objStream 
.Type = 2 
.Mode = 3 
.Open 
.Charset = "utf-8" 
.Position = objStream.Size 
On Error Resume Next 
.LoadFromFile Server.MapPath(File) 
If Err Then 
RText = Array(Err.Number, Err.Description) 
LoadFromFile = RText 
Err.Clear 
Exit Function 
End If 
RText = Array(0, .ReadText) 
.Close 
End With 
LoadFromFile = RText 
Set objStream = Nothing 
End Function 

'************************************* 
'保存文件 
'************************************* 

Function SaveToFile(ByVal strBody, ByVal File) 
Dim objStream 
Dim RText 
RText = Array(0, "") 
Set objStream = Server.CreateObject("ADODB.Stream") 
With objStream 
.Type = 2 
.Open 
.Charset = "utf-8" 
.Position = objStream.Size 
.WriteText = strBody 
On Error Resume Next 
.SaveToFile Server.MapPath(File), 2 
If Err Then 
RText = Array(Err.Number, Err.Description) 
SaveToFile = RText 
Err.Clear 
Exit Function 
End If 
.Close 
End With 
RText = Array(0, "保存文件成功!") 
SaveToFile = RText 
Set objStream = Nothing 
End Function