狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

VBscript語(yǔ)言提供了兩個(gè)語(yǔ)句和一個(gè)對(duì)象來(lái)處理"運(yùn)行時(shí)錯(cuò)誤"，如下所示：

• On Error Resume Next語(yǔ)句

• On Error Goto 0語(yǔ)句

• Err對(duì)象

 

簡(jiǎn)單介紹一下On Error Resume Next，On Error Goto 0，Err這三者

On Error Resume Next語(yǔ)句和On Error Goto 0語(yǔ)句指明了當(dāng)出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)的處理方式。

當(dāng)加上On Error Resume Next語(yǔ)句后，如果后面的程序出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)，會(huì)繼續(xù)運(yùn)行，不中斷。

當(dāng)加上On Error Goto 0語(yǔ)句后，如果后面的程序出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)，會(huì)顯示"出錯(cuò)信息"并停止程序的執(zhí)行。

Err對(duì)象保存了“錯(cuò)誤信息”

下面結(jié)合例子講解On Error Resume Next，On Error Goto 0，Err這三者

沒(méi)有加上On Error Resume Next語(yǔ)句

如果沒(méi)有加上On Error Resume Next語(yǔ)句，當(dāng)出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí),會(huì)顯示"出錯(cuò)信息"并停止程序的執(zhí)行.

舉例（/test.asp文件）：

i = 1/0   '0作除數(shù)，產(chǎn)生"運(yùn)行時(shí)錯(cuò)誤",顯示"出錯(cuò)信息"并停止程序的執(zhí)行
Response.Write "除法執(zhí)行后"   '這句話(huà)將不會(huì)執(zhí)行
%>

 

結(jié)果：

Microsoft VBscript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000b'

被零除

/test.asp，行 2

 

加上On Error Resume Next語(yǔ)句

        當(dāng)我們?cè)谀程幖由螼n Error Resume Next這條語(yǔ)句后,隨后的程序即便出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí),也不會(huì)顯示"出錯(cuò)信息",并且會(huì)繼續(xù)運(yùn)行下去.

舉例：

On Error Resume Next   '后面的程序即便出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)，也會(huì)繼續(xù)運(yùn)行
i = 1/0   '0作除數(shù)，這是一種"運(yùn)行時(shí)錯(cuò)誤"，但因?yàn)橛辛松厦鍻n Error Resume Next這句話(huà)，所以不會(huì)中斷執(zhí)行，而是會(huì)繼續(xù)運(yùn)行下去
Response.Write "除法執(zhí)行后"   '這句話(huà)將會(huì)執(zhí)行

 

結(jié)果：

    Microsoft VBscript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000b'

    被零除

    /test.asp，行 2

 

加上On Error Resume Next語(yǔ)句后，使用Err對(duì)象來(lái)得到錯(cuò)誤信息

使用了On Error Resume Next之后，如果出錯(cuò),那么Err對(duì)象中將放置最近一次出錯(cuò)的信息。

Err對(duì)象重要的屬性有三個(gè)：Number, Source, Description。分別是錯(cuò)誤號(hào)，錯(cuò)誤來(lái)源，錯(cuò)誤描述。

你能捕獲的都是運(yùn)行時(shí)錯(cuò)誤，而且If Err then這樣的寫(xiě)法等價(jià)于If Err.Number then

Dim i
i = 1/0   '第一個(gè)錯(cuò)誤 
undefined_function "test"   '第二個(gè)錯(cuò)誤，函數(shù)undefined_function未定義 
Response.Write Err.Description

運(yùn)行結(jié)果：

類(lèi)型不匹配

 

可以看到，提示的并不是被零除

使用On Error Goto 0 語(yǔ)句，讓系統(tǒng)重新接管錯(cuò)誤的處理

加上On Error Resume Next語(yǔ)句后，后面的程序即便出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)，也會(huì)繼續(xù)運(yùn)行.可是如果希望后面的程序出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)停止執(zhí)行并顯示錯(cuò)誤,該怎么做呢?

答案是:使用On Error Goto 0 語(yǔ)句

