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
