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