正则匹配网址链接（匹配网址的正则表达式）

复制代码 代码如下:

FunctionIsValidUrl(str)
DimregEx
SetregEx=NewRegExp
regEx.Pattern="http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl=regEx.Test(str)
EndFunction

如果您对该产品感兴趣，请填写办理（客服微信：xiaoxiongyidong）

您的姓名 *

身份证号码 *

手机号码 *

选择地区 *

详细地址 *

留言备注 *