如何获取当前url并实现连接

我的一个页面 http://127.0.0.1/new.asp?id=*

我想实现获取当前的url地址,并且可以连接:
想要实现的效果如下:


你当前的url为:http://127.0.0.1/new.asp?id=* [注:可以连接]

而获取当前的url代码我已经找出来了 ,但不知道该如果给他加上连接.
代码如下:<%
dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables

("SCRIPT_NAME")
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if
response.Write url
%>

请高手给出代码.谢谢你的帮助.:lol:

 

谢谢! 正在调式

 

response.Write "<a href="&url&">连接在此，你点我</a>"
其实我更想把"连接在此，你点我"换成http://127.0.0.1/new.asp?id=* 这样的. 不知道可以不?
既: