ASP正则匹配URL的正确性

Function iswww(strng)

iswww = false

Dim regEx, Match

Set regEx = New RegExp

regEx.Pattern = "^(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?$"

regEx.IgnoreCase = True

Set Match = regEx.Execute(strng)

if match.count then iswww= true

End Function