<%=site("SITEADI")%>

" style="text-decoration: none">Ana Sayfa | Resim Galerisi

<% islem=request.form("islem") if islem = "" then islem = request.querystring("islem") end if if session("giris") = site("SIFRE") and request.querystring("islem") <> "cikis" and request.querystring("islem") = "" and request.form("islem") = "" then islem = "panel" end if if islem = "" then islem = "giris" end if select case islem case "giris" %>

Yönetici Şifreniz

<%case "dogrula"%> <% if sifrele(request.form("sifre")) = site("SIFRE") then session("giris") = site("SIFRE")%> <%else%> <% end if %>

Sayın Yönetici Başarılı Bir Şekilde Giriş Yaptınız.

Yönetici Olarak Geri Dön

Girmiş Olduğunuz Şifre Yanlış.Lütfen Tekrar Deneyiniz.

Geri Dönün

<%case "panel" if session("giris") <> site("SIFRE") then response.redirect "resimyonetim.asp" end if %> <% Set res = Server.Createobject("ADODB.Recordset") sql = "select * from RESIMLER WHERE ONAY = 0" res.open sql, baglanti, 1, 3 %> <% Set hat = Server.Createobject("ADODB.Recordset") sql = "select * from RESIMLER WHERE HATA = 'evet'" hat.open sql, baglanti, 1, 3 %>

Yönetim Paneline Hoşgeldiniz Sayın Yönetici
Panel İşlemleri
Galeri Ayarları	Resim İşlemleri	Kategori Ayarları	Alt Kategori Ayarları
› Genel Ayarlar	› Resim Düzenle	› Kategori Düzenle	› Alt Kategori Düzenle
› Üyeler	› Resim Ekle	› Kategori Ekle	› Alt Kategori Ekle
› Kötü Söz Koruması	› Resim Sil	› Kategori Sil	› Alt Kategori Sil
	› Onay Bekleyenler (<%=res.recordcount%>)
	› Hatalı Resimler (<%=hat.recordcount%>)

Panelden Çıkış

<% hat.close set hat=nothing res.close set res=nothing case "cikis" session("giris") = "" session("u") = "" %>

Sayın Yönetici Başarılı Bir Şekilde Çıkış Yaptınız.

Galeriye Dön

<%case "uyeler" kon() if request.form("is")="g" then Set mail = Server.Createobject("ADODB.Recordset") if request.form("mailsecenek")="tum" then sql = "SELECT * from UYELER" else sql = "SELECT * from UYELER WHERE MAIL_LIST ='evet'" end if mail.open sql, baglanti, 1, 3 for t=1 to mail.recordcount if mail.eof then exit for strRecipients = mail("EMAIL") strFromName = site("SITEADI") strFrom=site("ADMINEMAIL") strSender=site("ADMINEMAIL") strSubject = site("SITEADI") & " Mail Listeden" strMessage = request.form("mesaj")%> <%mail.movenext next end if if request.querystring("uyesil")<>"" then Set uyes = Server.Createobject("ADODB.Recordset") sql = "DELETE * from UYELER WHERE UYE_ID = "&request.querystring("uyesil")&"" uyes.open sql, baglanti, 1, 3 end if Set uye = Server.Createobject("ADODB.Recordset") sql = "select * from UYELER" uye.open sql, baglanti, 1, 3 kac = uye.recordcount sira = 50 %> <% if request("sayfa")<>"" then sayfa = cdbl(request("sayfa")) uye.move sayfa*sira else sayfa = 0 end if for t = 1 to sira if uye.eof then exit for if t mod 2 = 0 then bg="white" else bg="whitesmoke" end if %> <% uye.movenext next uye.close set uye=nothing %>

ANA MENU
Toplam <%=uye.recordcount%> Üye Var \| <%if request.form("is")="g" then%>Mesajınız <%=mail.recordcount%> üyeye Gönderildi..!<%end if%>
-	Kullanıcı Adı
-	<%=uye("KULLANICI_ADI")%>	" style="text-decoration: none">Sil / "" style="text-decoration: none">Ayrıntıları

Diğer Sayfalar : <%if kac/sira = int(kac/sira) then pagecount = kac/sira else pagecount = int(kac/sira) +1 for p=0 to pagecount-1 if sayfa = p then %> <%=p+1%> <% else %> <%=p+1%> <%end if next %>

Üyelere Mail Gönder

Tüm Üyelere Email Listesindeki Üyelere

