Konu: Asp'de ziyaretçinin ip adresini alma C.tesi Ağus. 31, 2013 4:28 am
ASP’de ziyaretçinin IP adresini Server Variable nesnesi altında alabiliyoruz. Server Variablekomutları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. 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 myset1of 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 myset1of 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