Correção do URL de correspondência regular do ASP
Autor：Eve Cole
Data da Última Atualização：2009-06-26 18:10:39
Função éwww(string)
iswww = falso
Dim regEx, Correspondência
Definir regEx = Novo RegExp
regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@? ^=%&:/~+#]*[w-@?^=%&/~+#])?$"
regEx.IgnoreCase = Verdadeiro
Definir correspondência = regEx.Execute(strng)
se match.count então iswww= true
Função final
