% If Err.Number > 0 Then ' 錯誤處理. Response.Clear ' 清除緩沖區.
Select Case Err.Number ' 根據不同錯誤分處理. Case ""
' 指定錯誤類型:此處填加我們指定的錯誤處理代碼. Case Else
' 一般錯誤.
If IsObject(objConnection) Then If objConnection.Errors.Count > 0 Then %> B>撼雪噴云之數據連接對象錯誤報告/B> % For intLoop = 0 To objConnection.Errors.Count - 1 %> 錯誤號: %= objConnection.Errors(intLoop).Number %>BR> 錯誤描述: %= objConnection.Errors(intLoop).Description %>BR> 錯誤源: %= objConnection.Errors(intLoop).Source %>BR> SQL狀態: %= objConnection.Errors(intLoop).SQLState %>BR> 本地錯誤: %= objConnection.Errors(intLoop).NativeError %>P> % Next End If End If If Err.Number > 0 Then %>
B>撼雪噴云之頁面錯誤報告/B>BR> 錯誤號:%= Err.Number %>BR> 錯誤描述:%= Err.Description %>BR> 錯誤源:%= Err.Source %>BR> 錯誤發生行:%= Err.Line %>P> % End If End Select End If %>
