ASP Error对象的秘诀
|
在VBScript中，有一个On Error Resume Next语句，它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检查Err.Number属性的值，判别是否出现了错误。如果出现错误，返回一个非零值。在ASP 3.0中，也可以使用On Error Goto 0“转回到”缺省的错误处理。在ASP 2.0中实际也进行这种处理，但是没有相应文档说明,这在很多asp数据相关处理文件中司空见惯,加上On Error Resume Next ,关闭缺省的错误处理,然后用err抓住, If Err Then err.Clear Response.Write "出现了错误!" Response.End End If 为了得到更加详细的错误说明,我们就试试asperror对象吧,它是asp3.0的新对象,它可以通过server对象的getlasterror方法得到,asperror提供了关于asp中发生最后一个错误的详细信息,与VBScript的Err对象不同，不能为查看是否出现了错误而随时调用该方法，只能在一个ASP定制的错误网页中使用。如果像对Err对象进行操作那样，通过关闭缺省的错误处理（用On Error Resume Next语句）来使用，则GetLastError方法不能访问错误的详细数据。 ASPError对象的属性: ASPError对象提供了九个属性说明所出现的错误的性质和错误源，并返回引发错误的实际代码，其属性及说明如下: ASPCode : 整型。由ASP/IIS产生的错误号，例如0x800A009 ASPDescription: 字符串型。如果这个错误是与ASP相关的错误，这个属性是错误的详细说明.例如:All HTTP: HTTP_ACCEPT:*/* HTTP_ACCEPT_LANGUAGE:zh-cn HTTP_CONNECTION:Keep-Alive HTTP_HOST:s HTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5)) ...还有cookie等报告. Category : 字符串型。错误来源，即ASP内部脚本语言、或一个对象. Column : 整型。产生错误的文件中的字符位置 Description : 字符串型。错误的简短说明 File : 字符串型。错误出现时正在处理的文件的名称 Line : 整型。产生错误的文件中的行号 Number : 整型。一个标准的COM错误代码 Source : 字符串型。引发错误的行的实际代码 ok,这就是9个属性,使用asperror对象的语法是: asperror.property 就是这样:ASPError.ASPCode() ASPError.ASPDescription() ASPError.Category() ASPError.Column() ASPError.Description() ASPError.File() ASPError.Line() ASPError.Number() ASPError.Source() 在iis支持的所有目录下面(或:在编辑了错误映射属性的目录内)的任一页面上出现一个与ASP相关的错误时，都将载入定制错误页面。实际上，现在已经设置了一个正常的脚本错误陷阱，因为在这个目录内的任何一个网页上的ASP运行期错误都将触发定制错误页面,错误网页作为IIS的缺省安装部分，可根据个人情况定制.例如,当我们在一个目录下面输入不存在的网页时,出现404错误,当一个404错误出现时，使用的页面是404b.htm，这个文件包含一个客户端脚本代码部分，它获得当前文档的URL（从document对象的url属性中检索）并在该页面中显示：[html]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html dir=ltr> <head> <style> a:link {font:9pt/11pt 宋体; color:FF0000} a:visited {font:9pt/11pt 宋体; color:#4e4e4e} </style> <META NAME="ROBOTS" CONTENT="NOINDEX"> <title>无法找到网页</title> <META HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312"> <META NAME="MS.LOCALE" CONTENT="ZH-CN"> </head> <script> function Homepage(){ <!-- // in real bits, urls get returned to our script like this: // res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL = document.URL; //this is where the http or https will be, as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://",4); //this finds the ending slash for the domain server serverIndex=DocURL.indexOf("/",protocolIndex + 3); //for the href, we need a valid URL to the domain. We search for the # symbol to find the begining //of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker. //urlresult=DocURL.substring(protocolIndex - 4,serverIndex); BeginURL=DocURL.indexOf("#",1) + 1; urlresult=DocURL.substring(BeginURL,serverIndex); //for display, we need to skip after http://, and go to the next slash displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex); InsertElementAnchor(urlresult, displayresult); } function HtmlEncode(text) { return text.replace(/&/g, '&').replace(/'/g, '"').replace(/</g, '<').replace(/>/g, '>'); } function TagAttrib(name, value) { return ' '+name+'="'+HtmlEncode(value)+'"'; } function PrintTag(tagName, needCloseTag, attrib, inner){ document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) ); if (needCloseTag) document.write( '</' + tagName +'>' ); } function URI(href) { IEVer = window.navigator.appVersion; IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 ); return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ? encodeURI(href) : escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';'); } function InsertElementAnchor(href, text) { PrintTag('A', true, TagAttrib('HREF', URI(href)), text); } //--> </script> <body bgcolor="FFFFFF"> <table width="410" cellpadding="3" cellspacing="5"> <tr> <td align="left" valign="middle" width="360"> <h1 style="COLOR:000000; FONT: 12pt/15pt 宋体"><!--Problem-->无法找到网页</h1> </td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 9pt/11pt 宋体">您正在搜索的网页可能已经删除、更名或暂时不可用。</font></td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 9pt/11pt 宋体"> <hr color="#C0C0C0" noshade> <p>请尝试下列操作：</p> <ul> <li>如果您在“地址”栏中键入了网页地址，请检查其拼写是否正确。<br> </li> <li>打开 <script> <!-- if (!((window.navigator.userAgent.indexOf("MSIE") > 0) && (window.navigator.appVersion.charAt(0) == "2"))) { Homepage(); } //--> </script> 主页，寻找指向所需信息的链接。</li> <li>单击<a href="javascript：history.back(1)">后退</a>按钮尝试其他链接。</li> </ul> <h2 style="font:9pt/11pt 宋体; color:000000">HTTP 404 - 无法找到文件<br> Internet 信息服务<BR></h2> <hr color="#C0C0C0" noshade> <p>技术信息（支持个人）</p> <ul> <li>详细信息：<br><a href="http://www.microsoft.com/ContentRedirect.asp?prd=iis&sbp=&pver=5.0&pid=&ID=404&cat=web&os=&over=&hrd=&Opt1=&Opt2=&Opt3=" target="_blank">Microsoft 支持</a> </li> </ul> </font></td> </tr> </table> </body> </html> [/html] 当出现错误时,错误和错误网页文件之间的映射关系是在每个目录的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: <B>show_error.asp</B><P> <B>Error Details:</B><BR> ASPError.ASPCode = <% = objASPError.ASPCode %><BR> ASPError.Number = <% = objASPError.Number %> (0x<% = Hex(objASPError.Number) %>)<BR> ASPError.Source = <% = Server.HTMLEncode(objASPError.Source) %><BR> ASPError.Category = <% = objASPError.Category %><BR> ASPError.File = <% = objASPError.File %><BR> ASPError.Line = <% = objASPError.Line %><BR> ASPError.Column = <% = objASPError.Column %><BR> ASPError.Description = <% = objASPError.Description %><BR> ASPError.ASPDescription = <% = objASPError.ASPDescription %> <FORM ACTION="<% = Request.ServerVariables("HTTP_REFERER") %>" METHOD="POST"> <INPUT TYPE="SUBMIT" NAME="cmdOK" VALUE=" Return to the previous page "> <P> </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 = "<font face='Verdana, Arial, Helvetica, sans-serif'><br>" html = html & "<p>Error occured at: " & now html = html & "<p>Referred from: " & request.ServerVariables("HTTP_REFERER") html = html & "<p>Url: " & request.ServerVariables("URL") html = html & "<p><b>Category: </b></p>" & objErr.Category html = html & "<p><b>Filename: </b></p>" & objErr.File html = html & "<p><b>ASP Code: </b></p>" & objErr.ASPCode html = html & "<p><b>Number: </b></p>" & objErr.Number html = html & "<p><b>Source: </b></p>" & objErr.Source html = html & "<p><b>LineNumber: </b></p>" & objErr.Line html = html & "<p><b>Column: </b></p>" & objErr.Column html = html & "<p><b>Description: </b></p>" & objErr.Description html = html & "<p><b>ASP Description: </b></p>" & objErr.ASPDescription html = html & "<blockquote>" html = html & "All HTTP: " & Request.ServerVariables("ALL_HTTP") html = html & "</blockquote></font>" 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) & ")" & "<br>" Response.Write "<b>" & objASPError.Description & "</b><br>" If objASPError.ASPDescription > "" Then Response.Write objASPError.ASPDescription & "<br>" 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 "<br>" Response.Write "<font style=""COLOR:000000; FONT: 8pt/11pt courier new""><b>" Response.Write Server.HTMLEncode(objASPError.Source) & "<br>" If objASPError.Column > 0 Then Response.Write String((objASPError.Column - 1), "-") & "^<br>" Response.Write "</b></font>" blnErrorWritten = True End If End If If Not blnErrorWritten And objASPError.File <> "?" Then Response.Write "<b>" & objASPError.File If objASPError.Line > 0 Then Response.Write ", line " & objASPError.Line If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column Response.Write "</b><br>" 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 %><br/> 错误信息： <%= Err.Description %><br/> 出错文件： <%= Err.Source %><br/> 出错行： <%= Err.Line %><br/> <%= 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对象做点事情. （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
