|
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.
|
VBscript
