frendman
30.05.2009, 19:50
Spor haberleri resimli List istekleri vardı. Beğenirseniz aşağıda kodlar ve tarifini veriyorum.
Ekran resmi:
Demo:
Aşağıdaki kodları default.asp'de :
----------------------------------------------
<td id="orta"><%
If intToplam > 0 Then %>
<h1><%=Basliklar%></h1>
<table widş="100%" cellpadding="0" cellspacing="0" border="0" id="manset-tablo">
<tr>
<td id="manset-aciklama"><%=Ozetler%></td>
<td id="mansetler" rowspan="2"><%=BaslikMenu%></td></tr>
<tr>
<td id="manset-resimler"><%=Resimler%></td></tr>
</table><%
End If %> (Bu satırdan sonra)
--------------------------------------------
Kısmının tam altına yapıştırın
Kopyalanacak kod: (Not: Buradaki " AND kategori=8 ORDER BY Tarih DESC ", adoCon, 1, 3" kısmındaki 8 rakamını spor kategorinizin ID'si ile değiştirin)
[Quote]<div class="sporgundemi"><br><br><br><br>
<table widş="100%" cellpadding="0" cellspacing="0" border="0"> <ul>
<ş scope="col"> <%kdGenel.Open "SELECT TOP 10 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori=8 ORDER BY Tarih DESC ", adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write "<table widş=""100%"" cellpadding=""0"" cellspacing=""0"" aling=""center"" border=""0""><tr>"
intLooper = 1
Do While intLooper <= 5 AND Not kdGenel.Eof %>
<td style="widş:20%; align="center" class="none" valign="top" border="2" height="90" >
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik") , KategoriBul(kdGenel("kategori")))%>"><img src="<%=strScriptYolu%>resimler/haber/<%=kdGenel("kucuk_resim")%>" widş="100" height="76" border="2" align="center" onError="şis.src='<%=strScriptYolu%>resimler/haber/ş_resimyok.gif';" /></a>
<br><div class="" style=" height:90px; "><h5><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><% =server.HTMLEncode((left(kdGenel("baslik"),28))) %></a> </h5>
<% =server.HTMLEncode((left(kdGenel("ozet"),0))) %></div>
<%
If intLooper Mod 5 = 0 AND intLooper <> 16 Then Response.Write "</tr><tr>"
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write "</tr></table>"
End If
kdGenel.Close %>
</tr>
</table></ul>
</div> [/QUOTE]
Default.asp'miz tamam oluyor bu şekilde.
*Demo adresteki arka planı farklı kaydet diyerek img/bg klasörüne atın.
*Daha sonra inc/still.css'yi açıp Aşağıdaki kodları Videolarla ilgili bölümün bittiği yere kopyalayın.
stil.css'ye eklenecek kodlar:
[QUOTE] /* spor Kutusu */
.sporgundemi {
background:#ffffff; border:2px solid #ffffff; padding:10px; text-align:center; }
.sporgundemi ul {
list-style:none; padding:10px 0 0 0; border-top:2px solid ffffff; margin:0 2px 0 2px; }
.sporgundemi {
height:170px; padding:10px 0 10px 3px; background:url(../img/bg/spor_gundemi.jpg) top left repeat-x; margin-bottom:5px; }
.sporgundemi a {
text-decoration:none; color:#ffffff; font-weight:bold; }
.sporgundemi a:hover {
color:#204888; } [/QUOTE]
Ekran resmi:
Demo:
Aşağıdaki kodları default.asp'de :
----------------------------------------------
<td id="orta"><%
If intToplam > 0 Then %>
<h1><%=Basliklar%></h1>
<table widş="100%" cellpadding="0" cellspacing="0" border="0" id="manset-tablo">
<tr>
<td id="manset-aciklama"><%=Ozetler%></td>
<td id="mansetler" rowspan="2"><%=BaslikMenu%></td></tr>
<tr>
<td id="manset-resimler"><%=Resimler%></td></tr>
</table><%
End If %> (Bu satırdan sonra)
--------------------------------------------
Kısmının tam altına yapıştırın
Kopyalanacak kod: (Not: Buradaki " AND kategori=8 ORDER BY Tarih DESC ", adoCon, 1, 3" kısmındaki 8 rakamını spor kategorinizin ID'si ile değiştirin)
[Quote]<div class="sporgundemi"><br><br><br><br>
<table widş="100%" cellpadding="0" cellspacing="0" border="0"> <ul>
<ş scope="col"> <%kdGenel.Open "SELECT TOP 10 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori=8 ORDER BY Tarih DESC ", adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write "<table widş=""100%"" cellpadding=""0"" cellspacing=""0"" aling=""center"" border=""0""><tr>"
intLooper = 1
Do While intLooper <= 5 AND Not kdGenel.Eof %>
<td style="widş:20%; align="center" class="none" valign="top" border="2" height="90" >
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik") , KategoriBul(kdGenel("kategori")))%>"><img src="<%=strScriptYolu%>resimler/haber/<%=kdGenel("kucuk_resim")%>" widş="100" height="76" border="2" align="center" onError="şis.src='<%=strScriptYolu%>resimler/haber/ş_resimyok.gif';" /></a>
<br><div class="" style=" height:90px; "><h5><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><% =server.HTMLEncode((left(kdGenel("baslik"),28))) %></a> </h5>
<% =server.HTMLEncode((left(kdGenel("ozet"),0))) %></div>
<%
If intLooper Mod 5 = 0 AND intLooper <> 16 Then Response.Write "</tr><tr>"
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write "</tr></table>"
End If
kdGenel.Close %>
</tr>
</table></ul>
</div> [/QUOTE]
Default.asp'miz tamam oluyor bu şekilde.
*Demo adresteki arka planı farklı kaydet diyerek img/bg klasörüne atın.
*Daha sonra inc/still.css'yi açıp Aşağıdaki kodları Videolarla ilgili bölümün bittiği yere kopyalayın.
stil.css'ye eklenecek kodlar:
[QUOTE] /* spor Kutusu */
.sporgundemi {
background:#ffffff; border:2px solid #ffffff; padding:10px; text-align:center; }
.sporgundemi ul {
list-style:none; padding:10px 0 0 0; border-top:2px solid ffffff; margin:0 2px 0 2px; }
.sporgundemi {
height:170px; padding:10px 0 10px 3px; background:url(../img/bg/spor_gundemi.jpg) top left repeat-x; margin-bottom:5px; }
.sporgundemi a {
text-decoration:none; color:#ffffff; font-weight:bold; }
.sporgundemi a:hover {
color:#204888; } [/QUOTE]