Function Getlocation() '獲取瀏覽器地址數(shù)組=來自哪一頁§§不包含傳值地址§§包含傳值地址
FromURL=request.serverVariables("Http_REFERER")'來自哪一頁
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME")) '當(dāng)前文件地址,不包含傳值
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 '當(dāng)前文件地址,包含傳值
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

你到時(shí)候就可以自己調(diào)用了,調(diào)用方法:
1.判斷當(dāng)前頁面是來自哪個(gè)頁面的:
fromURL=Split(Getlocation,"§")(0)

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

3.當(dāng)前頁面地址(包含?后面的參數(shù)傳值):
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