Validar la entrada de datos en VBscript

Casi todos los que trabajan de webmasters o han tenido que desarrollar algún sitio web, se encontraron con que debían colocar uno o más formularios para que los usuarios ingresaran distintos datos, el problema es cuando estos usuarios ingresan datos erroneos en los campos equivocados, esto suele traer problemas especialmente cuando necesitamos que los datos se almacenen en una base de datos.

Aca tenemos una serie de funciones desarrolladas en VBScript para que controlen las entradas a distintos tipos de datos:

Controlar la dirección de email.
Esta función verifica que el usuario ingrese su dirección de email correctamente.

Usar:
TuEmail("juan@perez") ´Return False
TuEmail("juan.carlos@perez") ´Return False
TuEmail("juan@perez") ´Return False
TuEmail("juan@perez") ´Return False
TuEmail("juan@perez") ´Return False
TuEmail("juan@perez") ´Return False
TuEmail("juan@perez") ´Return True

Function TuEmail(sCheckEmail)
Dim sEmail, nAtloc
TuEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, " @")

If Not (nAtLoc > 1 And (InStrRev(sEmail, " .") > nAtLoc + 1)) Then
TuEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
TuEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
TuEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
TuEmail = False

End If
End Function

Controlar la entrada de ciertos caracteres.
Muchas veces necesitamos que los usuarios ingresen distintos tipos de datos que se almacenaran un nuestra base de datos, al hacer esto, es muy probable que solo querramos almacenar datos numéricos, letras o espacios y no asi, signos de puntuacion o simbolos.

Function IsAlphaNumeric(sString)
Dim nChar, i
IsAlphaNumeric = True
For i = 1 To Len(sString)
nChar = Asc(LCase(Mid(sString, i, 1)))
If not ((nChar > 47 And nChar < 58) or (nChar > 96 And nChar < 123) or nChar = 32) Then

IsAlphaNumeric = False
Exit For
End If
Next
End Function

Comprobar un Login Valido.
Si se requiere que los usuarios se registren para acceder a ciertas partes del sitio y permitirles elegir su propio login y password. La funcion IsValidLoginFormat asegura que el usuario elija un login y password de aceptable tamaño y que contenga solo letras y numeros.

Usar:
IsValidLoginFormat("juan22") 'Return True
IsValidLoginFormat("juan perez") 'Return False porque tiene un espacio
IsValidLoginFormat("j") 'Return False porque es demasiado corto
IsValidLoginFormat("juannnnnnnnnnnnnnnnnnnnnnnnn") 'Return False porque es muy largo

Function IsValidLoginFormat(sString)
Dim nChar, i
IsValidFormat = True
' El login debe tener entre 8 y 12 caracteres
If(Len(sString) >= 8) And (Len(sString) <= 12) Then

For i = 1 To Len(sString)
nChar = Asc(LCase(Mid(sString, i, 1)))
If not ((nChar > 47 And nChar < 58) or (nChar > 96 And nChar < 123)) Then

IsValidLoginFormat = False
Exit For
End If
Next
Else
IsValidLoginFormat = False

End If
End Function

Comprobar el numero de telefono.
Esta es una función para limpiar la entrada de numeros telefónicos, que no incluya paréntesis, símbolos o otros caracteres no deseados.

Usar:
LimpiarNum("(602) 753-2092") 'Return "6027532092"
LimpiarNum("(602-753-2092") 'Return "6027532092"
LimpiarNum("602.753.2092") 'Return "6027532092"

Function LimpiarNum(sString)
Dim i, sChar, sNonNumeric
sNonNumeric = ""
For i = 1 To Len(sString)
sChar = Mid(sString, i, 1)
If Asc(sChar) > 47 And Asc(sChar) < 58 Then
sNonNumeric = sNonNumeric & sChar
End If
Next

LimpiarNum = sNonNumeric
End Function

Comprobar Digitos.

Usar:
Dig("24", 4) 'Return "0024"
Dig(58,3) 'Return "058"
Dig("1999",2) 'Return "99"

Function Dig(sNumberString, nReturnLength)
If nReturnLength > Len(sNumberString) Then

Dig = String(nReturnLength - Len(sNumberString), "0" & sNumberString
Else
Dig = Right(sNumberString, nReturnLength)
End If
End Function

Todas estas funciones puestas todas juntan para validar la entrada de formularios puede ser una buena ayuda para tener datos mas claros de parte de los usuarios.

Lamentablemente como el código está en VBScript del lado del cliente, no funcionará con Netscape.

Autor: Alejandro Gassmann
http://www.gamarod.com.ar/articulos/validar_la_entrada_de_datos_del_lado_del_cliente.asp

Usuarios que han visto este tema también han visto...

- Declarar variables VBScript
- Función msgbox de VBScript
- Introducción a VBScript
- Uso de funciones en VBS

- Versión imprimible de este documento

- Enviar por e-mail este documento