<% case "uyeayrinti" kon() Set uye = Server.Createobject("ADODB.Recordset") sql = "select * from UYELER WHERE UYE_ID = "&request.querystring("uye")&"" uye.open sql, baglanti, 1, 3 %>

ANA MENU
Kullanıcı Adı	<%=uye("KULLANICI_ADI")%>
Adı	<%=uye("ISIM")%>
Email	<%=uye("EMAIL")%>
Bu Üye	<%=uye("RESIM_EKLEME")%> resim ekledi
Bu Üye	<%=uye("RESIM_IZLEME")%> defa resim görüntüledi.
Son Giriş	<%=uye("SON_ZIYARET")%>
Son Giriş IP	<%=uye("SON_ZIYARET_IP")%>

<% uye.close set uye=nothing case "genel" kon() %>

ANA MENU
Panel Ayarlar
Site Başlık	" size="20">
Galerinin Bulunduğu Dizin URL	" size="20">
Site Ana Sayfa	" size="20">
Yönetici Email	">
Resim Ekleme
Sayfa Başına	" size="5">resim
Resim Gönderme
Mail Server	" size="20">
Mail Türü
Resim Yükleme
Üyelik Sistemi
Üye Olma
Yorum Yazma
Şifreniz	Düzenleme Yapmak İçin Gerekli
Yeni Şifreniz	Değiştirmek İstemiyorsanız Boş Bırakınız
Yeni Şifreniz Tekrar	Değiştirmek İstemiyorsanız Boş Bırakınız

<%case "genelisle" kon() baslik=request.form("baslik") url=request.form("url") anasayfa=request.form("anasayfa") email=request.form("email") resimtur=request.form("resimekleme") resimyukle=request.form("resimyukle") sayfala=request.form("sayfala") mailtur=request.form("mailkullanim") mailserver=request.form("mailserver") mail_gonderim_tur=request.form("mail_gonder_secim") yorumtur=request.form("yorumyazma") sistem=request.form("uyeliksistemi") uyelik=request.form("uyeolma") sifre=sifrele(request.form("sifre")) sifreyeni=request.form("sifreyeni") sifreyeni2=request.form("sifreyeni2") if baslik="" then hata = "

Site Başlığı Yazılmamış

" end if if mailserver = "" then hata = hata & "

Mail Serverı Yazılmamış

" end if if (left(mailserver, 7)) = "http://" then hata = hata & "

Mail Server Adresiniz http:// ile başlayamaz

" end if if (right(mailserver, 1)) = "/" then hata = hata & "

Mail Server Adresiniz / ile bitemez

" end if if url="" then hata = hata & "

Resim Dizin Yazılmamış

" end if if anasayfa="" then hata = hata & "

Ana Sayfa URL Yazılmamış

" end if if email="" then hata = hata & "

Yönetici Email Yazılmamış

" end if if sayfala="" then hata = hata & "

Sayfa Başına Resim Sayısı Yazılmamış

" end if if sifre="" then hata = hata & "

Düzenleme Yapmak İçin Gerekli Şifre Yazılmamış

" end if if sifreyeni <> "" then if sifreyeni2= "" then hata = hata & "

Yeni Şifre Tekrarı Yazılmamış

" end if if sifreyeni <> sifreyeni2 then hata = hata & "

Yazdığınız Yeni Şifreler Aynı Olmalıdır.

" end if end if if (left(url, 7)) <> "http://" then hata = hata & "

URL Adresiniz http:// ile başlamalı

" end if if (right(url, 1)) <> "/" then hata = hata & "

URL Adresiniz / ile bitmeli

" end if if sifre <> site("SIFRE") then hata = hata & "

Yazdığınız Şifre Yanlış

" end if if hata <> "" then%>

Hata Oluştu

<%=hata%>
Geri Dönün

<%else if sifreyeni <> "" then sifre = sifrele(sifreyeni) session("giris") = sifre end if site("SIFRE") = sifre site("SITEADI") = baslik site("SITEURL") = url site("ADMINEMAIL") = email site("RESIMEKLEME") = resimtur site("SAYFALA") = sayfala site("MAILKULLANIM") = mailtur site("YORUMLAR") = yorumtur site("ANASAYFA") = anasayfa site("RESIMYUKLE")= resimyukle site("UYELIK_SISTEMI")=sistem site("UYE_OLMA")=uyelik site("MAIL_SERVER")=mailserver site("MAIL_TUR")=mail_gonderim_tur site.update %>

Genel Ayarlar Başarılı Bir Şekilde Düzenlendi

