Arkadaşlar ben onu, kullanıcının tarayıcı bilgisini alarak yapıyorum. Tamam pek sağlıklı olmuyor ama yinede güzel çalışıyor. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

teşekkürler arkadaslar :)tuna sana ayrıyeten teşekkürler,

burdan çekebilirsiniz. http://api.hostip. info/?ip=kendi kullandığım kodları vereyim. Private Function Getulke Dim xmlDoc, channelNodes, entry set xmlDoc = createObject xmlDoc. async = false xmlDoc. setProperty "ServerHTTPRequest", true xmlDoc. load If (xmlDoc. parseError. errorCode <> 0) then Getulke = "TR" Else set channelNodes = xmlDoc. selectNodes for each entry in channelNodes if entry. tagName = "countryAbbrev" then If entry. text="XX" Then Getulke = "TR" Else Getulke = entry. text End If end if next end If set channelNodes=Nothing : set xmlDoc=Nothing '// kullanımı Response. write Getulke End Functionkullanırken gibi şeyetceniz. kendi veritabanından çektiğine gre nispeten yavaş ama ikisininde artıları eksileri var. kendi veritabanından kontrol edeceksen access harici bir veritabanı kullanmalısın. en güncel listeyi şu adreste buldum. verdiğiniz adrestekilerin hepsini incelemişimdir. en verimlisi bu. http://www.metasun.com/products/metatraffic/download. asp adresindeki sayacı indir. içinde metatraffic_lite_v226\metatraffic2\data\countries. txt dosyası var.-2097151999||-2063597568||US-2046820351||-1979711488||US-1962934271||-1912602624||US-1895825407||-1761607680||US-1744830463||-1742503936||USgibi devam eden 34bin kayıt var:) mysql için tarif edeyim.. dosyayı fso ile okuttuktan sonra ayr=split(veriler, chr13)for i=0 to ubound ayr2=split(ayr ,"||")3 tane field oluştur vsvs veritabanına kaydet. nextveya başka bi yntem bul bişekilde kaydet:) işini grecek asıl fonksiyonu ise şudur. Private Function ConvertIP Dim strTemp : strTemp = strIPAddress Dim aryIP : aryIP = Split Dim intNumber : intNumber = (Int(aryIP(0)) 16777216) + (Int(aryIP(1)) 65536) + (Int(aryIP(2)) 256) + Int(aryIP(3)) intNumber = intNumber - 2147483647 ConvertIP = intNumber End Functionkontrol için;WHERE nerden <= " & ConvertIP & " AND nereye >= " & ConvertIP & " getIP; ip adresi hemi?tüm kodları ve veri tabanını vermiyorum. artıkın aklım başıma geldi=))2 satır uyduruk javascript kodu için tam 3 gündür kafa patlatıyorum. Bir Allahın kulu yardım etmedi. halen yapamadım. moralim acayip bozug. bundan sonra bende etmeyecem:)işte ble. sen de emek ver, seninde olsun hesaabı;)editbüdüt:| aslında bunuda yazmayacaktım ama dayanamıyom napim;P

Tarayıcının dil ayarlarına gre ingilizce yada türkçe siteye ynlendirmeyi duymuştum. El Yumruğu Yemeyen Kendi Yumruğunu Balyoz Sanarmış. By_Medcezir

: Tarayıcının dil ayarlarına gre ingilizce yada türkçe siteye ynlendirmeyi duymuştum. yok belirli ip araklıklarına gre nerden girildiğini bilen scriptler var diye biliyorum byle bir mantıktı sanırım. ip aralıklarını syleyen olursa kendimizde yazarız aslında... DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA RTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE LÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE...

http://depo.yasirpro.com/ulkeip. zip TBT'ye Mescit istiyoruz.

boyle bişey buldum localde en/ yonlendiriyo, sunucumda calısmıyo<% ip = Request. ServerVariables Set nesne = Server. CreateObject 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 + 12 if baslama=8 Then baslama = (Instr + 12 End if bitis = Mid(gelenveri, baslama,4) if trim ="tr" or trim ="TR" Then Response. redirect Elseif trim ="FR" or trim ="fr" Then Response. Redirect Else Response. Redirect End if%>birde byle bişey buldum, http://www.aspindir.com/Goster/4458 FOXXLY bulursan kıyak olur :)

Google yle bi hizmet veriyo ama hangi ülkeden girildiğini ben sitemde gsterecem, üyeler de grecek falan diyosan bilmiyorum ama ben bilsem yeter diyorsan google'ın hizmeti işini grür, harita üzerinde şehir şehir gsteriyo..

Xmlhttp ile ripe netten çekilen veri sistemi yawaşlatır, explorerın diline grede bakılması cok sağlıklı değildir, mesela bir çoğunuzda tr yazmıyor ama trdensiniz. www.ip2country.com tarzı bir siteden güncel database satın almalı onlarda 1000$ dan satıyorlar :)onun haricinde bence hiç adamları bi yere sokmaya uğraşma direk ana sayfadan dil seçtir :) Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

pesimistzombie bana byle bi kod yazmıştı. o kodda hangi ülkeden girdiğini gsteriyodun. ona bi kaç ayar yapıp istediğin şeye ynlendirirsin deee ben o kodu kaybettim :D kelimeler albayım bazı anlamlara gelmiyor.

Buzul abimizinde dediği gibi ip aralıklarıyla oluyo o :) ip araklıkları googledan bulunabilir, yada direk hazır script olarak aspidirde fln vardı sanırım :) ama proxy kullandıktan sonra zaten belirleyemezsinde o ip aralığına gre bulan scriptleri dene bence ;) :) :)

Konu başlığındanda anlaşılacağı üzere, siteme hangi ülkeden girildiğini sorgulatıp belirlediğim sayfalara ynlendirmek istiyorum. Nasıl çzerim?

adam gibi çalışan bişey bulursan banada ver :D DAĞDA ÜÇ BEŞ KOYUN SÜRÜSÜ, TUTTURMUŞ BİR KÜRDİSTAN TÜRKÜSÜ, ELİNE ALMIŞ BAYRAK DİYE BİR MASA RTÜSÜ, SATSAN BEŞ PARA ETMEZ NE DİRİSİ NE DE LÜSÜ, SOYU SOYSUZ OLAN SENSİN TOPRAK SENİN NEYİNE, İTE İTLİK YAPIP KAFA TUTMA BEYİNE, ANLASA DEDİĞİMİ SOKAKTAKİ KPEK AĞLAR HALİNE, DUY ULAN SOYSUZ NE MUTLU TÜRKÜM DİYENE...

http://ip-to-country.webhosting. info/ bu sayfada onunla ilgili bişeyler var