有什么方法可以取地址栏完整路径

<%
Function Geturl()
Dim str,host,url,keyword,full
str="http://"
host = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("PATH_INFO") '或url
keyword = Request.ServerVariables("QUERY_STRING")
if keyword <> "" then
full = str&host&url&"?"&keyword
else
full = str&host&url
end if
Geturl =full
End Function

%>

<%=Geturl()%>

 

已经封装成函数，你直接用就是了。

 

小叶是超级高人

 

这嚒服杂呀:xizao:

 

环境变量