Korrektheit der regulären übereinstimmenden ASP-URL
Autor：Eve Cole
Aktualisierungszeit：2009-06-26 18:10:39
Funktion iswww(strng)
iswww = false
Dimmen Sie regEx, Match
Setze regEx = New RegExp
regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@? ^=%&:/~+#]*[w-@?^=%&/~+#])?$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
Wenn match.count, dann ist www= true
Funktion beenden
