%
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
%>[1]
咨 询 客 服