【ASP】如何利用GetLastError函數捕捉WEB頁面上的500.100錯誤位置和詳細信息
當前位置：點晴教程→知識管理交流
→『 技術文檔交流 』
我試圖診斷一個網站的問題，似乎是在代碼的地方拋出一個錯誤。從錯誤日志看來，它是一個SQL語法錯誤，由錯誤的SQL代碼錯誤串聯導致。我的問題是，我無法重現錯誤，但客戶仍然可以得到它，這可能是由許多查詢造成的。所以我的計劃是創建我自己的500錯誤頁面來捕捉結果。我想讓頁面捕獲所有會話數據，所有POST和GET數據（我可以這樣做），但我也想捕獲關于錯誤的詳細信息。當網站允許顯示錯誤時，幾乎會在頁面上顯示的內容。用小箭頭指定該行。 有沒有辦法從自定義錯誤頁面中捕獲錯誤？
參考微軟公司官網頁面：define a custom 500 error code page，中文頁面：http://21420.oa22.cn，當你的程序崩潰時可以給你更多的信息。以下是一些示例代碼，它們會針對您的錯誤構建詳細的錯誤消息說明。 Set objASPError = Server.GetLastError Dim strProblem strProblem = "ASPCode: " & Server.HTMLEncode(objASPError.ASPCode) & vbCrLf strProblem = strProblem & "Number: 0x" & Hex(objASPError.Number) & vbCrLf strProblem = strProblem & "Source: [" & Server.HTMLEncode(objASPError.Source) & "]" & vbCrLf strProblem = strProblem & "Category: " & Server.HTMLEncode(objASPError.Category) & vbCrLf strProblem = strProblem & "File: " & Server.HTMLEncode(objASPError.File) & vbCrLf strProblem = strProblem & "Line: " & CStr(objASPError.Line) & vbCrLf strProblem = strProblem & "Column: " & CStr(objASPError.Column) & vbCrLf strProblem = strProblem & "Description: " & Server.HTMLEncode(objASPError.Description) & vbCrLf strProblem = strProblem & "ASP Description: " & Server.HTMLEncode(objASPError.ASPDescription) & vbCrLf strProblem = strProblem & "Server Variables: " & vbCrLf & Server.HTMLEncode(Request.ServerVariables("ALL_HTTP")) & vbCrLf strProblem = strProblem & "QueryString: " & Server.HTMLEncode(Request.QueryString) & vbCrLf strProblem = strProblem & "URL: " & Server.HTMLEncode(Request.ServerVariables("URL")) & vbCrLf strProblem = strProblem & "Content Type: " & Server.HTMLEncode(Request.ServerVariables("CONTENT_TYPE")) & vbCrLf strProblem = strProblem & "Content Length: " & Server.HTMLEncode(Request.ServerVariables("CONTENT_LENGTH")) & vbCrLf strProblem = strProblem & "Local Addr: " & Server.HTMLEncode(Request.ServerVariables("LOCAL_ADDR")) & vbCrLf strProblem = strProblem & "Remote Addr: " & Server.HTMLEncode(Request.ServerVariables("LOCAL_ADDR")) & vbCrLf strProblem = strProblem & "Time: " & Now & vbCrLf 也可以將錯誤輸出到根目錄下一個文本文件中： <% 'Set this page up in IIS to receive HTTP 500 errors ''Type' needs to be 'URL' and the URL is e.g.: '/500Error.asp' if this file is named '500Error.asp' and is in the site root directory. 'This script assumes there is a "/Log" folder, and that IIS has write access to it. Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim objFSO, err Set objFSO=createObject("scripting.FileSystemObject") Set err = Server.GetLastError() outFile=Server.MapPath("/ErrorLog.txt") Set objFile = objFSO.OpenTextFile(outFile, ForAppending, True, TristateTrue) objFile.WriteLine Now & " - ERROR - ASPCode:" & err.ASPCode & " ASPDescription: " & err.ASPDescription & " Category: " & err.Category & " Description: " & err.Description & " File: " & err.File & " Line: " & err.Line & " Source: " & err.Source & vbCrLf objFile.Close Set objFile = Nothing Set err = Nothing %> 特別說明： GetLastError函數貌似只在IIS6以前的版本中生效，在IIS7中GetLastError函數似乎沒有任何可用的信息。其實是在IIS7中，必須按照如下步驟設置后，GetLastError函數才會生效。 打開IIS管理器，找到網站ClickSun-》錯誤頁，雙擊“錯誤頁”： 雙擊“錯誤頁”，然后點擊右邊的“編輯功能設置”： 在以上頁面中，錯誤響應選擇：自定義錯誤頁，默認頁-》路徑換成自己編寫的錯誤捕捉頁面（頁面核心代碼見上面）：/error_500.asp，路徑類型：執行URL。 保存后，雙擊狀態碼500： 響應操作改為：在此網站上執行URL，URL地址還是上面自己開發的自定義錯誤攔截頁面（頁面核心代碼見上面）：/error_500.asp，然后確定保存即可生效。 下面是攔截成功界面效果： 當然，設計這個HTTP500錯誤頁面攔截的根本目的就是不想用戶或黑客攻擊者看到真實的錯誤代碼，但又需要將這些錯誤信息發送給開發者或網管，所以需要在自定義的錯誤攔截頁面error_500.asp中，將上面的真實錯誤信息保存到數據庫或文本文件中，方便開發人員或網管予以分析解決，給用戶或黑客攻擊者看到的只需要是一個簡單的錯誤提醒圖片即可。 該文章在 2023/9/26 18:33:00 編輯過 |
關鍵字查詢
相關文章
正在查詢... 
|
400 186 1886
