[asp]匹配网址的正则

(编辑:jimmy 日期: 2025/5/7 浏览:2)

复制代码 代码如下:
Function IsValidUrl(str) 
 Dim regEx 
 Set regEx = New RegExp 
 regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?" 
 IsValidUrl = regEx.Test(str) 
End Function