复制代码 代码如下:
Function IsValidUrl(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function
[asp]匹配网址的正则
535 查看Function IsValidUrl(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function
2024 - 快车库 - 我的知识库 重庆启连科技有限公司 渝ICP备16002641号-10
企客连连 表单助手 企服开发 榜单123
