写入文本文件的过程函数（ASP）

今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:
复制代码代码如下:
Sub Write2File（strFile, strContent, blnAppend）

" 写入文件
" strFile 文件名（路径） , strContent 写入的内容, blnAppend 是否追加
        On Error Resume Next
        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
                Case Else Response.Write Err
        End Select
End Sub
调用方法:
Write2File "c:dd.ini", "dd", True
或者
Call Write2File （"c:dd.ini", "dd", True）
说明:
1.自动建立文件;
2.不能自动建立目录