User Tag List

Yeni Konu Aç Cevap Yaz
10.12.2010, 01:32 1 (permalink)
enkineki
enkineki Üye
  • Üyelik Tarihi7.12.2010
  • Ticaret Sayısı0
  • Mesajlar5
İnclude İçin Yardım Edebilir misiniz? #permalink (permalink)
Sitemde yayınlayacağım reklamları Shibby reklam scriptini kullanarak yayınlamak istiyorum.

Bu scriptte sistem şu şekilde işliyor.
Scriptin admin panelinde reklamın formatı(jpg, swf) boyutu, yayınlanacak yeri vs. bilgilerini giriyorsunuz.

Bu bilgileri script içeriğinde olan bir asp sayfasına yerleştiriyor. Eklenen reklamlara da <%=Reklam(6)%> gibi kodlar veriyor.

Bu verilen kodu sitenizin default.asp sinde veya belirlediğiniz reklam alanlarında yayınlamanız için include etmeniz gerekiyor. İnclude etmeyi denedim, ama olmadı. Bu konuda açıklama da yapılmamış.

Yardımcı olursanız çok memnun olurum.

Selamlar...



Eklenen reklamların toplandığı sayfanın kodları şöyle:

<!--#include file="Reklam_Files/reklam.asp"-->
<body background="bgr.gif">
<center>
<table width="100%" border="0">
<tr>
<td width="33%">&nbsp;</td>
<td width="34%"><center>
<%=Reklam(6)%>&nbsp;
</center>
</td>
<td width="33%">&nbsp;</td>
</tr>
<tr>
<td><div align="left"><%=Reklam(2)%>&nbsp;</div></td>
<td>&nbsp;</td>
<td><div align="right"><%=Reklam(3)%>&nbsp;</div></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><center>
<%=Reklam(5)%>&nbsp;
</center>
</td>
<td>&nbsp;</td>
</tr>
</table>
</center>



Sayfadaki reklam.asp nin kodları şöyle:

<!--#include file="ayarlar.asp"-->
<%Set reklamdata = Server.CreateObject("ADODB.Connection")
reklamdata.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&databaseyolu&"")
' Bu fonksiyon MyDesign Haberden alınıp editlenmiştir.
' http://www.mydesign.gen.tr
Function Reklam(intBannerTur)
If intBannerTur = "" OR IsNumeric(intBannerTur) = False Then Exit Function
Dim bSQL, intRandNo, intReklamSayisi, intBannerID, iGecerliGosterim
'On Error Resume Next
strDBTrue = True
Set shbbyReklam = Server.CreateObject("Adodb.Recordset")
shbbyReklam.Open "SELECT COUNT(id) FROM reklam WHERE onay = True and alanid = "& intBannerTur &" ", reklamdata, 1, 3
intReklamSayisi = CInt(shbbyReklam(0))
shbbyReklam.Close
Randomize
intRandNo = Int((Rnd*intReklamSayisi)+0)

bSQL = "SELECT * FROM reklam "
bSQL = bSQL & "WHERE onay = True and alanid = "& intBannerTur &" "
'bSQL = bSQL & "WHERE id = "&reklamid&" "
shbbyReklam.Open bSQL, reklamdata, 1, 3
If shbbyReklam.Eof Then
'// Bu alana sabit reklam kodu ekleyebilirsiniz.
Elseif shbbyReklam("gosterim")>=shbbyReklam("gosterimlimi t") then

