asp獲取來源頁面地址

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

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

準(zhǔn)確地址：
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)當(dāng)前頁面地址：Request.ServerVariables("HTTP_X_REWRITE_URL")
當(dāng)前hostname：Request.ServerVariables("SERVER_NAME")
當(dāng)前頁面地址：Request.ServerVariables("URL")

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

上一條：cookie限制一個(gè)ip30分鐘投票