<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="ayarlar.asp"-->
<!--#include file="include/degiskenler.asp"-->
<!--#include file="include/baglanti.asp"-->
<!--#include file="include/bloklar.asp"-->
<!--#include file="include/kontrol.asp"-->
<!--#include file="fonksiyonlar/database.asp"-->
<!--#include file="fonksiyonlar/filtreler.asp"-->
<!--#include file="fonksiyonlar/link.asp"-->
<!--#include file="fonksiyonlar/tarih.asp"-->
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr
' Resim Galerisi Görüntüleme Kodları
' Son Düzenleme: 11 Temmuz 2009 (v0.7)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// 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 strSQL
Dim strGaleriBaslik
Dim iHaberSayisi
Dim intGaleriYorumSayisi
Dim intGaleriHit
'// Galeri numarasını bul
Call getQueryString("galeriID")
'// 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 tblGaleriler WHERE Durum="& strDBTrue &" AND Galeri_ID = "& CInt(intId) &"", adoCon, 1, 3
'// Uygun kayıt bulunamadıysa mesaj yazılıyor
If kdGenel.EOF Then
blnHaberVar = False
'// Kayıt varsa galeri gösteriliyor
Else
'// Galeri bilgileri alınıyor
strGaleriBaslik = kdGenel("Ad")
intGaleriHit = kdGenel("Hit")
intSayfaSayisi = CInt(GaleriFotoSayisi(intId))
'// Fotoğrafın görüntülenme sayısı güncelleniyor
If Session("habercif"& intId) <> True Then
Call GaleriHitArttir(intId, intGaleriHit)
End If
Session("habercif"& intId) = True
SQL = "SELECT COUNT(yorumID) FROM tblGaleriYorumlar WHERE galeri_id = "& intId
If blnAdminOnay Then SQL = SQL & " AND durum = "& strDBTrue
kdYardimci.Open SQL, adoCon, 1, 3
intGaleriYorumSayisi = CInt(kdYardimci(0))
kdYardimci.Close
End If
kdGenel.Close
End If
If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><% If blnHaberVar Then Response.Write strgaleriBaslik &" - " %><%=strSiteAdi%></title>
<% Call Head() %>
<meta name="generator" content="MyDesign Haber <%=strVersiyon%>" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>css/stil.css" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>js/ajaxtabs/ajaxtabs.css" />
<script type="text/javascript" src="<%=strScriptYolu%>js/ajaxtabs/ajaxtabs.js"></script>
<script type="text/javascript" src="<%=strScriptYolu%>js/ajax.js"></script>
<% If blnSA Then %>
<script language="JavaScript" type="text/javascript">
function Sil() {
if (confirm('Videoyu silmek istediğinize emin misiniz?')) {
return true; }
else {
return false;
}
}
</script>
<% End If %>
<!--#include file="include/ajax.asp"-->
</head>
<body>
<div id="ana">
<table id="main" cellpadding="0" border="0" cellspacing="0">
<tr>
<td colspan="3" id="ust"><% Call Ust() %></td></tr>
<tr>
<td colspan="3" id="bant"><% Call UstMenu() %></td></tr>
<tr>
<td colspan="3" id="son-dakika"><% Call SonDakika() %></td></tr>
<tr>
<td id="sol">
<% Call Menu("galeri") %>
</td>
<td id="orta2" colspan="2">
<%
'// Galeri bulunamadıysa mesaj yazılıyor
If blnHaberVar = False Then
Response.Write("<div class=""uyari""><p><img src="""& strScriptYolu &"img/icon/hata.png"" /></p><p>Yanlış galeri numarası seçtiniz.</p></div>")
'// Uygun kayıt varsa gösteriliyor
Else
Response.Write "<h1>"& strGaleriBaslik &"</h1>"
SQL = "SELECT * FROM tblFoto WHERE Durum = "& strDBTrue &" AND Galeri_ID = "& intId &" ORDER BY Foto_ID ASC"
If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT "& intGecerliSayfa-1 &", "& 1
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
If strVtTuru = "msSQL" OR strVtTuru = "Access" Then
kdGenel.PageSize = 1
kdGenel.AbsolutePage = intGecerliSayfa
End If
Response.Write "<div class=""galeri_sayfala"">"
If intSayfaSayisi > 1 Then
If CInt(intGecerliSayfa) <> 1 Then %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)-1, strGaleriBaslik)%>">Önceki Sayfa</a> |<%
End If
For intLooper = 1 To intSayfaSayisi
If intLooper = CInt(intGecerliSayfa) Then
Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
Else %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, intLooper, strGaleriBaslik)%>"><%=intLooper%></a> | <%
End If
Next
If CInt(intGecerliSayfa) <> intSayfaSayisi Then %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)+1, strGaleriBaslik)%>">Sonraki Sayfa</a><%
End If
End If
Response.Write "</div>"
intLooper = 0
Do While Not kdGenel.Eof AND intLooper < 1 %>
<div id="galeri">
<a id="1" href="<%=kdGenel("Resim")%>" class="highslide" onclick="return hs.expand(this)"><img src="<%=kdGenel("Resim")%>" border="0" alt="<%=strGaleriBaslik%>" /></a>
</div>
<div id="galeri_aciklama"><%=kdGenel("Aciklama")%></div>
<%
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write "<div class=""galeri_sayfala"">"
If intSayfaSayisi > 1 Then
If CInt(intGecerliSayfa) <> 1 Then %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)-1, strGaleriBaslik)%>">Önceki Sayfa</a> |<%
End If
For intLooper = 1 To intSayfaSayisi
If intLooper = CInt(intGecerliSayfa) Then
Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
Else %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, intLooper, strGaleriBaslik)%>"><%=intLooper%></a> | <%
End If
Next
If CInt(intGecerliSayfa) <> intSayfaSayisi Then %>
<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)+1, strGaleriBaslik)%>">Sonraki Sayfa</a><%
End If
End If
Response.Write "</div>"
End If
kdGenel.Close
End If %>
<ul id="countrytabs" class="shadetabs">
<li><a href="<%=strScriptYolu%>popup/galeri-yorumlar.asp?galeri=<%=intId%>" class="selected" rel="#iframe">Yorumlar</a></li>
<li><a href="<%=strScriptYolu%>popup/galeri-yorum-yaz.asp?galeri=<%=intId%>" rel="#iframe">Yorum Yaz</a></li>
</ul>
<div id="countrydivcontainer" style="border:1px solid #c1c1c1; margin-bottom: 1em; padding:10px;">
</div>
<script type="text/javascript">
var countries=new ddajaxtabs("countrytabs", "countrydivcontainer")
countries.setpersist(true)
countries.setselectedClassTarget("link")
countries.init()
</script>
</td>
</tr>
<tr>
<td colspan="3" id="alt">
<% Call Alt() %>
<%
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
Response.Write "<p>Altyapı: <a href=""http://www.mydesign.gen.tr"" target=""_blank"" title=""MyDesign | Kod Arşivi"">MyDesign Haber Sistemi</a></p>"
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
%>
</td>
</tr>
</table>
</div>
</body>
</html>