[asp]匹配网址的正则

答案：
复制代码 代码如下:

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

上一个：asp下替换非数字为空的正则
下一个：javascript下正则匹配百分比的代码