Hola.
Os dejo una funcion que sirve para ver si una cadena cumple un patron de una expresion regular. Con esta funcion podemos saber si la cadena es valida o no dependiendo del patron. Sirve para validar direcciones de mail, validar nombres, contraseñas, etc... Dependiendo del patron.
Código:
<%Function ExprRegulares(patron,cadena)
Dim ExprReg
set ExprReg = New RegExp
ExprReg.Pattern = patron
ExprReg.IgnoreCase = True
ExprRegulares=ExprReg.Test(cadena)
set ExprReg = nothing
End function%>
Con IgnoreCase es que ignora entre mayusculas y minusculas. Con el metodo ExprReg.Replace(cadena,"Texto de sustitucion") podemos sustituir lo que encontremos segun el patron.
Os dejo un ejemplo para que veais como saber si una cadena es demasiado larga como para deformar una tabla de un foro por ejemplo. Asi podriamos devolver un error.
Código:
<% Dim comprobar
comprobar=ExprRegulares("\S{90,}",texto)
if comprobar=true then
response.write("Cadena demasiado larga.")
end if%>
En este caso mira si la cadena no contiene espacios en 90 caracteres seguidos. Es muy poco codigo y muy simple. Esto con bucles tardaria el doble y seria mas larga y complicada la función.
Saludos.