ASP技巧研究: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; 视窗系统 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">

<head>

</style>

<title>无法到网页</title>

</head>

function Homepage(){

<!--

// in real bits, urls get returned to our script like this:

// res://shdocvw.dll/http_404.htm#www.DocURL/bar.htm

/For testing use DocURL = "res://shdocvw.dll/http_404.htm#www.microsoft/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 , and go to the next slash

displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex);

InsertElementAnchor(urlresult, displayresult);

}

function HtmlEncode(text)

{

place(/&/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>

<tr>

<h1 >无法到网页</h1>

</td>

</tr>

<tr>

<td width="400" colspan="2"> 你正在搜索的

网页可能已删除、更名或暂时不可用。</td>

</tr>

<tr>

请尝试下列操作：

<ul>

<li>如果你在“地址”栏中键入了网页地址，请检查其拼写是否正确。

</li>

<!--

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 >HTTP 404 - 无法到文件 Internet 信息服务 </h2>

技术信息（支持个人）

<ul>

<li>周详信息： <a href="www.microsoft/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>

</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: 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">

</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"

<= "5do8@5do8"

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 & " "

blnErrorW

ritten = 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

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，原

ASP技巧研究:ASP Error对象的相关知识

发布评论取消回复

最近发表

热门文章

标签列表