ASP验证网址是否合法

<%function isvalidurl(patrn,str)
set regex=new regexp'建立正则表达式
'例如：
'"^([A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
'"([A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
'"^([A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
'"([A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
regex.pattern=patrn'设置模式
regex.ignorecase=true'设置是否区分字符大小写 
regex.global=true'设置全局可用性
matches=regex.test(str)
isvalidurl=matches 
end function%>

应用：<%=isvalidurl("([A-Za-z0-9\./=\?%\-&_~`@:+!]+)$","")%>。
结果：True或False。