Asp | Siteme Hangi Ülkeden Giriliyor Nasıl Sorgulatırım ?

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Asp | Siteme Hangi Ülkeden Giriliyor Nasıl Sorgulatırım ?

03/Mar/08 22:34 Kısayol Şikayet Özel Mesaj

Tuna

Kayıt Tarihi: 17/Temmuz/2005

burdan çekebilirsiniz.
http://api.hostip.info/?ip=
kendi kullandığım kodları vereyim.
Private Function Getulke(GetIP)
Dim xmlDoc,channelNodes,entry
set xmlDoc = createObject("MSXML.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load("http://api.hostip.info/?ip="&GetIP&"")
If (xmlDoc.parseError.errorCode <> 0) then
Getulke = "TR"
Else
set channelNodes = xmlDoc.selectNodes("//Hostip/*")
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 Function
kullanırken gibi şeyetceniz.
kendi veritabanından çektiğine göre 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||US
gibi 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(ayr)
ayr2=split(ayr(i),"||")
3 tane field oluştur vsvs veritabanına kaydet .
next
veya başka bi yöntem bul bişekilde kaydet:)

işini görecek asıl fonksiyonu ise şudur.

Private Function ConvertIP(strIPAddress)
  Dim strTemp : strTemp = strIPAddress
  Dim aryIP : aryIP = Split(strTemp, ".")
  Dim intNumber : intNumber = (Int(aryIP(0)) * 16777216) + (Int(aryIP(1)) * 65536) + (Int(aryIP(2)) * 256) + Int(aryIP(3))
  intNumber = intNumber - 2147483647
  ConvertIP = intNumber
End Function
kontrol için;
WHERE nerden <= " & ConvertIP(GetIP) & " AND nereye >= " & ConvertIP(GetIP) & "
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 böle. sen de emek ver, seninde olsun hesaabı;)
editbüdüt:| aslında bunuda yazmayacaktım ama dayanamıyom napim;P

Alıntı yap
04/Mar/08 00:13 Kısayol Şikayet Özel Mesaj

ThundeR

Kayıt Tarihi: 08/Mart/2007

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

Alıntı yap
04/Mar/08 00:43 Kısayol Şikayet Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

Xmlhttp ile ripe netten çekilen veri sistemi yawaşlatır,
explorerın diline görede 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 :)

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. Kendi özlü sözümdür, kaynak belirterek kullanınız.

Alıntı yap

Toplam Hit: 3142 Toplam Mesaj: 14

Cevapla