ASP Object Err : สอน method และ property ของ Object Err, เรียน method และ property ของ Object Err
 

Reference

Reference ในเว็บไซต์ Function.in.th เป็นการนำเสนอความรู้ในรูปแบบของแหล่งอ้างอิงของคำสั่งต่าง ๆ ที่ใช้ในการเขียนโปรแกรม โดยผู้ที่สนใจสามารถเข้ามาเรียนรู้การใช้งานคำสั่งของการเขียนโปรแกรมเหล่านี้ได้ ผ่านทาง URL code.function.in.th ทั้งนี้ผู้อ่านยังสามารถร่วมแสดงความคิดเห็นบนเนื้อหาที่มีสอนได้ ซึ่งถือเป็นการส่งเสริมให้มีการแลกเปลี่ยนประสบการณ์และความรู้ระหว่างผู้อ่านด้วยกันเอง
  • 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

 
Share This Chapter Login with Facebook