代码一：【获取地址中的文件名，不包含扩展名】
<%
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.Vevb.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)