| Number | ใช้คืนค่า รหัสของความผิดพลาด (HTTP Error Code) |
|---|---|
| Source | ใช้คืนค่า ออปเจ็ค ที่ทำให้เกิดความผิดพลาด |
| Description | ใช้คืนค่า รายละเอียดของความผิดพลาด |
| Clear | ใช้กำหนดให้ รหัสของความผิดพลาดเท่ากับศูนย์ ( Err.Number = 0 ) |
| Raise() | ใช้สร้างรหัสและรายละเอียดของความผิดพลาดขึ้นเอง |
property:Number
return type:Number
content:ใช้คืนค่า รหัสของความผิดพลาด (HTTP Error Code)
example:On Error Resume Next Dim yourAge yourAge = Request.Form(“age”) If youtAge <> “” Then If yourAge < 0 Then Err.Raise vbobjectError+1, , “Age must be more than Zero” Else If yourAge > 150 Then Err.Raise vbobjectError+2, , “Age must be less than 150” End If Call checkError End If Dim result Result = 5/0 Call checkError Sub checkError() If Err.Number <> 0 Then Response.Write “<u> Error occurred. </u><br>” Response.Write “Number : “ & Err.Number & “<br>” Response.Write “Description : “ & Err.Description Err.Clear End If End Sub
property:Source
return type:Object
content:ใช้คืนค่า ออปเจ็ค ที่ทำให้เกิดความผิดพลาด
example:On Error Resume Next Dim yourAge yourAge = Request.Form(“age”) If youtAge <> “” Then If yourAge < 0 Then Err.Raise vbobjectError+1, , “Age must be more than Zero” Else If yourAge > 150 Then Err.Raise vbobjectError+2, , “Age must be less than 150” End If Call checkError End If Dim result Result = 5/0 Call checkError Sub checkError() If Err.Number <> 0 Then Response.Write “<u> Error occurred. </u><br>” Response.Write “Number : “ & Err.Number & “<br>” Response.Write “Description : “ & Err.Description Err.Clear End If End Sub
property:Description
return type:String
content:ใช้คืนค่า รายละเอียดของความผิดพลาด
example:On Error Resume Next Dim yourAge yourAge = Request.Form(“age”) If youtAge <> “” Then If yourAge < 0 Then Err.Raise vbobjectError+1, , “Age must be more than Zero” Else If yourAge > 150 Then Err.Raise vbobjectError+2, , “Age must be less than 150” End If Call checkError End If Dim result Result = 5/0 Call checkError Sub checkError() If Err.Number <> 0 Then Response.Write “<u> Error occurred. </u><br>” Response.Write “Number : “ & Err.Number & “<br>” Response.Write “Description : “ & Err.Description Err.Clear End If End Sub
property:Clear
return type:void
content:ใช้กำหนดให้ รหัสของความผิดพลาดเท่ากับศูนย์ ( Err.Number = 0 ) ควรใช้คำสั่งนี้เสมอเมื่อแสดงความผิดพลาดแล้ว
example:On Error Resume Next Dim yourAge yourAge = Request.Form(“age”) If youtAge <> “” Then If yourAge < 0 Then Err.Raise vbobjectError+1, , “Age must be more than Zero” Else If yourAge > 150 Then Err.Raise vbobjectError+2, , “Age must be less than 150” End If Call checkError End If Dim result Result = 5/0 Call checkError Sub checkError() If Err.Number <> 0 Then Response.Write “<u> Error occurred. </u><br>” Response.Write “Number : “ & Err.Number & “<br>” Response.Write “Description : “ & Err.Description Err.Clear End If End Sub
method:Raise ( Number, Source, Description, HelpFile, HelpContext )
return type:void
content:ใช้สร้างรหัสและรายละเอียดของความผิดพลาดขึ้นเอง หมายความว่า เมื่อพบคำสั่งนี้ แล้วนั้น Err.Number <> 0 แล้ว และจะเท่ากับ Number ที่กำหนดแทน Number นิยมใช้ vbobjectError + ตัวเลข เพื่อป้องกันไปซ้ำกับของเดิมที่มีอยู่แล้ว (vbobjectError คือค่าคงที่ของรหัสของความผิดพลาดที่ Microsoft สร้างขึ้นมา) Source คือชื่อของออปเจ็ค หรือชื่อของโปรแกรม ที่ก่อให้เกิดความผิดพลาด Description คือรายละเอียดของความผิดพลาด HelpFile คือชื่อของไฟล์ Help HelpContext คือรหัสของความผิดพลาดในไฟล์ Help
example:On Error Resume Next Dim yourAge yourAge = Request.Form(“age”) If youtAge <> “” Then If yourAge < 0 Then Err.Raise vbobjectError+1, , “Age must be more than Zero” Else If yourAge > 150 Then Err.Raise vbobjectError+2, , “Age must be less than 150” End If Call checkError End If Dim result Result = 5/0 Call checkError Sub checkError() If Err.Number <> 0 Then Response.Write “<u> Error occurred. </u><br>” Response.Write “Number : “ & Err.Number & “<br>” Response.Write “Description : “ & Err.Description Err.Clear End If End Sub
