复制代码 代码如下:
Function IsValidUrl(/html/article/str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function
- 特色栏目： vbscript 正则表达式 javascript 批处理
-
[asp]匹配网址的正则
Function IsValidUrl(/html/article/str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function