由于工作中要用到，所以些了这段代码。

<!--获取当前页面路径-->
〈%
dimstr,host,url,keyword,full
str=\"http://\";
host=Request.ServerVariables(\"HTTP_HOST\")
url=Request.ServerVariables(\"PATH_INFO\")’或url
keyword=Request.ServerVariables(\"QUERY_STRING\")
ifkeyword<>\"\"then
full=str&host&url&\"?\"&keyword
else
full=str&host&url
endif
session(\"url\")=full
%>