ASP深入学习Error对象的应用技巧－站长资讯网info110.com

当出现错误时,错误和错误网页文件之间的映射关系是在每个目录的properties对话框的Custom Errors选项卡中决定的,这在Internet Services Manager里面的属性设置,谁有兴趣的话就去看看.
定制错误网页显示ASPError对象属性的所有值，并通过使用Response.Status方法，把一个HTTP报头状态消息返回给客户端，指明出现了一个错误。接着使用GetLastError方法获取对ASPError对象的一个引用，因此可以访问错误的详细数据：
…

以下为引用的内容：

<%
Response.Status = "500 Internal Server Error"
Set objASPError = Server.GetLastError()
%>
Currently executing the page: show_error.asp
Error Details: 

ASPError.ASPCode = <% = objASPError.ASPCode %> 
ASPError.Number = <% = objASPError.Number %> (0x<% = Hex(objASPError.Number) %>) 
ASPError.Source = <% = Server.HTMLEncode(objASPError.Source) %> 
ASPError.Category = <% = objASPError.Category %> 
ASPError.File = <% = objASPError.File %> 
ASPError.Line = <% = objASPError.Line %> 
ASPError.Column = <% = objASPError.Column %> 
ASPError.Description = <% = objASPError.Description %> 
ASPError.ASPDescription = <% = objASPError.ASPDescription %>

<FORM ACTION="<% = Request.ServerVariables("HTTP_REFERER") %>" METHOD="POST">
<INPUT TYPE="SUBMIT" NAME="cmdOK" VALUE=" Return to the previous page ">

</FORM>

如果一个脚本或ASP错误出现在定制错误网页中，IIS将仅仅返回一个与错误代码500：100对应的一般性消息。这可能是脚本引擎自己的错误消息，或者只是相当简单的消息：“Internal Server Error”。不会再次重新载入定制的错误网页。
包含错误的网页的全部环境将传送给定制错误网页。也就是说，可以使用存储在任何ASP内部对象集合或属性中的值。例如，如果检索来自Request.ServerVariables集合的HTTP_REFERER值，它将反映调用原网页的网页（即在错误出现之前的网页）的URL。在服务器把执行转到错误网页时，这个值不会发生变化，并且它将不包含当错误发生时正在执行的网页的URL。
同样，SCRIPT_NAME值将是包含该错误的网页的名字，而不是错误网页的URL。在一个错误网页已经装入时，通过检查浏览器地址栏中的URL，可以对此进行确认。但是在原网页的脚本变量中存储的值，在定制的错误网页中都是不可用的。
如果原ASP网页正在一个事务内运行，即在网页的最前面包含有一个<% @TRANSACTION=”…” %>指令，也应该确定是否需要在网页中采取一些方法，以退出该事务。例如可以调用内置ObjectContext对象的SetAbort方法：
objectContext.SetAbort

前端时间发过几千垃圾邮件,全是错误处理的

Option Explicit
Response.AddHeader "Status Code", "200"
Response.AddHeader "Reason", "OK"
On Error Resume Next
Response.Clear
Dim objError
Set objError = Server.GetLastError()

dim objErr, objMail, html
set objErr=Server.GetLastError()
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "s1z2d3s1@163.com"
objMail.to= "5do8@5do8.com"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Subject = "QOP Error 500"
html = " "
html = html & "Error occured at: " & now
html = html & "Referred from: " & request.ServerVariables("HTTP_REFERER")
html = html & "Url: " & request.ServerVariables("URL")
html = html & "Category: " & objErr.Category
html = html & "Filename: " & objErr.File
html = html & "ASP Code: " & objErr.ASPCode
html = html & "Number: " & objErr.Number
html = html & "Source: " & objErr.Source
html = html & "LineNumber: " & objErr.Line
html = html & "Column: " & objErr.Column
html = html & "Description: " & objErr.Description
html = html & "ASP Description: " & objErr.ASPDescription
html = html & "<blockquote>"
html = html & "All HTTP: " & Request.ServerVariables("ALL_HTTP")
html = html & "</blockquote>"
objMail.Body = html
objMail.Send
objErr.clear
Set objMail = Nothing
Set objErr = Nothing
response.write(html)

这个操作起来确实很烦,看看老盖先生的在500-100.asp里面写了写什么东西:

以下为引用的内容：

