<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Haber Okuma Kodları ' Son Düzenleme: 9 Kasım 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Sayfanın önbellekten alnması önleniyor Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Değişkenler tanımlanıyor Dim intHaberID Dim strMesaj Dim intGecerliSayfa Dim blnHaberVar Dim blnHaberYorum Dim blnKilitli Dim intHaberOkunma Dim strHaberMetni Dim intHaberKategori Dim intHaberEditor Dim dtmHaberTarih Dim strHaberOzet Dim intHaberPuan Dim intHaberOySayisi Dim strHaberBaslik Dim strHaberResim Dim SQL Dim intHaberYorumSayisi Dim intIcerikIDPuan Dim intLooper Dim intToplam Dim strURL Dim strBolum Dim arrBolumler Dim strKonu If LinkTuru = 1 Then intHaberID = Temizle(Trim(Request.QueryString("haberID"))) Else Set strURL = Request.ServerVariables("QUERY_STRING") strBolum = Split(strURL,"/") If UBound(strBolum) >= 3 + KarakterBul(strScriptYolu, "/") Then strKonu = Temizle(strBolum(3 + KarakterBul(strScriptYolu, "/"))) strKonu = Split(strKonu,"-") intHaberID = strKonu(0) End If '// Varsayılan değerler giriliyor blnHaberVar = True blnHaberYorum = False blnKilitli = True '// Haber verisinin olup olmadığı ve verinin sayı olup olmadığı kontrol ediliyor If intHaberID = "" Or IsNumeric(intHaberID) = False Then blnHaberVar = False Else '// Veri, sayıysa veritabanı kontrolü yapılıyor kdGenel.Open "SELECT * FROM tblHaberler WHERE durum=True AND onay=True AND kategori <> "& intKoseYazilari &" AND haberID = "& CInt(intHaberID) &"", adoCon, 1, 3 '// Uygun kayıt bulunamadıysa mesaj yazılıyor If kdGenel.EOF Then blnHaberVar = False '// Kayıt varsa haber gösteriliyor Else '// Haberin bilgileri alınıyor intHaberOkunma = kdGenel("okunma") blnHaberYorum = kdGenel("yorum") blnKilitli = kdGenel("kilit") strHaberMetni = kdGenel("haber") intHaberKategori = kdGenel("kategori") intHaberEditor = kdGenel("editor") dtmHaberTarih = kdGenel("tarih") strHaberOzet = kdGenel("ozet") intHaberPuan = kdGenel("puan") intHaberOySayisi = kdGenel("oy_sayisi") strHaberBaslik = kdGenel("baslik") strHaberResim = kdGenel("resim") If InStr(strHaberResim, "http://") = 0 Then If Left(strHaberResim, 1) <> "/" Then strHaberResim = strScriptYolu & strHaberResim End If End If '// Yorum Sayısı Bulunuyor If blnHaberYorum Then SQL = "SELECT * FROM tblYorumlar WHERE haber="& intHaberID If blnAdminOnay Then SQL = SQL & " AND durum = True" kdYardimci.Open SQL, adoCon, 1, 3 intHaberYorumSayisi = kdYardimci.RecordCount kdYardimci.Close End If '// Haberin okunma sayısı güncelleniyor If Session("haberci"& intHaberID) <> True Then kdGenel("okunma") = intHaberOkunma + 1 kdGenel.Update End If '// Puan hesaplanıyor If intHaberOySayisi <> 0 AND IsNumeric(intHaberOySayisi) AND IsNumeric(intHaberPuan) Then intHaberPuan = Round(intHaberPuan/intHaberOySayisi,0) Else intHaberPuan = 0 End If strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) Session("haberci"& intHaberID) = True intArananKategori = CStr(intHaberKategori) End If kdGenel.Close End If %> <% If blnHaberVar Then Response.Write strHaberBaslik &" - " %><%=strSiteAdi%>

