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

时间:2021-10-31 02:11:57

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

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