Asp’de ziyaretçinin ip adresini alma

  • Konbuyu başlatan Konbuyu başlatan sAwjer`o
  • Başlangıç tarihi Başlangıç tarihi
1
EXE RANK

sAwjer`o

Fexe Kullanıcısı
Puanları 0
Çözümler 0
Katılım
21 Ağu 2010
Mesajlar
1,113
Tepkime puanı
0
Puanları
0
Yaş
35
sAwjer`o
ASP’de ziyaretçinin IP adresini Server Variable nesnesi altında alabiliyoruz.server variable komutlarının tüm listesini bir önceki makalemizde vermiştik. Şimdi bunlardan ip adresini alan fonksiyonu göreceğiz. Bunun için kullanılan değer “Remote_Addr” kodudur: Request. ServerVariables(“REMOTE_ADDR”) Aşağıdaki okunma sayısı uygulamasında önce ip adresini aldık. Daha sonra buna göre okunma sayısı bir arttırılıyor. Eğer veritabanındaki yazıyı son okuyan ziyaretçinin ip adresi ile bu sayfayı çağıranın adresi aynı ise işlem yapılmıyor. Şayet veritabanının okunmasayisi tablosunda bu yazı yoksa yani yazı hiç okunmamışsa yeni bir ekleme yapılıyor.
Kod:
xid=request.querystring(“id”)
xtarih=Now()
control=0
osayisi=1
xip=Request.ServerVariables(“REMOTE_ADDR”)
adoopen_connection mycon1
SQL=”select * from OKUNMASAYISI where o_ilanid =” & xId
adoopen_fwdonly myset1,sql,mycon1
if not myset1.eof then
osayisi=myset1.fields(“o_sayi”)
if xip=myset1.fields(“o_ip”) then
control=1
end if
end if
adoclose_rset myset1
osayisi=osayisi+1

if control=0 then
sql=”select * from OKUNMASAYISI where o_ilanid =” & xId
adoopen_keyset myset1,sql,mycon1
if not myset1.eof then
myset1.fields(“o_sayi”).value= osayisi
myset1.fields(“o_tarih”).value= xtarih
myset1.fields(“o_ip”).value= xip
myset1.update
else
myset1.addnew
myset1.fields(“o_ilanid”).value=xId
myset1.fields(“o_sayi”).value= osayisi
myset1.fields(“o_tarih”).value= xtarih
myset1.fields(“o_ip”).value= xip
myset1.update
end if
adoclose_rset myset1
Response.Write(” İşlem Tamamlandı…”)
end if
adoclose_connection mycon1
 
Geri
Üst