Webmaster Forumu

Hoşgeldiniz
 
AnasayfaTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Ücretsiz Haber Scripti v2

Aşağa gitmek 
YazarMesaj
Admin
Admin


Mesaj Sayısı : 123
Kayıt tarihi : 28/07/09

MesajKonu: Ücretsiz Haber Scripti v2   Salı Tem. 28, 2009 8:06 pm

Eklentinin mantığı eski versiyondan hatırlayanlar bilir, manşetten düşen 11.haber itibari ile manşetin altında haber çıkar....

Demo http://www.hisaristanbul.com/hbrdeneme/

Kurulum :

default.asp de aşağıda bulunan kodları bulun:


Kod:
<table width="100%" cellpadding="0" cellspacing="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 kodların hemen altına aşağıdaki kodları yapıştırın...



Kod:
<center><table id="part_0b"><tr> <%

SQL = "SELECT TOP 4 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler"
SQL = SQL &" WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori <> "& intKoseYazilari &" AND tarih < #"& CDate(strSonHaberTarih) &"#"
SQL = SQL &" ORDER BY tarih DESC"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write ""
intLooper = 1
Do While intLooper <= 4 AND Not kdGenel.Eof %><td valign="top" align="left">
<div class="item">
<div class="image"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><img src="<%=kdGenel("kucuk_resim")%>" border="0" alt=""/></a></div>
<div class="title"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><% =server.HTMLEncode((left(kdGenel("baslik"),37))) %></a></div>
<div class="short_content"><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><% =server.HTMLEncode((left(kdGenel("ozet"),65))) %>...</a></div>
</div>
</td><%
If intLooper Mod 4 = 0 AND intLooper <> 4 Then Response.Write "</tr><tr>"
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write ""
End If
kdGenel.Close %></table></center>


şlem tamamdır...

- index.css dosyasını da aşağıdaki linkten indirin ve ana dizine atın...

- default.asp de

<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>inc/stil.css" />

kodunun hemen altına aşağıdaki kodu yapıştırın...

<link href="index.css" type="text/css" rel="stylesheet">

http://hisaristanbul.com/ozel_dosyalar/hisaristanbul-index.css.rar

- Script tüm versiyonlara uyumludur.( Accsess, MysQl, MssQl )
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://forumaster.ace.st
 
Ücretsiz Haber Scripti v2
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» En iyi sistem bakım programları
» WeBMoD(Ücretsiz)

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Webmaster Forumu  :: Web Tasarım :: Scriptler-
Buraya geçin: