ASP中获取与网址、URL相关参数的程序段

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