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