Asp 獲取網(wǎng)址相關(guān)參數(shù)的方法代碼一：【獲取地址中的文件名，不包含擴(kuò)展名】代碼二：【獲取地址參數(shù)】代碼三：【獲取全部地址參數(shù)，包括? 及后面的參數(shù)】0) thenurl=url & "?" & req

Asp 獲取網(wǎng)址相關(guān)參數(shù)的方法

代碼一：【獲取地址中的文件名，不包含擴(kuò)展名】

<

dim Url,FileName,File

Url=split(request.servervariables("script_name"),"/")

FileName=Url(ubound(Url))

File=Left(FileName,InstrRev(FileName,".")-1)

Response.Write "文件名："& File

>

代碼二：【獲取地址參數(shù)】

<

dim url

url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")

response.Write url

>

代碼三：【獲取全部地址參數(shù)，包括? 及后面的參數(shù)】

<

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 域名

獲取頁(yè)面地址

Request.ServerVariables("URL") 形如：/index.asp

request.servervariables("script_name") 形如：/index.asp

獲取客戶端IP 地址

<=Request.ServerVariables("LOCAL_ADDR")> 獲取服務(wù)器IP 地址

">返回前頁(yè)

可獲取父頁(yè)面地址，然后進(jìn)行處理。

‘a(chǎn)sp 獲取網(wǎng)頁(yè)地址及參數(shù)。ServerVariables("HTTP_HOST")

‘獲取域名keyword = Request.ServerVariables("QUERY_STRING")

‘獲取參數(shù)集variable = Request.ServerVariables("PATH_INFO")

代碼一：【取得當(dāng)前頁(yè)】

pageName=Mid(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/") 1)