[asp]匹配网址的正则

　　Function IsValidUrl(str)

　　Dim regEx

　　Set regEx = New RegExp

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

　　IsValidUrl = regEx.Test(str)

　　End Function