<%=hata%>
Geri Dönün

<%end if %> <% case "resimduzenle" kon() %>

ANA MENU

Düzenlemek/Silmek İstediğiniz Resim Kategorisini Seçiniz

Geri Dönün

<% case "altkatbul" kon() %>

ANA MENU

Düzenlemek/Silmek İstediğiniz Resim Alt Kategorisini Seçiniz

Geri Dönün

<%case "resimbul" kon() set res = server.createobject("adodb.recordset") SQL = "Select * from RESIMLER WHERE ALT_KAT_ID = "&request.querystring("alt")&"" res.open SQL,baglanti,1,3 %>

ANA MENU

Düzenlemek/Silmek İstediğiniz Resmi Seçiniz

<%if res.eof then%> Bu Kategoride Resim Bulunamadı

Geri Dönün <%end if%> <%for t=1 to res.recordcount if res.eof then exit for %>

<%=res("RESIMADI")%> |">Resime Bak| ">Düzenle | ">Sil

<% res.movenext next res.close set res=nothing %>

<%case "resimd" kon() set res = server.createobject("adodb.recordset") SQL = "Select * from RESIMLER WHERE RESIMID = "&request.querystring("resim")&"" res.open SQL,baglanti,1,3 %>

ANA MENU
Resim Düzenleyin
Resim Başlık	" name=baslik size="20">
Resim Url	" name=resim size="20" >
Küçük Resim Url	" >
Kategori
Açıklama	<%=res("RESIMACIKLAMA")%>
Gönderen	">
Gönderen Email	">
Üyelere Özel	checked<%end if%> >
">

<% kat.close set kat=nothing kb.close set kb=nothing res.close set res=nothing case "resimisle" kon() %> <%baslik=request.form("baslik") resim=request.form("resim") kresim=request.form("kresim") kat=request.form("kategori") aciklama=request.form("aciklama") isim=request.form("isim") email=request.form("email") resimid=request.form("id") baslik=replace(baslik,"<","<") baslik=replace(baslik,">",">") resim=replace(resim,"<","<") resim=replace(resim,">",">") kresim=replace(kresim,"<","<") kresim=replace(kresim,">",">") kat=replace(kat,"<","<") kat=replace(kat,">",">") aciklama=replace(aciklama,"<","<") aciklama=replace(aciklama,">",">") isim=replace(isim,"<","<") isim=replace(isim,">",">") email=replace(email,"<","<") email=replace(email,">",">") if baslik = "" then hata = "

Resim İçin Başlık Girilmemiş

" end if if resim = "" or resim = "http://" then hata = hata & "

Resim Adresi Girilmemiş

" end if if kresim= "" or kresim = "http://" then hata = hata & "

Küçük Resim Adresi Girilmemiş

" end if if kat = "" then hata = hata & "

Kategori Seçimemiş

" end if if aciklama = "" then hata = hata & "

Resim Açıklaması Yazılmamış

" end if if isim = "" then hata = hata & "

İsminiz Girilmemiş

" end if if email = "" then hata = hata & "

Email Adresiniz Girilmemiş

" end if if hata <> "" then %> <%else Set resimgir = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from RESIMLER WHERE RESIMID = "&resimid&"" resimgir.Open sorgu,baglanti,1,3 if kat<>resimgir("ALT_KAT_ID") then Set altkat = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from ALTKATEGORILER WHERE ALT_KAT_ID ="&resimgir("ALT_KAT_ID")&"" altkat.Open sorgu,baglanti,1,3 altkat("RESIMSAYI")=altkat("RESIMSAYI")-1 altkat.update Set kat = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from KATEGORILER WHERE KAT_ID ="&altkat("KAT_ID")&"" kat.Open sorgu,baglanti,1,3 kat("RESIM_SAYISI")=kat("RESIM_SAYISI")-1 kat.update Set altkatis = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from ALTKATEGORILER WHERE ALT_KAT_ID ="&request.form("kategori")&"" altkatis.Open sorgu,baglanti,1,3 altkatis("RESIMSAYI")=altkatis("RESIMSAYI")+1 altkatis.update Set katis = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from KATEGORILER WHERE KAT_ID ="&altkatis("KAT_ID")&"" katis.Open sorgu,baglanti,1,3 katis("RESIM_SAYISI")=katis("RESIM_SAYISI")+1 katis.update resimgir("KAT_ID")=katis("KAT_ID") resimgir("ALT_KAT_ID")=altkatis("ALT_KAT_ID") end if altkatis.close set altkatis=nothing katis.close set katis=nothing resimgir("RESIMADI") = baslik resimgir("RESIMACIKLAMA") = aciklama resimgir("EKLEYENISIM") = isim resimgir("EKLEYENEMAIL") = email resimgir("RESIMURL") = resim resimgir("KUCUKRESIMURL") = kresim if request.form("ozel")="evet" then resimgir("UYELERE_OZEL")="evet" else resimgir("UYELERE_OZEL")="hayir" end if resimgir.update resimgir.close set resimgir=nothing %> <%end if%>

