asp获取当前网页地址的代码

当前页地址 
<%dim urlname 
urlname=request.servervariables("query_string")%> 
<%=request.servervariables("script_name")%><%if urlname<>"" then%>?<%=urlname%><%end if%>