<%
 Response.Write objASPError.Category
 If objASPError.ASPCode > "" Then Response.Write ", " & objASPError.ASPCode
 Response.Write " (0x" & Hex(objASPError.Number) & ")" & " "

 Response.Write "" & objASPError.Description & " "

 If objASPError.ASPDescription > "" Then Response.Write objASPError.ASPDescription & " "

 blnErrorWritten = False

 ‘ Only show the Source if it is available and the request is from the same machine as IIS
 If objASPError.Source > "" Then
 strServername = LCase(Request.ServerVariables("SERVER_NAME"))
 strServerIP = Request.ServerVariables("LOCAL_ADDR")
 strRemoteIP = Request.ServerVariables("REMOTE_ADDR")
 If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
 Response.Write objASPError.File
 If objASPError.Line > 0 Then Response.Write ", line " & objASPError.Line
 If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column
 Response.Write " "
 Response.Write ""
 Response.Write Server.HTMLEncode(objASPError.Source) & " "
 If objASPError.Column > 0 Then Response.Write String((objASPError.Column - 1), "-") & "^ "
 Response.Write ""
 blnErrorWritten = True
 End If
 End If

 If Not blnErrorWritten And objASPError.File <> "?" Then
 Response.Write "" & objASPError.File
 If objASPError.Line > 0 Then Response.Write ", line " & objASPError.Line
 If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column
 Response.Write " "
 End If
%>

此处参考了:ASP 3.0高级编程关于使用ASPError对象的属性，有以下几点值得注意的：
· 即使没有出现错误，Number属性应该一直有一个值。如果ASP网页调用GetLastError方法时没有错误出现，该属性的值是0。通常情况下，对ASP脚本的运行期错误，Number属性返回十六进制的值“0x800A0000”，加上标准的脚本引擎错误代码。例如，前面的例子对“Subscript out of Range”错误的返回值为“0x800A0009”，因为VBScript对该类型错误的错误代码是“9”。
· 当出现已经过一个错误时，Category和Description属性将一直有一个值。
· APSCode属性的值由IIS产生，对大多数脚本错误将为空。更多情况下，涉及外部组件使用出错时有相应的值。
· ASPDescription属性的值由ASP预处理程序产生，而不是由当前正在使用的脚本引擎产生的，并且对大多数脚本错误而言将是空的。更多情况下，对诸如对ASP内置对象调用无效的方法的错误有相应的值。
· File、Source、Line和column属性仅在错误出现时，并且在错误的详细数据是可用的情况下才能进行设置。对一个运行期错误，File和Line属性通常是有效的，但是column属性经常返回-1。当错误是一个阻止页面被ASP处理的语法错误，才返回Source属性。一般在这些情况下，Line和Column属性是有效的。如果把Source属性的值写到页面，明智的办法是先将该值传给HTMLEncode，以防在其含有非法的HTML字符。在本章的后面将详细地讨论HTMLEncode方法.

ERR对象

Tips:这是第二次写这个了,NND,原先写的重点是ASPError对象的介绍,我现在介绍一下err对象,这是一个很简单易于操作的对象,let‘s go.,在asp页面中.

err对象使用的时候不需要创建实例,就是说你要用的时候随便拿来使用,就像session一样,不需要像ADODB对象使用的时候Set conn=Server.CreateObject("ADODB.Connection")来创建实例,它返回一个错误代码,但是Err!=Err.Number,可以用Clear方法清除,以利于下次使用.它主要的是个Description方法,返回的是简要错误说明,这里一个很经典的例子:

以下为引用的内容：

<%@ LANGUAGE="VBscript" %>
<%Response.Buffer = True
On Error Resume Next
%>
<%
s="sa"
response.write(Int(s))
If Err.Number <> 0 Then
Response.Clear
response.write"发生错误:"%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
错误 Number： <%= Err.Number %> 
错误信息： <%= Err.Description %> 
出错文件： <%= Err.Source %> 
出错行： <%= Err.Line %> 
<%= Err %>
</BODY>
</HTML>
<%End If%>

运行一看,呓,Err.Line 为空,为啥?因为asp的vb编写的里面line方法不被支持,这是一个废的属性在vb里面.jscript的支持,要研究的去catch.

值得注意的是要使用err对象的时候,必须加上On Error Resume Next,原来越过asperror对象的异常抛出.

在链接数据库的时候可以使用error对象: Count属性：用来统计Errors集合的数目，Item方法：用来指定特定的一个错误，语法为Error.Item(number)，其中number为一数字。由于Item为默认的方法，所以Error(number)的写法与前面的写法是等价的。下面是一段程序。用来列举Error对象:

以下为引用的内容：

<%
On Error Resume next
Set conn=Server.CreateObject("ADODB.Connection")
Dim i,your_databasepath:your_databasepath="no.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(your_databasepath)&""
conn.open connstr
if conn.errors.count<>0 then
response.write "链接数据库失败<hr/>"
for i =0 to conn.errors.count-1
response.write conn.errors.item(i)&"<hr>"
response.write Err.Description
next
else
response.write "链接数据库成功"
end if
conn.close
%>

没有什么差别和err对象,看到比较结果了么?直接用err对象简单.

一般建议在调试的时候用asperror对象,就是把On Error Resume next 这行rem了,就默认用asperror抛出了.在正式运行的时候,除非特殊要求,可以使用err对象做点事情.

.
分页: [1] [2]

上一篇:深入学习ASP Session对象的集合以及属性方法事件
下一篇:让Mac OS和windows打印机共享的方法

TAG: ASP Error对象

搜索

ASP深入学习Error对象的应用技巧