Referrer e göre yönlendirme kodu

[kesmekes]

Merhaba, referrer e göre sayfayı farklı yerlere yönlendirecek asp kodu arıyordum bir tane buldum fakat o da hata veriyor çözemedim bir türlü.

<%

'Specify the url or our domain
site_url = "http://dypso.free.fr"

'domain name
dom_name =Lcase(left( 
	Request.ServerVariables("HTTP_Referer"),len(site_url)))


'Check for referring URL
If dom_name <> site_url then
 		'People are not allowed to see this page
 		' they are redirected
		response.redirect "default.asp"
	
End if
		'Here write the content for people allowed
		'to access it :
		Response.Write "Welcome to this WebPage"
		
%>

bu konu hakkında bilgisi olanlar yada ellerinde buna benzer kod olanlar varsa yardımcı olursa memnun olurum, saygılar...

[Yusuf]

Domain'e göre aynı host içinde yönlendirme:

<%@Language=VBScript%>
<%
SiteNameURL =  Request.ServerVariables("SERVER_NAME")

Select Case SiteNameURL

    Case "www.aaaaa.com"
        Response.Redirect "aaaaa/"

    Case "www.bbbbb.com"
        Response.Redirect "bbbbb/"

    Case "www.ccccc.com"
        Response.Redirect "ccccc/"	

End Select
%>

[SatlikDomain]

bunun php içini varmı?

[kesmekes]

ek olarak , benim amacım sayfanın sadece belli referrer den geldiğinde açılması.Mesela sadece www.zzz.com dan yönlenince sayfa açılacak, browsera direk yazılınca yada başka bir siteden link verilince sayfa açılmayacak.Bir nevi tek sayfaya hotlink koruması gibi.

[Yusuf]

REFERER Domain'ine göre host içinde yönlendirme:

'REFERER URL'i al
REFERER_URL = Request.ServerVariables("HTTP_REFERER")

'URL'deki domaini bul
if InStr(8, REFERER_URL, "/") = 0 then
	REFERER_DOMAIN = REFERER_URL
else
	REFERER_DOMAIN = left(REFERER_URL, InStr(8, REFERER_URL, "/")-1)
end if

'DOMAIN'e göre dallandırma yap
Select Case REFERER_DOMAIN
	Case "http://www.aaaaa.com"
		response.Redirect "aaaaa.asp"
	Case "http://www.bbbbb.com"
		response.Redirect "bbbbb.asp"
	Case "http://www.ccccc.com"
		response.Redirect "ccccc.asp"
End Select

[kesmekes]

teşekkürler Yusuf, yazdığın kod sorunumu çözdü...

[Yusuf]

Yardımcı olabildiysem sevindim

İyi çalışmalar.