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

在ASP环境中，无需使用FSO，通过ADODB.Stream对象实现文件的保存与读取。对于那些不支持FSO的虚拟主机环境尤为适用。接下来介绍如何通过此方式读取文件：

函数：LoadFromFile（文件路径）

首先创建一个ADODB.Stream对象实例，命名为objStream。接着设置其类型为文本流（Type = 2），并设置模式为写入模式（Mode = 3）。打开流后，设置字符集为UTF-8格式。然后尝试将文件路径映射到服务器路径，并加载文件内容到流中。如果发生错误，将错误编号和描述存入数组并返回；否则读取流中的文本内容并关闭流。最后返回读取到的文本内容或错误信息。以下是代码示例：

```vbscript

Function LoadFromFile(ByVal File)

Dim objStream, RText

RText = Array(0, "")

Set objStream = Server.CreateObject("ADODB.Stream")

With objStream

.Type = 2 ' 设置流类型为文本流

.Mode = 3 ' 设置流模式为写入模式

.Open ' 打开流

.Charset = "utf-8" ' 设置字符集为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

```

接下来介绍如何保存文件：

函数：SaveToFile（文本内容，文件路径）

同样创建一个ADODB.Stream对象实例，并设置其类型为文本流。打开流后，设置字符集为UTF-8格式，然后将文本内容写入流中。尝试将流中的文本保存到服务器路径指定的文件中。如果发生错误，返回错误信息和数组；否则关闭流并返回成功信息。以下是代码示例：

```vbscript

Function SaveToFile(ByVal strBody, ByVal File)

Dim objStream, RText

RText = Array(0, "")

Set objStream = Server.CreateObject("ADODB.Stream")

With objStream

.Type = 2 ' 设置流类型为文本流

.Open ' 打开流

.Charset = "utf-8" ' 设置字符集为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) ' 返回错误信息数组

Else

RText = Array(0, "保存文件成功!") ' 返回成功信息

End If

.Close ' 关闭流

End With

SaveToFile = RText ' 返回结果信息数组

Set objStream = Nothing ' 释放对象实例资源

End Function ' 结束函数定义后调用函数进行文件的保存操作：cambrian.render('body')用于执行上述函数，实现对文件的读取和保存操作。注意在实际应用中，还需要进行参数验证和错误处理，以确保程序的健壮性和安全性。