ASP获取浏览器地址栏的完整信息

[ 2008-01-18 21:38:12 | Author: colacat ]

Font Size: Large | Medium | Small

去年自己写论坛“跳转至操作前页面”功能的时候用到的代码，比较有用，整理了一下，作用是根据不同的方式获取地址栏的不同信息。

<%Function GetUrl(action)
GetUrl=request.servervariables("script_name") '赋目录及文件名
if action="div" then exit Function
GetUrl=Mid(Request.ServerVariables("script_name"),InstrRev(Replace(Request.ServerVariables("script_name"),"\","/"),"/")+1) '赋文件名
if action="page" then exit Function
GetUrl=request.servervariables("QUERY_STRING") '赋地址栏参数
if action="action" then exit Function
GetUrl="http://" '赋http://
GetUrl=GetUrl&request.servervariables("HTTP_HOST") '+赋域名
if action="http" then exit Function
GetUrl=GetUrl&request.servervariables("script_name")'+赋目录及文件名
if action="alldiv" then exit Function
if request.servervariables("QUERY_STRING")<>"" then GetUrl=GetUrl&"?"&request.servervariables("QUERY_STRING") '+赋地址栏参数
End Function
Response.Write "参数：http 值："&GetUrl("http")&" "
Response.Write "参数：alldiv 值："&GetUrl("alldiv")&" "
Response.Write "参数：all 或空 值："&GetUrl("all")&" "
Response.Write "参数：action 值："&GetUrl("action")&" "
Response.Write "参数：div 值："&GetUrl("div")&" "
Response.Write "参数：page 值："&GetUrl("page")%>