ASP正则匹配URL的正确性

核心提示：Function iswww(strng) iswww = false Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\

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