代码一：【获取地址中的文件名，不包含扩展名】
<%
dim Url,FileName,File
Url=split(request.servervariables("script_name"),"/")
FileName=Url(ubound(Url))
File=Left(FileName,InstrRev(FileName,".")-1)
Response.Write "文件名："& File
%>
代码二：【获取地址参数】
<% 
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")
 
代码一：【取得当前页】
pageName=Mid(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1)
--  作者：zhirui
--  发布时间：2012-10-25 22:50:04
--  
pageName=Mid(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1)

url=request.ServerVariables("HTTP_REFERER")
host=split(url,"/")(3)
--  作者：zhirui
--  发布时间：2012-11-05 14:50:43
--  
asp获取当前域名方法
asp获取当前域名从来就不是什么有难度的事情，但是在实际项目使用中，大家获取的具体URL信息可能是不同的，各个方法获取见下表，而如果要获取当前域名，可以看下面加粗部分：
Request.ServerVariables("SERVER_NAME")\'当前域名
Request.ServerVariables("SERVER_PORT")\'当前端口
Request.ServerVariables("SCRIPT_NAME")\'当前文件名
Request.ServerVariables("QUERY_STRING")\'当前页面的传入参数
Request.ServerVariables("HTTP_USER_AGENT")\'取得当前浏览器信息
request("remote_addr")\'取得IP
Request.ServerVariables("HTTP_REFERER")\'上个页面地址
Request.ServerVariables("HTTP_HOST")\'获取当前域名
当采用SERVER_NAME时返回的是不带端口号的URL。
 
<b>You are browsing this site with:</b>
<%Response.Write(Request.ServerVariables("http_user_agent"))%>
</p>
<p>
<b>Your IP address is:</b>
<%Response.Write(Request.ServerVariables("remote_addr"))%>
</p>
<p>
<b>The DNS lookup of the IP address is:</b>
<%Response.Write(Request.ServerVariables("remote_host"))%>
</p>
<p>
<b>The method used to call the page:</b>
<%Response.Write(Request.ServerVariables("request_method"))%>
</p>
<p>
<b>The server's domain name:</b>
<%Response.Write(Request.ServerVariables("server_name"))%>
</p>
<p>
<b>The server's port:</b>
<%Response.Write(Request.ServerVariables("server_port"))%>
</p>
<p>
<b>The server's software:</b>
<%Response.Write(Request.ServerVariables("server_software"))%>
</p>