可以让程序告诉我详细的页面错误和数据库连接错误吗？

<%
 If Err.Number <> 0 Then
 ' 错误处理.
       Response.Clear
       ' 清除缓冲区.
 

     Select Case Err.Number
            ' 根据不同错误分处理.
    Case ""

' 指定错误类型:此处填加我们指定的错误处理代码.
      Case Else

 ' 一般错误 .

            If IsObject(objConnection) Then
                  If objConnection.Errors.Count > 0 Then %>
撼雪喷云之数据连接对象错误报告
<% For intLoop = 0 To objConnection.Errors.Count - 1 %>
错误号 : <%= objConnection.Errors(intLoop).Number %>

错误描述 : <%= objConnection.Errors(intLoop).Description %>

错误源 : <%= objConnection.Errors(intLoop).Source %>

SQL 状态 : <%= objConnection.Errors(intLoop).SQLState %>

本地错误 : <%= objConnection.Errors(intLoop).NativeError %>

<% Next
   End If
   End If
   If Err.Number <> 0 Then %>

撼雪喷云之页面错误报告

错误号 :<%= Err.Number %>

错误描述 :<%= Err.Description %>

错误源 :<%= Err.Source %>

错误发生行 :<%= Err.Line %>

<%
            End If
      End Select
End If
%>

[1]