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