图4-22 查看ASPError对象的详细屏幕 这个操作会重新载入该网页,其中的ASP脚本查看点击的是哪个按钮。如果是Server.GetLastError()对应的名为cmdGetError的按钮,将执行一些示例代码,这些代码将会产生一个运行期脚本错误。 … If Len(Request.Form(“cmdGetError”)) Then Dim arrThis(3) ArrThis(4) = “Causes an error” End If … 因为已对这个目录设置了错误网页映射,即配置为装入定制错误页面,所以当错误出现时,就打开这个页面(通过Server.Transfer方法在后台不可见地工作),见图4-23所示:
图4-23 定制的错误网页 (1) 示例错误网页代码的功能 定制错误网页显示ASPError对象属性的所有值,并通过使用Response.Status方法,把一个HTTP报头状态消息返回给客户端,指明出现了一个错误。接着使用GetLastError方法获取对ASPError对象的一个引用,因此可以访问错误的详细数据: … <% Response.Status = "500 Internal Server Error" Set objASPError = Server.GetLastError() %> Currently executing the page: <B>show_error.asp</B><P> <B>Error Details:</B><BR>