asp獲取來源頁面地址

2013/2/7 10:57:162393 閱讀

獲取來源地址：
ComeUrl=lcase(trim(request.ServerVariables(“HTTP_REFERER”)))

準確地址：
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables(“HTTPS”)) = “off” Then
strTemp = “http://”
Else
strTemp = “https://”
End If
strTemp = strTemp & Request.ServerVariables(“SERVER_NAME”)
If Request.ServerVariables(“SERVER_PORT”) <> 80 Then strTemp = strTemp & “:” & Request.ServerVariables(“SERVER_PORT”)
strTemp = strTemp & Request.ServerVariables(“URL”)
If Trim(Request.QueryString) <> “” Then strTemp = strTemp & “?” & Trim(Request.QueryString)
GetUrl = strTemp
End Function


PS:
偽靜態(tài)當前頁面地址：Request.ServerVariables("HTTP_X_REWRITE_URL")
當前hostname：Request.ServerVariables("SERVER_NAME")
當前頁面地址：Request.ServerVariables("URL")

下一條：IE中Ctrl+回車（Enter），打開是習慣的.com

上一條：cookie限制一個ip30分鐘投票