<%=strSiteAdi%>
  • Anasayfa
    • <% If blnHaberVar = False Then Call KategoriListele("", "", "
  • ", "
    • ", 0, False, "
      ", "
    ", "
  • ", "
    • ") Else Call KategoriListele("", "", "
  • ", "
    • ", intHaberKategori, True, "
      ", "
    ", "
  • ", "
    • ") End If %>

En Çok Okunan Haberler

<% Call BaslikListele("
    ", "
", "
  • ", "
    • ", 10, "", "okunma") %>
    		<% '// Haber bulunamasıysa mesaj yazılıyor If blnHaberVar = False Then Response.Write("

    Yanlış haber numarası seçtiniz.

    ") '// Uygun kayıt varsa gösteriliyor Else %> <% If Len(strHaberResim) > 3 Then Response.Write("") %>

    <%=strHaberBaslik%>

    <%=Satir(strHaberOzet)%>

    <% If blnHaberYorum Then %> <% End If %>
    Kategori  Kategori : "><%=KategoriBul(intHaberKategori)%>
    Yorumlar  Yorum Sayısı : <%=intHaberYorumSayisi%>
    Okunma  Okunma : <%=intHaberOkunma%>
    Tarih  Tarih : <%=TarihFormatla(dtmHaberTarih,1)%>

    <%=strHaberMetni%>

    <% intIcerikIDPuan = Temizle(Request.Cookies("myhaberci")("Puan"& intHaberID)) %>
    "" Then Response.Write " disabled=""disabled""" %> class="buton" />
    <% For intLooper = 1 To intHaberPuan Response.Write "" Next For intLooper = 1 To 5-intHaberPuan Response.Write "" Next %>
    Yazdırılabilir Sayfa Yazdırılabilir Sayfa | Word'e Aktar Word'e Aktar | Tavsiye Et Tavsiye Et <% If blnKilitli = False AND blnHaberYorum = True Then %> | Yorum Yaz Yorum Yaz<% End If %>

    <% '// Yorumlar aktifse gösteriliyor If blnHaberYorum Then SQL = "SELECT TOP 3 * FROM tblYorumlar WHERE haber="& intHaberID If blnAdminOnay Then SQL = SQL & " AND durum = True" SQL = SQL & " ORDER BY tarih DESC" kdYorum.Open SQL, adoCon, 1, 3 intHaberYorumSayisi = kdYorum.RecordCount If intHaberYorumSayisi > 0 Then Response.Write "

    Bu habere toplam "& intHaberYorumSayisi &" yorum yazılmıştır.

    " intLooper = 0 Do While intLooper <= 3 And Not kdYorum.Eof %>
    "><%=kdYorum("yazan")%> [ <%=TarihFormatla(kdYorum("tarih"),1)%> ]

    <%=MesajFormatla(kdYorum("yorum"))%>

    <% intLooper = intLooper + 1 kdYorum.MoveNext Loop %>

    Yorumların tamamını okumak için tıklayın.

    <% End If kdYorum.Close End If %>

    <%=KategoriBul(intHaberKategori)%>

    En Çok Okunan Haberler

    <% SQL = "SELECT TOP 10 haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, kucuk_resim, okunma" SQL = SQL & " FROM tblHaberler WHERE durum = True AND onay = True AND kategori <> "& intKoseYazilari &"" SQL = SQL & " AND kategori = "& intHaberKategori &" ORDER BY tarih DESC" kdGenel.Open SQL, adoCon, 1, 3 If Not kdGenel.Eof Then Response.Write "" End If kdGenel.Close %> <% Call BaslikListele("
      ", "
    ", "
  • ", "
    • ", 10, "", "okunma") %>
    <% End If %>

    <%=strCopyright%>
    RSS Kaynağı | Yazar Girişi

    <% ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır Response.Write "

    Altyapı: MyDesign Haber Sistemi

    " ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır %>