复制代码 代码如下:

FunctionIsValidUrl(str)

DimregEx

SetregEx=NewRegExp

regEx.Pattern="http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?"

IsValidUrl=regEx.Test(str)

EndFunction