asp de ülkeye göre yönlendirme

02-09-2006, 11:56:42

#1

maniakcoder

php sitelerinde oluyor türkiyedekileri türkçe indexe diğerlerini ingilizce indexe gönderiyor bunu asp de nasıl yaparız

14-09-2006, 21:12:53

#2

EX3M

Ziyaretçilerin ip aralıklarını veritabanında tutup kontrol ettirilebilir ama zamanla değişebileceği için bana pek mantıklı gelmiyor. Daha önce kesin çözüm gerektiren bir projede ripe.net sitesine xmlhttp ile query yollayıp ülke bilgisini kontrol ettirmiştim.

Query the RIPE Database
gibi

14-09-2006, 23:04:40

#3

STI

tarayacısının diline göre yapılırda asp bilmem dogrusu...

15-09-2006, 20:51:49

#4

maniakcoder

fikri olan ????

15-09-2006, 23:19:31

#5

rnmks

maniakcoder adlı üyeden alıntı: mesajı görüntüle

fikri olan ????

böle bi kod elimde olması alzım bulursam yollarım sana

22-09-2006, 18:23:49

#6

~~suvari1794~~

Üyeliği durduruldu

evt yollarsan memnun kalırız

21-04-2007, 16:03:15

#7

colletor

oncelikle turkiye ip araliklarini bulman gerek ve tabii diger ulkelerin!
Bu ip araliklarina gore yonlendirme yapacaksin!

22-04-2007, 02:27:29

#8

akyaz

Ben bunu asp.net projem için kullanıyorum. Fakat ip değil tarayıcı dilinden yola çıkıyorum.

Özellikle avrupa ülkelerinden bağlantılarda ip sorun oluyor. Adam fr den bağlanıyor fakat fransızca bilmiyor fr (fransada) n gelen ziyaretçilerimde çok problem çıktığı için ip yi, tarayıcı diline çevirdim. En garantisi bence.

02-05-2007, 11:05:54

#9

cinbaba

biraz geç oldu ama şu kodları kullanabilirsin

Alıntı

<%

ip = Request.ServerVariables("REMOTE_ADDR")
Set nesne = Server.CreateObject("Microsoft.XMLHTTP")
veriyeri = "http://www.dnsstuff.com/tools/whois.ch?ip='"&ip&"'"

With nesne
.Open "GET",veriyeri,False,"",""
.Send
gelenveri = .Responsetext
End with

Set nesne = nothing
baslama = (InStr ( gelenveri,"country:")) + 12
if baslama=8 Then
baslama = (Instr(gelenveri,"Country:")) + 12
End if
bitis = Mid(gelenveri,baslama,4)
if trim(bitis)="tr" or trim(bitis)="TR" Then
Response.redirect ("tr/") 'burayı kendine göre değiştir
Elseif trim(bitis)="FR" or trim(bitis)="fr" Then
Response.Redirect ("fr/")
Else
Response.Redirect ("en/")
End if
%>