Ip ye göre gösterim.

[AboNEXT]

merhaba
ziyaretçi siteye ilk girdiğinde özel bir reklam çıkacak.
bu reklam popup olmayacak sayfada bütünleşik olacak.

ve ziyaretçi 2. kez sayfaya geldiğinde bu reklam aynı kişiye gözükmeyecek bu tarzda bir kod mevcutmu.

iyi çalışmalar...

[netevren]

Bu Daha çok senin kullandığın web diline bağlı.

Eğer asp uzantılı bir site yapıyorsan işin kolay.
Önce gelen ziyaretcinin ip bilgilerini alırsın.Onu veri tabanına kaydedersin.
Sonra ziyaretçi tekrar girdiğinde veritabanını taratırsın eğer o ip veri tabanına kayıtlı değilse reklamlı sayfayı aç kayıtlıysa normal sayfayı aç dersin.Bunu daha değişikte yapabilirsin ama ben olsam böyle yapardım.
Eğer sunucun asp destekliyorsa bir veritabanı ve bir asp sayfasıyla durumu çözersin.

Ben Olsam Bu Örnekteki Mantığı Kullanırım
<%
if hisip = ipler("ip") then
response.redirect "reklamsiz.html"
else
response.redirect "reklamli.html"
end if
%>

Veri tabanı bağlantını yap ve bunu uygula,çalışır.Eğer sunucun asp desteklemiyorsa önemli değil sadece yönlendirme için kullanacağın için bedava asp host veren siteler var onları kullan reklamları görünmez. :wink:

www.1asphost.com yeterli bu konu için.
Bu Konuylailgili merak ettiğin başka şeyler varsa buraya yaz kontrol ederim.

[netevren]

<%
Set ip = Server.CreateObject("ADODB.Connection")
ip.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ipler.mdb")


hisip = Request.ServerVariables("Remote_Addr")

set ipkontrol = Server.CreateObject("ADODB.Recordset")
sutun = "select * from ipler where ip = '"&hisip&"'"
ipkontrol.open sutun,ip,1,3

if not ipkontrol.eof then
response.redirect "reklamsiz.html"
else

set ipkaydet = Server.CreateObject("ADODB.Recordset")
sutun = "select * from ipler"
ipkaydet.open sutun,ip,1,3
ipkaydet.addnew

ipkaydet("ip") = hisip

ipkaydet.update

response.redirect "reklamli.html"

end if
%>


<%'Kodların işleyişi
'İlk Önce Genel Veritabanı Bağlantımızı Yapıyoruz!
'sonra bilgisayardan ip adresini alıyoruz!
'sonra recordsetimiz açıp bakıyoruz o ip kayıtlı mı diye!
'kayıtlı ise reklamsız sayfayı aç diyoruz.
'kayıtlı değilse kaydet ve reklamlı sayfayı aç diyoruz!
'sonra if imiz kapatıyoruz.O kadar!!!
%>

[netevren]

İstediğin sistem hazır.Şifreni Sana Yollıyacağım.Kodu Zaten Herkes görsün diye foruma yazdım çalışanınıda www.1asphost.com sitesine yükledim.Şifresi Senindir.



İlk Girişinizde reklamlı Daha sonra reklamsız açılıyor.Toplam 4 dosya!2sini düzeltirsen yani istediğin sayfaya yönlendirirsen sorun yok.
reklamli.html sayfasını reklamı gömdüğün sayfaya yönlendir.reklamsiz.html yide reklamı kaldırdığın sayfaya gönder.

Bu Adresten Çalışıp Çalışmadığını Test Edebilirsiniz!

http://j.1asphost.com/Abonext/ipyegorereklam.asp

[ishadami]

nette asp derslerinde suna benzer bişi gördüm işe yarar mı bilmiyorum anlayan biri işe yarayıp yaramayacağını söylerse çok hoş olur

<%
If blnFirstTime Then
Response.Redirect "reklamli.asp"
Else
Response.Redirect "reklamsiz.asp"
End If
%>

bu kadar