[asp]匹配网址的正则

 更新时间:2007年09月03日 19:43:38   作者:   我要评论
复制代码 代码如下:

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

相关文章

最新评论