正则表达式

[asp]匹配网址的正则

网络 2007-09-03正则表达式6337

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

复制代码代码如下:

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

很赞哦！()