请教下 无损外链跳转url.asp?url=http://xxx

以下代码如何实现过滤以 http ftp www https 开头的网址

修改前链接格式为 域名/url.asp?url=http://www.baidu.com

修改后链接格式为 域名/url.asp?url=baidu.com

请高手指点 谢谢。

<%

dim url

dim baiyea_url

baiyea_url=request("url")

Response.Redirect baiyea_url

%>