写入文本文件的过程函数(ASP)

今天，我在编写程序时，经常需要向文本文件写入数据。为了提高效率，我编写了一个实用的过程函数，现在分享给大家。以下是代码：

```vbscript

Sub WriteToFile(strFile, strContent, blnAppend) ' 文件写入功能

' 参数：strFile（文件路径），strContent（写入内容），blnAppend（是否追加）

On Error Resume Next

Dim objFSO ' 创建文件系统对象

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If blnAppend Then

' 如果需要追加内容，则打开文件进行写操作

Set objWriteText = objFSO.OpenTextFile(strFile, 8, True)

Else

' 如果不需要追加，则新建文件或覆盖原有文件内容

Set objWriteText = objFSO.OpenTextFile(strFile, 2, True)

End If

' 向文件中写入内容

objWriteText.WriteLine(strContent)

' 释放资源

Set objWriteText = Nothing

Set objFSO = Nothing

' 错误处理

Select Case Err

Case 424 ' 路径未找到或没有写入权限

Response.Write "路径未找到或者该目录没有写入权限。"

Case Else ' 其他错误

Response.Write Err.Description ' 输出错误信息描述