<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Arşiv Sayfası Kodları ' Son Düzenleme: 17 Aralık 2007 (v0.5.1) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// 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 SQL Dim intToplam Dim intLooper Dim intTdLooper Dim intKategoriID Dim blnKategoriVar Dim strGecerliKategori Dim strURL Dim strBolum Dim arrBolumler Dim strKonu Dim intSayfaSayisi Dim intGecerliSayfa Session.LCID = 1033 If LinkTuru = 1 Then intKategoriID = Temizle(Trim(Request.QueryString("katID"))) intGecerliSayfa = Temizle(Trim(Request.QueryString("s"))) 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,"-") intKategoriID = strKonu(0) intGecerliSayfa = strKonu(1) End If If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 intGecerliSayfa = CInt(intGecerliSayfa) blnKategoriVar = True If intKategoriID <> "" AND IsNumeric(intKategoriID) Then strGecerliKategori = KategoriBul(intKategoriID) Else blnKategoriVar = False End If %> <% If blnKategoriVar Then Response.Write strGecerliKategori &" - " %><%=strSiteAdi%>

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

En Çok Okunan Haberler

<% Call BaslikListele("
    ", "
", "
  • ", "
    • ", 10, "", "okunma") %>
    		<% If blnKategoriVar Then %>

    <%=strGecerliKategori%>
    <% SQL = "SELECT haberID, kategori, baslik, tarih, onay, ozet FROM tblHaberler WHERE durum = True AND onay = True AND kategori = "& intKategoriID &" ORDER BY tarih DESC" kdGenel.Open SQL, adoCon, 1, 3 If Not kdGenel.Eof Then intLooper = 0 kdGenel.PageSize = CInt(intHaberSayisi) intSayfaSayisi = kdGenel.PageCount kdGenel.AbsolutePage = CInt(intGecerliSayfa) If intGecerliSayfa > intSayfaSayisi Then intGecerliSayfa = intSayfaSayisi Response.Write "" Dim Aralik, intSayfaAltSiniri, intSayfaUstSiniri, intSolGrupSayisi, intSagAltSinir Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik If (intSayfaUstSiniri > intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 If intGecerliSayfa > 1 Then Response.Write("[«] ") End If For intLooper = 1 to intSolGrupSayisi If CInt(intLooper) = intGecerliSayfa Then Response.Write ""& intLooper &". " Else Response.Write(""& intLooper &". ") End If Next If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write ". . .  " For intLooper = intSayfaAltSiniri to intSayfaUstSiniri If CInt(intLooper) = CInt(intGecerliSayfa) Then Response.Write ""& intLooper &". " Else Response.Write(""& intLooper &". ") End If Next If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write " . . .  " For intLooper = intSagAltSinir to intSayfaSayisi If CInt(intLooper) = CInt(intGecerliSayfa) Then Response.Write ""& intLooper &". " Else Response.Write(""& intLooper &". ") End If Next If intGecerliSayfa <> intSayfaSayisi AND intSayfaSayisi > 1 Then Response.Write("[»] ") End If Else Response.Write "
    • Bu kategoriye henüz haber eklenmedi.
    " End If kdGenel.Close %>
    <% Else Response.Write("

    Yanlış kategori numarası seçtiniz.

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