Corrección de la URL coincidente regular de ASP
Autor:Eve Cole
Fecha de actualización:2009-06-26 18:10:39
La función eswww(cadena)
eswww = falso
Dim regEx, coincidencia
Establecer expresión regular = nueva expresión regular
regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@? ^=%&:/~+#]*[w-@?^=%&/~+#])?$"
regEx.IgnoreCase = Verdadero
Establecer coincidencia = regEx.Execute(string)
si match.count entonces es www= verdadero
Función final