Asp正则验证是否有效的URL
作者:admin 日期:2012-04-28
这段代码可以用来判断用户输入的网址格式是否正确?
ASP/Visual Basic代码
- Function valid(ByVal str)
- Dim temp,reg
- Set reg = new regexp
- reg.ignorecase=true
- reg.global=true
- temp = "^(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?$"
- reg.pattern = temp
- valid = reg.test(Trim(str))
- Set reg = Nothing
- End Function
调用方法:
ASP/Visual Basic代码
- if valid(url)=false then
- response.Write("不是完整有效的URL!")
- response.End()
- end if
原创代码,转载请注明出处,谢谢!
广告位