首页 / 正则表达式 / [asp]匹配网址的正则

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