答案:<%@ LANGUAGE="VBScript" %>
<%
Response.Buffer = True
' 打开页面缓冲
On Error Resume Next
' 打开错误处理
…………
' ASP代码
%><%
If Err.Number <> 0 Then
' 错误处理
Response.Clear
' 清除缓冲区
%><HTML>
' 显示错误信息页面
<HEAD>
<TITLE>页面错误报告</TITLE>
</HEAD><BODY BGCOLOR="#C0C0C0">
<font color=red>
<p>页面错误报告</p>错误号:<%= Err.Number %><BR>
错误描述:<%= Err.Description %><BR>
错误源:Source <%= Err.Source %><BR>
错误发生行:<%= Err.Line %><BR>
</BODY>
</HTML>
<%
End If
%>