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

发布时间：2023-08-10 14:20:17 所属栏目：Asp教程来源：

导读：在ASP中，我们经常要生成静态的文件，删除文件或者是创建文件，本文为大家带来的知识点基本满足了这些要求，下面就跟着错新技术频道小编的步伐来学习吧！

Function LoadFromFile(ByVal File)

Dim objStream

在ASP中，我们经常要生成静态的文件，删除文件或者是创建文件，本文为大家带来的知识点基本满足了这些要求，下面就跟着错新技术频道小编的步伐来学习吧！

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

相信看了错新技术频道介绍的asp 读取文件和保存文件函数代码，你一定能够有所思考，能够有所体悟。

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!