yazdığım fonksiyon şöyleydi daha doğrusu sitede
PHP örneği vardı sadece
ASP sini de ben şöyle yazmıştım..
Kod:
IP=request("ip")
if isnumeric(IP) then
on error resume next
if err=0 then
Dim i, pos
Dim PrevPos, num
If IP= "" Then
sonucIP = 0
Else
For i = 1 To 4
pos = InStr(PrevPos + 1, IP, ".", 1)
If i = 4 Then
pos = Len(IP) + 1
End If
num = Int(Mid(IP, PrevPos + 1, pos - PrevPos - 1))
PrevPos = pos
sonucIP = ((num Mod 256) * (256 ^ (4 - i))) + sonucIP
Next
End If
Set bak=CreateObject("Adodb.Recordset")
bak.open "select lokasyon_ip from ip_adresleri where ip1<='" & sonucIP& "' and ip2 >='" & sonucIP& "'",baglan,3,3