Err.Raise() ASP clásico

Código ASP clásico

Err.Raise() es útil para el manejo de errores en tiempo de ejecución de una aplicación desarrollada en ASP clásico. Veremos la captura de errores con Err.Number> 0, limpiar el objeto Err con Err.Clear () y personalizar tus propios errores con Err.Raise ().

VBScript también permite personalizar los errores utilizando el método Err.Raise() de la siguiente forma:

Call Err.Raise(number, source, description)

en el cual:

"number" es un número entero en el rango de 0 y 65535 para especificar una condición de error específica, pero valores bajos ya son utilizados por VBScript para denotar erroes predefinidos. Por lo tanto, deberías usar valores altos como 60000 o más.

"source" es un texto para identificar donde ocurrió el error

"description" es un texto para describir la condición del error

A continuación un ejemplo de como utilizar Err.Raise()

<html>

<body>

<%

On Error Resume Next

response.write("Validar ""1999-12-31""...")

Call ValidateIsoDate("1999-12-31")

Call CheckError()

'===

response.write("Validar ""Year-12-31""...")

Call ValidateIsoDate("Year-12-31")

Call CheckError()

'===

response.write("Validar ""2006-15-31""...")

Call ValidateIsoDate("2006-15-31")

Call CheckError()

'===

response.write("Validar ""1999/12/31""...")

Call ValidateIsoDate("1999/12/31")

Call CheckError()

' Validar cadena de fecha en formato ISO: yyyy-mm-dd

'===

Sub ValidateIsoDate(sString)

If Len(sString) <> 10 Then

Call Err.Raise(60001, "Verificar", "La longitud debe ser 10")

Exit Sub

End If

sYear = Mid(sString, 1, 4) If Not IsNumeric(sYear) Then

Call Err.Raise(60002, "Verificar", "Año debe ser numérico")

Exit Sub

End If

sDash = Mid(sString, 5, 1) If sDash <> "-" Then

Call Err.Raise(60003, "Verificar", "Falta primer guión")

Exit Sub

End If

sMonth = Mid(sString, 6, 2)

If Not IsNumeric(sMonth) Then

Call Err.Raise(60004, "Verificar", "Año debe ser numérico")

Exit Sub

End If

If CInt(sMonth) < 1 or CInt(sMonth) > 12 Then

Call Err.Raise(60005, "Verificar", "Mes inválido")

Exit Sub

End If

sDash = Mid(sString, 8, 1)

If sDash <> "-" Then

Call Err.Raise(60006, "Verificar", "Falta segundo guión")

Exit Sub

End If

sDate = Mid(sString, 9, 2) If Not IsNumeric(sDate) Then

Call Err.Raise(60007, "Verificar", "Fecha debe ser numérico")

Exit Sub

End If

If CInt(sDate) < 1 or CInt(sDate) > 31 Then

Call Err.Raise(60008, "Verificar", "Fecha inválida")

Exit Sub

End If

End

'===

Sub Sub CheckError()

If Err.Number > 0 Then

response.write("Ocurrio un error:")

response.write(" Err.Number = " & Err.Number)

response.write(" Err.Description = " & Err.Description)

response.write(" Err.Source = " & Err.Source)

Else

response.write("No hay error.")

End If

End Sub

%>

</body>

</html>

tags:

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.