<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Sayfa Okuma Kodları ' Son Düzenleme: 5 Temmuz 2009 (v0.7) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Sayfanın önbellekten alınması ö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" '// Sayfa numarasını bul Call getQueryString("sayfaID") '// Varsayılan değerler giriliyor blnHaberVar = True '// Haber verisinin olup olmadığı ve verinin sayı olup olmadığı kontrol ediliyor If intId = "" Or IsNumeric(intId) = False Then blnHaberVar = False Else '// Veri, sayıysa veritabanı kontrolü yapılıyor kdGenel.Open "SELECT * FROM tblSayfalar WHERE durum = "& strDBTrue &" AND Sayfa_ID = "& CInt(intId) &"", 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 If Session("sayfa-"& intId) <> True Then Call SayfaHitArttir(kdGenel("hit"), intId) ' Sayfanın okunma sayısı güncelleniyor '// Sayfanın bilgileri alınıyor strHaberMetni = kdGenel("Icerik") strHaberBaslik = kdGenel("baslik") intHaberOkunma = kdGenel("hit") strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) Session("sayfa-"& intId) = True End If kdGenel.Close End If %> <% If blnHaberVar Then Response.Write strHaberBaslik &" - " %><%=strSiteAdi%> <% Call Head() %>
<% Call Ust() %>
<% Call UstMenu() %>
<% Call SonDakika() %>
<% Call Menu("sol") %> <% '// 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%>

Bu sayfa <%=intHaberOkunma%> defa görüntülenmiştir.

<% End If %> 		<% Call Menu("sag") %>
<% Call Alt() %> <% ' 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 %>