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

当前页地址
<%dim urlname
urlname=Request.ServerVariables（"QUERY_STRING"）%>
<%=Request.ServerVariables（"SCRIPT_NAME"）%><%if urlname<>"" then%>？<%=urlname%><%end if%>