else
' Rastgele banner seçimi
shbbyReklam.Move(intRandNo)
iGecerliGosterim = shbbyReklam("gosterim")
If IsNull(iGecerliGosterim) Then iGecerliGosterim = 0
iGecerliGosterim = iGecerliGosterim + 1
intBannerID = shbbyReklam("id")
' Reklam HTML kodu ise
If shbbyReklam("tur") = "html" Then
Response.Write shbbyReklam("Kod")
Elseif shbbyReklam("tur") = "resim" Then
Response.Write("<a href=""reklam_yonlendir.asp?id="& shbbyReklam("id") &""" >" & _
"<img src="""& shbbyReklam("resim") &""" target=""_blank"" alt="""& shbbyReklam("isim") &""" style=""border:0; width:"& shbbyReklam("genislik") &";height:"& shbbyReklam("yukseklik") &""" /></a>")
Elseif shbbyReklam("tur") = "flash" then%>
<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/s...rsion=6,0,29,0" width="<%=shbbyReklam("genislik")%>" height="<%=shbbyReklam("yukseklik")%>" border="1">
<param name="movie" value="<%=shbbyReklam("resim")%>">
<param name="quality" value="high">
<embed src="<%=shbbyReklam("resim")%>" width="<%=shbbyReklam("genislik")%>" height="<%=shbbyReklam("yukseklik")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed></object> <%End If
Response.Write("")
Set rs = reklamdata.Execute("UPDATE reklam SET gosterim = "& iGecerliGosterim &" WHERE id = "& intBannerID)
End If
shbbyReklam.Close
'Err.Clear
End Function
%>
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
17.12.2010, 23:24 2 (permalink)
enkineki
enkineki Üye
  • Üyelik Tarihi7.12.2010
  • Ticaret Sayısı0
  • Mesajlar5

Sitemde yayınlayacağım reklamları Shibby reklam scriptini kullanarak yayınlamak istiyorum.

Bu scriptte sistem şu şekilde işliyor.
Scriptin admin panelinde reklamın formatı(jpg, swf) boyutu, yayınlanacak yeri vs. bilgilerini giriyorsunuz.

Bu bilgileri script içeriğinde olan bir asp sayfasına yerleştiriyor. Eklenen reklamlara da <%=Reklam(6)%> gibi kodlar veriyor.

Bu verilen kodu sitenizin default.asp sinde veya belirlediğiniz reklam alanlarında yayınlamanız için include etmeniz gerekiyor. İnclude etmeyi denedim, ama olmadı. Bu konuda açıklama da yapılmamış.

Yardımcı olursanız çok memnun olurum.

Selamlar...



Eklenen reklamların toplandığı sayfanın kodları şöyle:

<!--#include file="Reklam_Files/reklam.asp"-->
<body background="bgr.gif">
<center>
<table width="100%" border="0">
<tr>
<td width="33%">&nbsp;</td>
<td width="34%"><center>
<%=Reklam(6)%>&nbsp;
</center>
</td>
<td width="33%">&nbsp;</td>
</tr>
<tr>
<td><div align="left"><%=Reklam(2)%>&nbsp;</div></td>
<td>&nbsp;</td>
<td><div align="right"><%=Reklam(3)%>&nbsp;</div></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><center>
<%=Reklam(5)%>&nbsp;
</center>
</td>
<td>&nbsp;</td>
</tr>
</table>
</center>



Sayfadaki reklam.asp nin kodları şöyle:

<!--#include file="ayarlar.asp"-->
<%Set reklamdata = Server.CreateObject("ADODB.Connection")
reklamdata.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&databaseyolu&"")
' Bu fonksiyon MyDesign Haberden alınıp editlenmiştir.
' http://www.mydesign.gen.tr
Function Reklam(intBannerTur)
If intBannerTur = "" OR IsNumeric(intBannerTur) = False Then Exit Function
Dim bSQL, intRandNo, intReklamSayisi, intBannerID, iGecerliGosterim
'On Error Resume Next
strDBTrue = True
Set shbbyReklam = Server.CreateObject("Adodb.Recordset")
shbbyReklam.Open "SELECT COUNT(id) FROM reklam WHERE onay = True and alanid = "& intBannerTur &" ", reklamdata, 1, 3
intReklamSayisi = CInt(shbbyReklam(0))
shbbyReklam.Close
Randomize
intRandNo = Int((Rnd*intReklamSayisi)+0)

bSQL = "SELECT * FROM reklam "
bSQL = bSQL & "WHERE onay = True and alanid = "& intBannerTur &" "
'bSQL = bSQL & "WHERE id = "&reklamid&" "
shbbyReklam.Open bSQL, reklamdata, 1, 3
If shbbyReklam.Eof Then
'// Bu alana sabit reklam kodu ekleyebilirsiniz.
Elseif shbbyReklam("gosterim")>=shbbyReklam("gosterimlimi t") then

else
' Rastgele banner seçimi
shbbyReklam.Move(intRandNo)
iGecerliGosterim = shbbyReklam("gosterim")
If IsNull(iGecerliGosterim) Then iGecerliGosterim = 0
iGecerliGosterim = iGecerliGosterim + 1
intBannerID = shbbyReklam("id")
' Reklam HTML kodu ise
If shbbyReklam("tur") = "html" Then
Response.Write shbbyReklam("Kod")
Elseif shbbyReklam("tur") = "resim" Then
Response.Write("<a href=""reklam_yonlendir.asp?id="& shbbyReklam("id") &""" >" & _
"<img src="""& shbbyReklam("resim") &""" target=""_blank"" alt="""& shbbyReklam("isim") &""" style=""border:0; width:"& shbbyReklam("genislik") &";height:"& shbbyReklam("yukseklik") &""" /></a>")
Elseif shbbyReklam("tur") = "flash" then%>
<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/s...rsion=6,0,29,0" width="<%=shbbyReklam("genislik")%>" height="<%=shbbyReklam("yukseklik")%>" border="1">
<param name="movie" value="<%=shbbyReklam("resim")%>">
<param name="quality" value="high">
<embed src="<%=shbbyReklam("resim")%>" width="<%=shbbyReklam("genislik")%>" height="<%=shbbyReklam("yukseklik")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed></object> <%End If
Response.Write("")
Set rs = reklamdata.Execute("UPDATE reklam SET gosterim = "& iGecerliGosterim &" WHERE id = "& intBannerID)
End If
shbbyReklam.Close
'Err.Clear
End Function
%>

Bir Allah'ın kulu da bir cevap vermemiş yaw.

Yardım edecek bir arkadaş yok mu arkadaşlar?
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
17.12.2010, 23:27 3 (permalink)
Starturk
Starturk Üye
  • Üyelik Tarihi16.12.2010
  • Ticaret Sayısı0
  • Mesajlar257
hangi script bu ?
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
17.12.2010, 23:30 4 (permalink)
enkineki
enkineki Üye
  • Üyelik Tarihi7.12.2010
  • Ticaret Sayısı0
  • Mesajlar5
Shibby reklam scripti starturk. Teşekkür ederim. En azından bir cevap geldi
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
30.12.2010, 14:33 5 (permalink)
saybatli
saybatli Üye
  • Üyelik Tarihi30.12.2010
  • Yaş31
  • Ticaret Sayısı0
  • Mesajlar24
ne gibi bir hata alıyorsun onu tam olarak belirtirsen yardımcı olurum
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
8.01.2011, 19:04 6 (permalink)
enkineki
enkineki Üye
  • Üyelik Tarihi7.12.2010
  • Ticaret Sayısı0
  • Mesajlar5
Çok teşekkür ederim. İnclude problemini çözdüm.

Şimdi sitenin sağ tarafındaki boşlukta reklam yayınlanıyor. Şimdi uğraştığım haber7 ve bazı sitelerde olduğu gibi sağ tarafta yayınlanan reklamları sabitlemeye çalışıyorum. Yani siteyi aşağıya doğru çektikçe reklam yan tarafında sabit kalacak.

Bazı kodlar buldum ama henüz başaramadım. Sitemiz asp bir site. Sapğ tarafta yayınlanan reklamları sabitlemeyi bilen veya elinde pratik çözümü olan arkadaşlardan yardım istiyorum.

Selamlar.
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
Yeni Konu Aç Cevap Yaz
Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler
Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Forum Kuralları
Benzer Konular
Konu Konuyu Başlatan Forum Cevap Son Mesaj
Yardım Edebilir misiniz ? Perseus Website Tasarımı 1 17.10.2011 06:58
yardım edebilir misiniz? twitter+ Webmaster Genel Konular 1 13.10.2011 17:03
Yardım edebilir misiniz ? twitter+ Facebook ( Ticaret ) 1 21.09.2011 12:51
ns oluşturamıyorum. Yardım edebilir misiniz. Önemli yagmayok Webmaster Genel Konular 6 6.04.2008 08:05
Bana yardım edebilir misiniz? fatihgoz Paypal, Webmoney, Ukash ve internet bankacılığı işlemleri 0 22.01.2006 22:59

Forum Saati: 12:17. Zaman dilimi GMT +3 olarak ayarlanmıştır.
Powered by vBulletin™ Version 3.8.7
Copyright © 2018 vBulletin Solutions, Inc. All rights reserved.
Kilo Nasıl Verilir btcfrm sihirlibardaklar.com instagram takipçi satın al