使用 On Error Goto 0 這條語(yǔ)句后，后面的程序一旦有錯(cuò)誤發(fā)生就會(huì)提示錯(cuò)誤，并結(jié)束腳本執(zhí)行。

Dim i
i = 1/0
Response.Write "第一個(gè)除法執(zhí)行后"
On Error Goto 0   '后面的語(yǔ)句一旦有錯(cuò)誤發(fā)生就會(huì)提示錯(cuò)誤，并結(jié)束腳本執(zhí)行
i = 1/0
Response.Write "第二個(gè)除法執(zhí)行后"

運(yùn)行結(jié)果：

第一個(gè)除法執(zhí)行后

Microsoft VBscript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000b'

被零除

/test.asp，行 2

 

可以看到，第一個(gè)Response.Write執(zhí)行并輸出了內(nèi)容，第二個(gè)Response.Write沒(méi)有執(zhí)行。

詳細(xì)講一下On Error Resume Next

On Error Resume Next語(yǔ)句的作用范圍

On Error Resume Next語(yǔ)句只作用于本級(jí)別的后續(xù)語(yǔ)句。不會(huì)作用于被調(diào)用的函數(shù)或子程序，同樣也不會(huì)作用于父級(jí)別的程序段

On Error Resume Next語(yǔ)句如果出現(xiàn)在某個(gè)函數(shù)中，則只對(duì)本函數(shù)產(chǎn)生影響。對(duì)“主調(diào)函數(shù)”和“被調(diào)函數(shù)”均沒(méi)有影響

一個(gè)子程序中如果沒(méi)有On Error Resume Next語(yǔ)句，那么當(dāng)錯(cuò)誤在子程序中出現(xiàn)時(shí),將會(huì)中斷這個(gè)子程序的運(yùn)行,跳轉(zhuǎn)到調(diào)用這個(gè)子程序的外層程序.如果這個(gè)外層程序在“出問(wèn)題的函數(shù)調(diào)用”之前包含有On Error Resume Next語(yǔ)句，則會(huì)接著執(zhí)行“函數(shù)調(diào)用”之后的語(yǔ)句。如果這個(gè)外層程序在“出問(wèn)題的函數(shù)調(diào)用”之前沒(méi)有On Error Resume Next語(yǔ)句，那么就跳向外層。這個(gè)過(guò)程一直重復(fù),直到找到包含有On Error Resume Next語(yǔ)句的環(huán)境繼續(xù)運(yùn)行，如果最外層的程序也沒(méi)有包含On Error Resume Next語(yǔ)句，那么將會(huì)使用缺省的錯(cuò)誤處理器，也就是顯示錯(cuò)誤信息并停止運(yùn)行。

舉例：

 Sub test() 
 Dim i 
 i = 1/0 
 Response.Write "OK"
 End Sub
 Sub test1() 
 test 
 Response.Write "OK"
 End Sub
 On Error Resume Next
 test1

 

結(jié)果：

除法執(zhí)行后

 

兩個(gè)ok都沒(méi)有被打印。因?yàn)镺n Error Resume Next是在最外層下達(dá)的，所以當(dāng)調(diào)用的子程序中出了問(wèn)題之后，會(huì)直接從子程序中跳出，跳到外層的代碼中。

如果在子程序的開(kāi)頭放置一個(gè)On Error Resume Next語(yǔ)句，出現(xiàn)的運(yùn)行期錯(cuò)誤不會(huì)中止這個(gè)子程序的運(yùn)行，。

例如，如果需要向一個(gè)文件中寫(xiě)入字符串，可以通過(guò)一個(gè)獨(dú)立的函數(shù)對(duì)文件進(jìn)行訪問(wèn)，防止錯(cuò)誤中斷整個(gè)程序的運(yùn)行：

