İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

Sıralama...

ahpena

0
İyinet Üyesi
Katılım
26 Ocak 2005
Mesajlar
0
Reaction score
0
Konum
İstanbul
Arkadaşlar su hazirkod.com daki gibi sıralam nasıl yapılıyor?
yani 10 veri ardından bi reklam ardından tekrar bi 10 veri?
nasıl olacak?
 

sitemedya

0
İyinet Üyesi
Katılım
11 Kasım 2004
Mesajlar
284
Reaction score
0
asp kod aşağıda. eğer siten php ise onu da yazayım...
Kod:
<%
for sira = 1 to 30
' --> burada link var
if sira/10=int(sira/10) then
' --> buraya banner gelecek
end if
next
%>
 
S

SaveTargetUs

Misafir
<% Set RS = Server.Createobject("ADODB.Recordset")
RS.Open "SELECT * FROM site WHERE onay='O' AND sira>0 ORDER by sira",BAG,1,3
n = RS.RecordCount %>
<table border="0" cellspacing="1" cellpadding="2" width="100%" bgcolor="#ADBFF1">
<tr bgcolor="#f7f7f7">
<td valign="middle" nowrap align="center" bgcolor="#3763E1" colspan="2"><font color="#FFFFFF" face="Verdana" size="1">Sıra</font></td>
</center>
<td width="100%" valign="middle" bgcolor="#3763E1">
<p align="left"><font color="#FFFFFF" face="Verdana" size="1">En
Çok Hit Alan 30</font></p>
</td>
<center>
<td valign="middle" bgcolor="#3763E1">
<p align="center"><font color="#FFFFFF" face="Verdana" size="1">Kategori</font></p>
</td>
<td nowrap align="center" valign="middle" bgcolor="#3763E1"><font color="#FFFFFF" face="Verdana" size="1">Hit</font></td>
</tr>

<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr>
<% RS.Movenext
Next %>
</table>
</center></div><table border="0" cellpadding="0"
cellspacing="3" width="100%">

<tr><td>

<a href="http://www.x.com" target=_blank><img src="http://www.x.com/reklam.gif" border="0"></a>

</td></tr> </table>
<table border="0" cellpadding="2"
cellspacing="1" width="100%" bordercolor="#FFFFFF">
<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr>

<% RS.Movenext
Next %>
</table>
</center></div><table border="0" cellpadding="0"
cellspacing="3" width="100%">
<tr>
<tr><td>
<a href="http://www.x.com" target=_blank><img border="0" src="reklam.gif" border="0"></a>


</td></tr> </table>
<table border="0" cellpadding="2"
cellspacing="1" width="100%" bordercolor="#FFFFFF">
<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr> </p>

<% RS.Movenext
Next %>
</table>
 
S

SaveTargetUs

Misafir
Benim sitemdede istediğin şekilde kod var. Asp. üstte yazdım ama onu kendi scriptine göre düzenlemek zor olur. Mantığını söyliyim hazırlaman daha kolay olur.

For döngüsüyle 10 kayıt listele
Reklam göster
For döngüsüyle 10 kayıt listele
Reklam göster
For döngüsüyle 10 kayıt listele

......
1 kere listelet copy/paste yap. otomatik olarak 11 olarak algılıyor.
 

sitemedya

0
İyinet Üyesi
Katılım
11 Kasım 2004
Mesajlar
284
Reaction score
0
SaveTargetUs' Alıntı:
Benim sitemdede istediğin şekilde kod var. Asp. üstte yazdım ama onu kendi scriptine göre düzenlemek zor olur. Mantığını söyliyim hazırlaman daha kolay olur.
For döngüsüyle 10 kayıt listele
Reklam göster
For döngüsüyle 10 kayıt listele
Reklam göster
For döngüsüyle 10 kayıt listele
.....
1 kere listelet copy/paste yap. otomatik olarak 11 olarak algılıyor.
bu şekilde de olur ama fazla kod yazımı ve değişikliklerin çok yerde yapılması ve hataya daha açık olması açısından, programlama konseptine uygun olmayan bir mantık bu. düşün sayfada 100 kayıt listeleyeceksem 10 tane "for" kullanman gerekecek. parametreli function tanımlansan daha rahat olmazmıydı?
mümkün olduğunca kısa ve işlevsel kod yazmanı, nacizane, tavsiye ederim.
 

hdogan

0
İyinet Üyesi
Katılım
14 Ekim 2004
Mesajlar
693
Reaction score
2
Konum
Ankara
PHP:

while (....) {
if (++$i % 10 == 0)
reklam();

echo "$i. site<br>\n";
}

gibi.

modulus kullanin (10'a bolumunden kalan sifir ise reklam bas).
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst