Bir Sayfada 2 Tane Xml Dosya İnclude
-
hazırladığım reklam scriptini subdomain e kurdum , ve reklamları xmle ile almak istiyorum. şöle bi sorun var
aynı şeyi 2 bölümdede yayınlayacağım için hata veriyor yani 2 include ve aynı değişkenler, değişkenleri değiştiremiyorum çünkü tek dosya üzerinden çalışcak
nasıl çözeirm bunu ?
-
iki sefer include etmene gerenk yoık sanırsam.
Funtion xmlgetir()
işlemlerin..
End Function.
nerde çalıştırmak istiosan oraya..
Call xmlgetir()
dabi bunu açabilirsin.
Funtion xmlgetir(bicim,deger) gibi.. yaparak hazırladığın değişik formatlardaki reklamları sunabilirsin.aynı kalıpta takılıp kalmazsın.
hem daha hızlı olur ?
edit: imzanda asp yazınca:) asp kullanarak bunu yapcanı düşündüğümden,, haliyle asp için fikrimi sundum.nasıl cümle ama:$
-
sevimsiz bunu yazdı:
-----------------------------iki sefer include etmene gerenk yoık sanırsam.
Funtion xmlgetir()
işlemlerin..
End Function.
nerde çalıştırmak istiosan oraya..
Call xmlgetir()
dabi bunu açabilirsin.
Funtion xmlgetir(bicim,deger) gibi.. yaparak hazırladığın değişik formatlardaki reklamları sunabilirsin.aynı kalıpta takılıp kalmazsın.
hem daha hızlı olur ?
edit: imzanda asp yazınca:) asp kullanarak bunu yapcanı düşündüğümden,, haliyle asp için fikrimi sundum.nasıl cümle ama:$
-----------------------------abi bi örnek yazsana gözünü seveyim :) " nasıl cümle ama :)
-
oke,saçmalayalım bakalım;P
banner: resim yolu,
git: gidilecek adres
tip: 1 sayfada gotuntuleyecegin, 2 de mynette oluyo ya.. sayfaya tıklayınca kocaman sayfa acılıyor ve 10 sn sonra asıl sayfaya yönleniyor.. ondan olsun.
Function reklam(banner,git,tip)
if tip=1 Then
Response.write(" "&banner&"")
elseif tip=2 then
Response.redirect("reklam.asp?ref="&server.URLencode(Request.ServerVariables("url"))&"")
end if
End Function
bunu sayfanın üstüne bi yerlere include edersin..
daha sonracıma
sayfanın neresinde reklam kurmak istiyorsan..
Call reklam("img150x200.gif","gideceğinadres","1")
veya
Call reklam("img300x300.gif","gideceğinadres","1")
birde reklam.asp die bi sayfa kur. onunda başına bu fonksiyonu koy.
bunu uyguyalayacagında da
uygun gördüğün sayfalara
Call reklam("reklam.swf","","2")
koy..
reklam.asp sayfanıda şu şeklide düzenle...
javascript ile bir sayac yap ve. 10 saniye sonra request.querystring("ref") adresine yönlendir. böylelikle kullanıcı sayfanda hangi linke tıklarsa tıklasın karşısına ilk bu sayfa çıkar.. ben kabataslak bişiler yazmaya çalıştım. bence bunları dbden çeksen yönetmesi daha kolay olur.
umarım işine yarar.
edit:unutmadan şunuda ekleyeyim. reklam.asp sayfana tıklandı die bi cerez at. eğer cookie varsa hemen yönlenmesin veya cookie varsa rklm=true die bi q.string at. sayfayı okumadan yönlenip durmasın.yani rklm=true ise yönlenmesin.
-
Kodlar
1 sayfada 2 tane banner i yayınlayacağım orada hata veriyor :|
umarım doğru anlattım :|
-
Sub reklamlar()
strURL = "http://ads.aspdepo.org/reklam.asp"
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false
objXmlHttp.sEnd
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
response.write strHTMLEnd Sub
bunu reklamları göstereceğin sayfana include et. Daha Sonra Call reklamlar() die çağır? sayfana istediğin kadar koysan sorun çıkmaması lazım. sonucu da yazarsan....umarım anlamışımdır:) aynı hatayı verise Dim objXmlHttp bunu sub reklamlar() ın üstüne koy:S
-
vay anasını harbiden oldu :D sewiyom seni sewimsiz :D