% 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 %>
