站长资源网络编程
[asp]匹配网址的正则
简介复制代码 代码如下:Function IsValidUrl(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?" IsValidUrl
复制代码 代码如下:
Function IsValidUrl(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function
Function IsValidUrl(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function