'returns True if it succeeds, or False on any error
Function WriteNewFile(strFileName, strContent)  
    On Error Resume Next   'turn off the default error handler  
    WiteNewFile = Flase   'default return value of function  
    Set objFSO = createObject("scripting.FileSystemObject")  
    If Err.Number = 0 Then Set objFile = objFSO.createTextFile(strFileName,True)  
    If Err.Number = 0 Then objFile.WriteLine strContent  
    If Err.Number = 0 Then objFile.Close  
    If Err.Number = 0 Then WriteNewFile = True
End Function

 

上面的程序在處理每個(gè)程序語(yǔ)句之前，先檢查Err對(duì)象的Number屬性。如果值為0（還沒(méi)有出現(xiàn)錯(cuò)誤），那么就能夠繼續(xù)對(duì)文件的創(chuàng)建和寫(xiě)入過(guò)程。如果錯(cuò)誤發(fā)生了，腳本引擎將設(shè)置Err對(duì)象的屬性的值，并且繼續(xù)處理下一行。

只要不引起錯(cuò)誤而能正常運(yùn)行，函數(shù)的返回值將設(shè)置為“True”。否則函數(shù)將返回“False”。

On Error Goto 0語(yǔ)句

在ASP 2.0（盡管沒(méi)有文檔記錄）和ASP 3.0中，On Error Goto 0語(yǔ)句可以恢復(fù)缺省的錯(cuò)誤處理行為。

在運(yùn)行這個(gè)語(yǔ)句后，發(fā)生的運(yùn)行期錯(cuò)誤將導(dǎo)致缺省錯(cuò)誤處理，在環(huán)境鏈中檢查每個(gè)嵌套的程序，直到主頁(yè)面代碼。如果沒(méi)有其他的環(huán)境關(guān)閉缺省錯(cuò)誤處理，網(wǎng)頁(yè)的執(zhí)行將停止并顯示IIS缺省錯(cuò)誤網(wǎng)頁(yè)。

Err對(duì)象

在前面的例子中，關(guān)閉缺省錯(cuò)誤處理后，通過(guò)檢查Err對(duì)象的Number屬性，查看錯(cuò)誤是否已經(jīng)出現(xiàn)。

Err對(duì)象存儲(chǔ)了關(guān)于運(yùn)行期錯(cuò)誤的信息

下表給出了Err對(duì)象提供的屬性。

使用這些屬性可以檢查發(fā)生了哪種錯(cuò)誤。例如，可以根據(jù)錯(cuò)誤號(hào)采取不同的措施，也可以用Source和Description的屬性值為用戶(hù)提供錯(cuò)誤信息。

 

下表給出了Err對(duì)象提供的方法。

 

使用Err對(duì)象生成一個(gè)“自定義錯(cuò)誤”。

可以使用Err對(duì)象生成一個(gè)“自定義錯(cuò)誤”。為什么要做這些呢？因?yàn)橛袝r(shí)想把一個(gè)定制的錯(cuò)誤消息傳送給用戶(hù)。可以把Err對(duì)象的屬性設(shè)置成所希望的任何值，然后調(diào)用Raise方法來(lái)產(chǎn)生這種錯(cuò)誤，這樣做會(huì)停止程序的運(yùn)行，并且把錯(cuò)誤沿調(diào)用鏈向回傳遞。

下面的例子顯示了在服務(wù)器磁盤(pán)上讀取一個(gè)文本文件時(shí)，如何處理錯(cuò)誤。注意如何使用常數(shù)vbObjectError，以確定所選擇的錯(cuò)誤號(hào)不會(huì)和一個(gè)已存在的錯(cuò)誤號(hào)混淆。通過(guò)把任意選擇的錯(cuò)誤號(hào)加到此常數(shù)中，就能夠保證和預(yù)定義的錯(cuò)誤不混淆。

  Set objFSO = createObject("scripting.FileSystemObject")  
  Set objFile = objFSO.OpenTextFile("strFileName", ForReading)  
  select Case Err.Number   
      Case 0   'OK, take no action   
      Case 50,53   'standard file or path not found errors    
      'create custom error values and raise error back up the call chain    
      intErrNumber = vbObjectError + 1073     'custom error number    
      strErrDescription = "The file has been deleted or moved. "    
      strErrSource = " ReadThisFile function"    
      Err.Raise intErrNumber, strErrSource, strErrDescription    
      Exit Function   
      Case Else   'som other error    
      'raise the standard error back up the call chain    
      Err.Raise Err.Number, Err.Source, Err.Description    
      Exit Function  
  End select  
  ReadThisFile = objFile.ReadAll   ' we opened it OK, so return the content  
  objFile.Close
  End Function

 

