获取当前页面URL

<%
dim kamaustr,kamauhost,kamauurl,kamaukeyword,kamaufull 
kamaustr="http://" 
kamauhost = Request.ServerVariables("HTTP_HOST") 
kamauurl = Request.ServerVariables("PATH_INFO") '或url 
kamaukeyword = Request.ServerVariables("QUERY_STRING") 
if kamaukeyword <> "" then 
kamaufull = kamaustr&kamauhost&kamauurl&"?"&kamaukeyword 
else 
kamaufull = kamaustr&kamauhost&kamauurl 
end if
%>

获取当前页面URL.txt (396.00 bytes)