答案:If Err.Number = 0 And objConnection.Errors.Count = 0 Then
Response.Clear
Response.Redirect ?lt;URL Here>?
End If都准备好后,我们来看看程序代码:
<%
If Err.Number <> 0 Then
Response.Clear
Select Case Err.Number
Case 8
' 指定错误号,在这里处理自定义错误Case Else
' 一般错误
If IsObject(objConnection) Then
If objConnection.Errors.Count > 0 Then
%>
<B>Database Connection Object</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>Page Error Object</B><BR>
错误号 <%= Err.Number %><BR>
错误描述 <%= Err.Description %><BR>
错误源<%= Err.Source %><BR>
错误行<%= Err.Line %><P>
<%
End If
End Select
End If
%>
上一个:如何随机显示网站链接?
下一个:如何使用表单发送电子邮件?