ASP Error對象的技巧_ASP教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
推薦：ASP開發中有用的函數(function)集合(1)ASP開發中有用的function集合,挺有用處的！希望大家保留！ % '************************************* '防止外部提交 '************************************* function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari
在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
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()
就是這樣: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內部對象集合或屬性中的值。例如，如果檢索來自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對象做點事情.
分享：ASP開發中有用的函數(function)集合(2)ASP開發中有用的函數（function）集合，挺有用的，請大家保留！ '************************************* '過濾超鏈接 '************************************* Function checkURL(ByVal ChkStr) Dim str:str=ChkStr str=Trim(str) If IsNull(str) Then chec
相關ASP教程：
- 相關鏈接：
- 教程說明：
ASP教程-ASP Error對象的技巧
。