<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Sayfa Okuma Kodları ' Son Düzenleme: 14 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("sayfaID"))) 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 '// 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 tblSayfalar WHERE durum=True AND Sayfa_ID = "& 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 strHaberMetni = kdGenel("Icerik") strHaberBaslik = kdGenel("baslik") strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) End If kdGenel.Close End If %> <% If blnHaberVar Then Response.Write strHaberBaslik &" - " %><%=strSiteAdi%>

<%=strSiteAdi%>
  • Anasayfa
    • <% Call KategoriListele("", "", "
  • ", "
    • ", 0, False, "
      ", "
    ", "
  • ", "
    • ") %>

En Çok Okunan Haberler

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

    Yanlış sayfa numarası seçtiniz.

    ") '// Uygun kayıt varsa gösteriliyor Else %>

    <%=strHaberBaslik%>

    <%=strHaberMetni%>

    <% 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 %>