[asp]匹配网址的正则
发布时间：2007-09-03 作者： 来源：转载
复制代码代码如下:FunctionIsValidUrl(str)DimregExSetregEx=NewRegExpregEx.Pattern="http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"IsValidUrl=regEx.Test(str)EndFunction
复制代码 代码如下:
FunctionIsValidUrl(str)
DimregEx
SetregEx=NewRegExp
regEx.Pattern="http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?"
IsValidUrl=regEx.Test(str)
EndFunction