調(diào)用這個(gè)函數(shù)的代碼可以使用On Error Resume Next語(yǔ)句，并且能捕獲這個(gè)函數(shù)產(chǎn)生的錯(cuò)誤。

strContent = ReadThisFile("myfile.txt")
If Err.Number = 0 Then    
Response.Write "File content is:<br/>" & strContentElse    
Response.Write Err.Source & "<br/>" & Err.Description
End If

下面是另一篇：

on error resume next 
用了on error resume next

則在這句往后的代碼就算出錯(cuò)也會(huì)繼續(xù)執(zhí)行

具體有沒(méi)有錯(cuò)可以用err.number來(lái)判斷

err.number=0表示沒(méi)有出錯(cuò)

err.number<>0表示有錯(cuò)

具體什么錯(cuò)誤可以用ASPError對(duì)象獲得

首先建立
set objasperror=server.GetLastError 對(duì)象，接著由 ASPError 物件的屬生取得相關(guān)信息：

objasperror.ASPCode：傳回iis產(chǎn)生的錯(cuò)誤碼

objasperror.Number：傳回com標(biāo)準(zhǔn)錯(cuò)誤碼，如 0x800a03fc

objasperror.Source：傳回實(shí)際產(chǎn)生錯(cuò)誤的原始碼

objasperror.Category：指出錯(cuò)誤的來(lái)源為 asp、script 或是 object

objasperror.File：傳回錯(cuò)誤程序檔案名稱(chēng)

objasperror.Line：傳回錯(cuò)誤程序的行數(shù)

objasperror.Column：傳回錯(cuò)誤程序的列數(shù)

objasperror.Description：傳回錯(cuò)誤原因簡(jiǎn)介

objasperror.ASPDescription：傳回詳細(xì)錯(cuò)誤原因

