国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

Function Getlocation() '獲取瀏覽器地址數組=來自哪一頁§§不包含傳值地址§§包含傳值地址
FromURL=request.serverVariables("Http_REFERER")'來自哪一頁
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME")) '當前文件地址,不包含傳值
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
If InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl = ScriptAddress&M_ItemUrl '當前文件地址,包含傳值
if right(ScriptAddress,1)="?" then ScriptAddress=left(ScriptAddress,len(ScriptAddress)-1)
if right(GetUrl,1)="&" then GetUrl=left(GetUrl,len(GetUrl)-1)
Getlocation=FromURL&"§"&ScriptAddress&"§"&GetUrl
End Function

你到時候就可以自己調用了,調用方法:
1.判斷當前頁面是來自哪個頁面的:
fromURL=Split(Getlocation,"§")(0)

2.當前頁面地址(不包含?后面的參數傳值):
thisURL1=Split(Getlocation,"§")(1)

3.當前頁面地址(包含?后面的參數傳值):
thisURL2=Split(Getlocation,"§")(2)

包含或不包含傳值的情況說明:
例如:http://www.123.com/index.asp?action=add&cg=100
不包含傳值得到的地址是:http://www.123.com/index.asp
包含傳值得到的地址是:http://www.123.com/index.asp?action=add&cg=100