Exactitude de l'URL correspondante régulière ASP
Auteur：Eve Cole
Date de mise à jour：2009-06-26 18:10:39
La fonction estwww(strng)
iswww = faux
Dim regEx, Correspondance
Définir regEx = Nouvelle RegExp
regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@? ^=%&:/~+#]*[w-@?^=%&/~+#])?$"
regEx.IgnoreCase = True
Définir Match = regEx.Execute(strng)
si match.count alors iswww= true
Fonction de fin
