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

当前页地址 
<%dim urlname 
urlname=Request.ServerVariables("QUERY_STRING")%> 
<%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%>