Resim Düzenleme

<%=hata%>
Geri Dönün

Resim Başarılı Bir Şekilde Düzenlendi.

">Geri Dönün

<%case "resimsil" kon() Set resimbul = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from RESIMLER WHERE RESIMID = "&request.querystring("resim")&"" resimbul.Open sorgu,baglanti,1,3 Set kat = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from KATEGORILER WHERE KAT_ID = "&resimbul("KAT_ID")&"" kat.Open sorgu,baglanti,1,3 kat("RESIM_SAYISI") = kat("RESIM_SAYISI") - 1 kat.update kat.close set kat=nothing Set altkat = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from ALTKATEGORILER WHERE ALT_KAT_ID = "&resimbul("ALT_KAT_ID")&"" altkat.Open sorgu,baglanti,1,3 altkat("RESIMSAYI") = altkat("RESIMSAYI") - 1 altkat.update altkat.close set altkat=nothing Set resimsil = Server.CreateObject("ADODB.Recordset") sorgu = "DELETE * from RESIMLER WHERE RESIMID = "&request.querystring("resim")&"" resimsil.Open sorgu,baglanti,1,3 response.redirect request.servervariables("HTTP_REFERER") %> <%case "onay" kon() Set res = Server.Createobject("ADODB.Recordset") sql = "select * from RESIMLER WHERE ONAY = 0" res.open sql, baglanti, 1, 3 %>

ANA MENU

Onay Bekleyen Resimler

<%if res.eof then%> Onay Bekleyen Resim Yok

Geri Dönün <%end if%> <%for t=1 to res.recordcount if res.eof then exit for %>

<%=res("RESIMADI")%> |">Resime Bak| ">Onayla | ">Sil<%if res("UYELERE_OZEL")="evet" then%> ( Üyelere Özel)<%end if%>

<% res.movenext next res.close set res=nothing %>

<%case "hatalilar" kon() Set res = Server.Createobject("ADODB.Recordset") sql = "select * from RESIMLER WHERE HATA = 'evet'" res.open sql, baglanti, 1, 3 %>

ANA MENU

Hata Bildirimi Alan Resimler

<%if res.eof then%> Hatalı Resim Yok

Geri Dönün <%end if%> <%for t=1 to res.recordcount if res.eof then exit for %>

<%=res("RESIMADI")%> |">Resimi Düzenle | ">Hatalı Değil | ">Sil <%if res("UYELERE_OZEL")="evet" then%> ( Üyelere Özel)<%end if%>

<% res.movenext next res.close set res=nothing %>

<%case "resimdh" kon() Set resimbul = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from RESIMLER WHERE RESIMID = "&request.querystring("resim")&"" resimbul.Open sorgu,baglanti,1,3 resimbul("HATA") = "hayir" resimbul.update resimbul.close set resimbul=nothing response.redirect request.servervariables("HTTP_REFERER") %> <%case "onayla" kon() Set resimbul = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from RESIMLER WHERE RESIMID = "&request.querystring("resim")&"" resimbul.Open sorgu,baglanti,1,3 resimbul("ONAY") = 1 resimbul.update Set kat = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from KATEGORILER WHERE KAT_ID = "&resimbul("KAT_ID")&"" kat.Open sorgu,baglanti,1,3 kat("RESIM_SAYISI") = kat("RESIM_SAYISI") + 1 kat.update kat.close set kat=nothing Set altkat = Server.CreateObject("ADODB.Recordset") sorgu = "SELECT * from ALTKATEGORILER WHERE ALT_KAT_ID = "&resimbul("ALT_KAT_ID")&"" altkat.Open sorgu,baglanti,1,3 altkat("RESIMSAYI") = altkat("RESIMSAYI") + 1 altkat.update altkat.close set altkat=nothing resimbul.close set resimbul=nothing response.redirect request.servervariables("HTTP_REFERER") %> <%case "kategoriduzenle" kon() %>

ANA MENU