簡(jiǎn)單介紹 
　　ASP是非常簡(jiǎn)單的，以至于許多的開(kāi)發(fā)者不會(huì)去思考錯(cuò)誤處理。錯(cuò)誤處理能夠讓你的應(yīng)用程序更加合理。我看到過(guò)很多個(gè)用ASP編寫(xiě)的商業(yè)網(wǎng)站，大多數(shù)都忽略了錯(cuò)誤處理。 錯(cuò)誤的類(lèi)型 
有三種主要的錯(cuò)誤類(lèi)型： 
１．編譯錯(cuò)誤： 
　　這種錯(cuò)誤出現(xiàn)一般都是代碼的語(yǔ)法問(wèn)題。因?yàn)榫幾g錯(cuò)誤而導(dǎo)致辭ASP停止運(yùn)行。 
２．運(yùn)行錯(cuò)誤： 
　　這個(gè)錯(cuò)誤是發(fā)生在你準(zhǔn)備運(yùn)行ASP時(shí)的。例如：如果你試圖給一個(gè)變量賦值，但是卻超出了該變量允許的范圍。 
３．邏輯錯(cuò)誤： 
　　邏輯錯(cuò)誤是最難被發(fā)現(xiàn)的，這種錯(cuò)誤經(jīng)常是一種結(jié)構(gòu)錯(cuò)誤，電腦是發(fā)現(xiàn)不了的。這就需要我們徹頭徹尾地檢查我們的代碼。 
　　因?yàn)榫幾g錯(cuò)誤一般是和邏輯錯(cuò)誤一起發(fā)生的，一般都能顯示出來(lái)，所以我們擔(dān)心的就只是運(yùn)行錯(cuò)誤。它都終止ASP的運(yùn)行，而且給用戶(hù)丟下一堆很不友好的文字。 那么我們要怎樣處理運(yùn)行錯(cuò)誤呢？ 
　　我們先來(lái)看看，ASP唯一提供給我們的錯(cuò)誤命令---On Error Resume Next(這里提醒一下初學(xué)者，在ASP中只有On Error Resume Next語(yǔ)句，沒(méi)有On Error Resume Goto語(yǔ)句） 如果你不使用On Error Resume Next語(yǔ)句的話(huà),一切運(yùn)行錯(cuò)誤都會(huì)發(fā)生，這個(gè)是致命的，那么就會(huì)有一段錯(cuò)誤代碼“展現(xiàn)”給用戶(hù)，而且ASP程序也會(huì)停止。 下面就是一個(gè)錯(cuò)誤代碼： 
　　 Microsoft OLE DB Provider for ODBC Drivers error 80004005 [Microsoft][ODBC Driver Manager] 　　Data source name not found and no default driver specified /test.asp, line 60 
　　當(dāng)我們?cè)诔绦蜃钌厦媸褂肙n Error Resume Next語(yǔ)句時(shí)，所有的錯(cuò)誤都會(huì)被忽略，程序會(huì)自動(dòng)執(zhí)行下一條語(yǔ)句。這樣程序就會(huì)完全執(zhí)行，出錯(cuò)后用戶(hù)也不會(huì)看到出錯(cuò)信息。但是這樣也有 不好的地方，那就是如果程序沒(méi)有按照你想像的執(zhí)行的話(huà)，你就很難找到到底是哪里出了問(wèn)題，所以你就得在必要的地方對(duì)錯(cuò)誤進(jìn)行處理。 
處理錯(cuò)誤 
　　在ASP中，處理錯(cuò)誤的最好的辦法就是在程序最底端放上代碼來(lái)處理錯(cuò)誤。我也推薦在每個(gè)ASP程序都使用緩沖區(qū)。這樣的話(huà)，如果錯(cuò)誤發(fā)生，頁(yè)面就會(huì)停止， 頁(yè)面內(nèi)容也會(huì)被清除，這樣用戶(hù)就不會(huì)看到錯(cuò)誤信息，對(duì)你們的抱怨也就少了！下面是一個(gè)例子： 
<%@ LANGUAGE="VBscript" %> 
<%Response.Buffer = True 
"設(shè)置buffer為T(mén)rue 
On Error Resume Next 
"開(kāi)始錯(cuò)誤處理 
%> 
<%"錯(cuò)誤處理 
If Err.Number <> 0 Then 
"清除頁(yè)面 
Response.Clear 
"顯示錯(cuò)誤信息給用戶(hù) 
%> 
<HTML> 
<HEAD> 
<TITLE></TITLE> 
</HEAD> 
<BODY BGCOLOR="#C0C0C0"> 
<FONT FACE="ARIAL">An error occurred in the execution of this ASP page<BR> 
Please report the following information to the support desk 
<P><B>Page Error Object</B><BR> 
錯(cuò)誤 Number： <%= Err.Number %><BR> 
錯(cuò)誤信息： <%= Err.Description %><BR> 
出錯(cuò)文件： <%= Err.Source %><BR> 
出錯(cuò)行： <%= Err.Line %><BR> 
</FONT> 
</BODY> 
</HTML> 
<%End If%> 
　　你們上面看到了，我首先設(shè)置On Error Resume Next ，這樣出現(xiàn)錯(cuò)誤就不會(huì)影響程序的執(zhí)行。 
錯(cuò)誤處理和數(shù)據(jù)庫(kù) 
　　在錯(cuò)誤處理中加入數(shù)據(jù)庫(kù)的執(zhí)行是很復(fù)雜的。假若我們有一個(gè)程序，有很多的命令去向數(shù)據(jù)庫(kù)中添加記錄，如果insert/update在程序的最底部執(zhí)行，如果我們前面又錯(cuò)誤發(fā)生，那就完了！我們就會(huì)向數(shù)據(jù)庫(kù)中添加了一個(gè)錯(cuò)誤的信息。因?yàn)槲覀冇昧薕n Error Resume Next 一切的錯(cuò)誤都被忽略了！即使前面出錯(cuò)，程序依舊會(huì)向數(shù)據(jù)庫(kù)中添加數(shù)據(jù)的。 
　　為避免這種情況，我們就先得做些手腳，正確處理的方法如下： 
If Err.Number = 0 And objConnection.Errors.Count = 0 Then 
"這里才能執(zhí)行語(yǔ)句，因?yàn)闆](méi)有錯(cuò)誤 
　　Set rstResults = dbData.execute(txtSql) 
End If 
更多高級(jí)的處理辦法 
　　當(dāng)一個(gè)錯(cuò)誤發(fā)生時(shí)，你們也可以顯示更多的錯(cuò)誤信息。下面是同時(shí)處理數(shù)據(jù)庫(kù)和頁(yè)面錯(cuò)誤的例子，有了它我們一下就能發(fā)現(xiàn)我們程序中的所有錯(cuò)誤。 （由于有些地方我覺(jué)得英文更能說(shuō)時(shí)問(wèn)題，所以沒(méi)有翻譯）。 
<% If Err.Number <> 0 Then 
　　Response.Clear 
　　select Case Err.Number 
　　　　Case 8 
　　　　　"指定錯(cuò)誤的Number 
　　　　　"在這里處理自定義錯(cuò)誤 
　　　　Case Else 
　　　　　"一般錯(cuò)誤 
　　　　　If IsObject(objConnection) Then 
　　　　　　If objConnection.Errors.Count > 0 Then 
　　　　　　%> 
　　　　　　<B>Database Connection Object</B> 
　　　　　　<% 　 
　　　　　　　For intLoop = 0 To objConnection.Errors.Count - 1 %> 
　　　　　　　　Error No: <%= objConnection.Errors(intLoop).Number %><br> 
Description: <%= objConnection.Errors(intLoop).Description %><BR> 
Source: <%= objConnection.Errors(intLoop).Source %><BR> 
SQLState: <%= objConnection.Errors(intLoop).SQLState %><BR> 
NativeError: <%= objConnection.Errors(intLoop).NativeError %><P> 
<% Next 
End If 
End If 
If Err.Number <> 0 Then %> <B> 
Page Error Object</B><BR> 
Error Number <%= Err.Number %><BR> 
Error Description <%= Err.Description %><BR> 
Source <%= Err.Source %><BR> 
LineNumber <%= Err.Line %><P> 
<%End If 
End select 
End If %> 
　　上面的例子讓我們一下了處理了很多在數(shù)據(jù)庫(kù)中出現(xiàn)的問(wèn)題，這個(gè)在我們?nèi)粘＞幊桃彩浅Ｓ玫模∥覀円矐?yīng)該看到那個(gè)select Case 語(yǔ)句，它能讓我們來(lái)處理特定的錯(cuò)誤。 
Redirect 和錯(cuò)誤處理 
　　有一點(diǎn)我們就當(dāng)注意一下，就是我們常用到的redirect對(duì)象，如果一個(gè)頁(yè)面中出現(xiàn)了redirect對(duì)象，那么錯(cuò)誤處理就失去了意義。所以在轉(zhuǎn)向之前我們還得處理一下，如下： 
　　If Err.Number = 0 And objConnection.Errors.Count = 0 Then 
　　　Response.Clear 
　　　Response.Redirect ?lt;URL Here>? 
　　End If 
把代碼變得更整齊 
　　為了讓代碼變得更整齊，首先把錯(cuò)誤處理的文件放在一個(gè)包含文件中。這樣你就可以在任何文件中使用它。這樣修改也方便。在你程序的最上方加入(當(dāng)然在語(yǔ)言聲明之后）On Error Resume Next語(yǔ)句。在你執(zhí)行SQL以前進(jìn)行錯(cuò)誤檢查。使用redirect以前也要進(jìn)行錯(cuò)誤處理。 
讓你處理錯(cuò)誤的包含文件在代碼的最上面
https://blog.csdn.net/xuxujian/article/details/6552858