ASP正则匹配URL的正确性技巧

Function iswww(strng)    Wbh中国设计秀
    iswww = false    Wbh中国设计秀
    Dim regEx, Match    Wbh中国设计秀
    Set regEx = New RegExp    Wbh中国设计秀
    regEx.Pattern = "^(http|ftp|https)://[w-_]+(.[w-_]+)+([w-.,@?^=%&:/~+#]*[w-@?^=%&/~+#])?$"   Wbh中国设计秀
    regEx.IgnoreCase = True   Wbh中国设计秀
    Set Match = regEx.Execute(strng)    Wbh中国设计秀
    if match.count then iswww= true    Wbh中国设计秀
End FunctionWbh中国设计秀