Düzenlemek/Silmek İstediğiniz Kategoriyi Seçiniz

Geri Dönün

<%case "kategoriisle" kon()%> ">

ANA MENU

Kategori islem

<% set kat = server.createobject("adodb.recordset") SQL = "Select * from KATEGORILER WHERE KAT_ID = "&request.form("kat")&"" kat.open SQL,baglanti,1,3 if request.form("is")="evet" then kat("KAT_ADI") = request.form("katismi") kat.update end if %> " size=30>

<%if request.form("is")="evet" then%>Düzenlendi.. : <%=kat("KAT_ADI")%> <%end if%>

">Bu Kategoriyi Sil

Geri Dönün

<% kat.close set kat=nothing case "katesil" kon() k=request.querystring("kat") set silres = server.createobject("adodb.recordset") SQL = "DELETE * from RESIMLER WHERE KAT_ID = "&k&"" silres.open SQL,baglanti,1,3 set silaltkat = server.createobject("adodb.recordset") SQL = "DELETE * from ALTKATEGORILER WHERE KAT_ID = "&k&"" silaltkat.open SQL,baglanti,1,3 set silkat = server.createobject("adodb.recordset") SQL = "DELETE * from KATEGORILER WHERE KAT_ID = "&k&"" silkat.open SQL,baglanti,1,3 response.redirect "resimyonetim.asp" %> <%case "kategoriekle" kon() if request.form("katismi") <> "" then set eklekat = server.createobject("adodb.recordset") SQL = "SELECT * from KATEGORILER" eklekat.open SQL,baglanti,1,3 eklekat.addnew eklekat("KAT_ADI") = request.form("katismi") eklekat.update eklekat.close set eklekat=nothing response.redirect "resimyonetim.asp" end if %>

ANA MENU

Eklemek İstediğiniz Kategori

<%case "altkatduzenle" kon() %>

ANA MENU

Düzenlemek/Silmek İstediğiniz Alt Kategorinin Kategorisini Seçiniz

Geri Dönün

<%case "altkatbul2" kon() %>

ANA MENU

Düzenlemek/Silmek Alt Kategoriyi Seçiniz

Geri Dönün

<%case "altkatis"%> ">

ANA MENU

Alt Kategori islem

<% set altkat = server.createobject("adodb.recordset") SQL = "Select * from ALTKATEGORILER WHERE ALT_KAT_ID = "&request.form("altkat")&"" altkat.open SQL,baglanti,1,3 if request.form("is")="evet" then altkat("ALT_KATEGORI_ADI") = request.form("katismi") altkat.update end if %> " size=30>

<%if request.form("is")="evet" then%>Düzenlendi.. : <%=altkat("ALT_KATEGORI_ADI")%> <%end if%>

">Bu Alt Kategoriyi Sil

Geri Dönün

<% altkat.close set altkat=nothing case "altkatesil" kon() k=request.querystring("altkat") set silres = server.createobject("adodb.recordset") SQL = "DELETE * from RESIMLER WHERE KAT_ID = "&k&"" silres.open SQL,baglanti,1,3 set silaltkat = server.createobject("adodb.recordset") SQL = "DELETE * from ALTKATEGORILER WHERE ALT_KAT_ID = "&k&"" silaltkat.open SQL,baglanti,1,3 response.redirect "resimyonetim.asp" %> <%case "altkategoriekle" kon() if request.form("katismi") <> "" then set eklekat = server.createobject("adodb.recordset") SQL = "SELECT * from ALTKATEGORILER" eklekat.open SQL,baglanti,1,3 eklekat.addnew eklekat("ALT_KATEGORI_ADI") = request.form("katismi") eklekat("KAT_ID") = request.form("kat") eklekat.update eklekat.close set eklekat=nothing response.redirect "resimyonetim.asp" end if %>

ANA MENU

Eklemek İstediğiniz Alt Kategori

Kategori Seçiniz :

Alt Kategori İsmi:

<%case "kotusoz" set sgir = server.createobject("adodb.recordset") SQL = "Select * from KOTUSOZLER" sgir.open SQL,baglanti,1,3 if request.form("soz")<>"" then sgir("KOTUSOZ")=request.form("soz") sgir.update end if %>

ANA MENU

Aşağıdaki Kelimeleri Yorumlarda Kullanılmasına Engel Ol

Not : Yasak Kelimeleri Yıldız İle Ayırınız ; Aptal*Manyak*Salak Gibi.

<% sgir.close set sgir=nothing end select%>