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

　　当前页地址

　　<%dim urlname

　　urlname=Request.ServerVariables("QUERY_STRING")%>

　　<%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%>