<% 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 SelectEnd If%>[1]