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