代碼一：【獲取地址中的文件名，不包含擴展名】
<%
dim Url,FileName,File

Url=split(request.servervariables("scr%>

代碼二：【獲取地址參數】
<%
dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")

response.Write url
%>

代碼三：【獲取全部地址參數，包括?及后面的參數】
<%
dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")

if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if

response.Write url
%>

<%
If Request.QueryString.Count>0 Then

For each querystring in Request.QueryString 
   query = query+querystring&"="&Request.QueryString(querystring)&"&"
Next 
   query = mid(query,1,len(query)-1) 
   Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")&"?"&query 
Else 
   Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")

End If
%>

域名完整地址:【包括 http://       和域名尾部的 / 】
<%
Response.write "http://" & Request.ServerVariables("HTTP_HOST") & Mid(Request.ServerVariables("URL"),1,InStrRev(Request.ServerVariables("URL"),"/"))
%>

獲取域名地址
Request.ServerVariables("HTTP_HOST")        形如：www.kenqiao.com 域名

獲取頁面地址
Request.ServerVariables("URL")                      形如：/index.asp
request.servervariables("script_name")           形如：/index.asp

<%response.write Request.ServerVariables("REMOTE_ADDR")%> 獲取客戶端IP地址
<%=Request.ServerVariables("LOCAL_ADDR")%>                            獲取服務器IP地址

<a href="<%=request.serverVariables("Http_REFERER")%>">返回前頁</a>
可獲取父頁面地址，然后進行處理。

‘asp 獲取網頁地址及參數。ServerVariables("HTTP_HOST")
‘獲取域名keyWord = Request.ServerVariables("QUERY_STRING")
‘獲取參數集variable = Request.ServerVariables("PATH_INFO")