Yönetim Bölümü
<%if session(dsession)<>"admin" then response.Redirect("yetkiyok.asp") end if%> <% If request("bolum") = "giris" then Call giris Elseif request("bolum") = "genel" then Call genel Elseif request("bolum") = "genelkaydet" then Call genelkaydet Elseif request("bolum") = "anket" then Call anket Elseif request("bolum") = "anketkaydet" then Call anketkaydet Elseif request("bolum") = "destek" then Call destek_b Elseif request("bolum") = "destekkaydet" then Call destekkaydet Elseif request("bolum") = "desteksil" then Call desteksil Elseif request("bolum") = "haber" then Call haber_b Elseif request("bolum") = "haberkaydet" then Call haberkaydet Elseif request("bolum") = "habersil" then Call habersil Elseif request("bolum") = "makale" then Call makale_b Elseif request("bolum") = "makalekaydet" then Call makalekaydet Elseif request("bolum") = "makalesil" then Call makalesil Elseif request("bolum") = "ilan" then Call ilan_b Elseif request("bolum") = "ilankaydet" then Call ilankaydet Elseif request("bolum") = "ilansil" then Call ilansil Elseif request("bolum") = "uyeler" then Call uyeler_b Elseif request("bolum") = "uyelerkaydet" then Call uyelerkaydet Elseif request("bolum") = "uyelersil" then Call uyelersil Elseif request("bolum") = "fotogaleri" then Call fotogaleri_b Elseif request("bolum") = "fotogalerikaydet" then Call fotogalerikaydet Elseif request("bolum") = "fotogalerisil" then Call fotogalerisil Elseif request("bolum") = "link" then Call link_b Elseif request("bolum") = "linkkaydet" then Call linkkaydet Elseif request("bolum") = "linksil" then Call linksil Elseif request("bolum") = "defter" then Call defter_b Elseif request("bolum") = "defterkaydet" then Call defterkaydet Elseif request("bolum") = "deftersil" then Call deftersil Elseif request("bolum") = "defteronay" then Call defteronay Elseif request("bolum") = "reklam" then Call reklam_b Elseif request("bolum") = "reklamkaydet" then Call reklamkaydet Elseif request("bolum") = "reklamsil" then Call reklamsil Elseif request("bolum") = "banner" then Call banner_b Elseif request("bolum") = "bannerkaydet" then Call bannerkaydet Elseif request("bolum") = "bannersil" then Call bannersil End If %> <%sub giris%>
Genel Ayarlar
Ziyaretçi Defteri
Haberler
Reklamlar
Makaleler
Destekleyenler
İlanlar
Anket
Fotoğraf Galerisi
Üyeler
Linkler
Banner
<%end sub%> <%sub genel%>
Yönetim Anasayfa
Genel Ayarlar
<%sql="select * from Ayar where id=1" Rs.Open sql, kon, 1, 3 %>
Site Başlığı " size="20"/>
Site Adresi " size="20"/>
Yönetici Emaili " size="20"/>
Fotoğraf Galerisini Kullan checked="checked"<%end if%>/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Galeri En x Boy "/> x "/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Linkler bölümünü kullan checked="checked"<%end if%>/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Kişisel Bilgi checked="checked"<%end if%>/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Ziyaretçi defteri bölümünü kullan checked="checked"<%end if%>/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Destekleyener bölümünü kullan checked="checked"<%end if%>/>
Sadece üyeler görsün checked="checked"<%end if%>/>
Tavsiye bölümü emaili
Hakkında bölümü fotograf " size="20"/>
Hakkında bölümü metni
Session Değişkeni " size="20"/>
 
<% Rs.close%> <%end sub%> <%sub genelkaydet sqlayar="select * from Ayar" Rs.Open sqlayar, kon, 1, 3 rs("baslik")=request.Form("baslik") rs("adres")=request.Form("adres") rs("mail")=request.Form("email") if request.Form("galeri")="1" then rs("foto")=True else rs("foto")=false end if if request.Form("galeriu")="1" then rs("foto_u")=True else rs("foto_u")=false end if rs("galerien")=request.Form("galerien") rs("galeriboy")=request.Form("galeriboy") if request.Form("link")="1" then rs("link")=True else rs("link")=False end if if request.Form("linku")="1" then rs("link_u")=True else rs("link_u")=False end if if request.Form("kim")="1" then rs("kim")=True else rs("kim")=False end if if request.Form("kimu")="1" then rs("kim_u")=True else rs("kim_u")=False end if if request.Form("defter")="1" then rs("zdefter")=True else rs("zdefter")=False end if if request.Form("deftaru")="1" then rs("zdefter_u")=True else rs("zdefter_u")=False end if if request.Form("destek")="1" then rs("destek")=True else rs("destek")=False end if if request.Form("desteku")="1" then rs("destek_u")=True else rs("destek_u")=False end if if request.Form("dosya")="1" then rs("dosya")=True else rs("dosya")=False end if if request.Form("dosyau")="1" then rs("dosya_u")=True else rs("dosya_u")=False end if if request.Form("sayacgoster")="1" then rs("sayacgoster")=True else rs("sayacgoster")=False end if rs("sayac")=request.Form("sayac") rs("tavsiye_aciklamasi")=request.Form("tavsiye") rs("hakkindafoto")=request.Form("hakkindafoto") rs("hakkindaaciklama")=request.Form("hakkindametin") rs("session")=request.Form("session") rs.update response.Redirect("?bolum=giris") Rs.close %> <%end sub%> <%sub anket%>
<%sql="select * from Anket" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %>
Anket Sorusu: " size="30"/>
Secenek 1 " size="30"/>
Hit 1 " size="5"/>
Secenek 2 " size="30"/>
Hit 2 " size="5"/>
Secenek 3 " size="30"/>
Hit 3 " size="5"/>
Secenek 4 " size="30"/>
Hit 4 " size="5"/>
Secenek 5 " size="30"/>
Hit 5 " size="5"/>
 
<% End If Rs.close %> <%end sub%> <%sub anketkaydet sql="select * from Anket" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else rs("soru")=request.Form("soru") rs("sec1")=request.Form("sec1") if request.Form("hit1")="" then rs("hit1")=0 else rs("hit1")=request.Form("hit1") end if rs("sec2")=request.Form("sec2") if request.Form("hit2")="" then rs("hit2")=0 else rs("hit2")=request.Form("hit2") end if rs("sec3")=request.Form("sec3") if request.Form("hit3")="" then rs("hit3")=0 else rs("hit3")=request.Form("hit3") end if rs("sec4")=request.Form("sec4") if request.Form("hit4")="" then rs("hit4")=0 else rs("hit4")=request.Form("hit4") end if rs("sec5")=request.Form("sec5") if request.Form("hit5")="" then rs("hit5")=0 else rs("hit5")=request.Form("hit5") end if Rs.Update response.Redirect("?bolum=giris") End If Rs.close %> <%end sub%> <%sub destek_b id=request.QueryString("id")%>
Destek Bölümü
<% sql="select * from Destek order by id Desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof %> <% RS.MoveNext loop %> <% End If Rs.close %>
&link=<%=rs("link")%>&id=<%=rs("id")%>" class="style5"><%=rs("adi")%> " class="style5" onclick="return silonay();" >Sil
Adı " size="30"/>
Link " size="30"/>
 
<%end sub%> <%sub destekkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "destek", kon, 1 , 3 rs.AddNew rs("adi") = request.Form("ad") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=destek") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=destek") end if dessql="select * from destek where id="&id rs.Open dessql, kon, 1 , 3 rs("adi") = request.Form("ad") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=destek") Rs.close End If %> <%end sub%> <%sub desteksil id=request.QueryString("id") dessql="delete from Destek where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=destek") rs.close end sub%> <%sub haber_b id=request.QueryString("id")%>
Haber Bölümü
<% sql="select * from Haber order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dbaslik=rs("baslik") dmetin=rs("metin") dyazan=rs("yazan") dtarih=rs("tarih") dresim=rs("resim") end if%> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("baslik"),30)%>... " class="style5" onclick="return silonay();" >Sil
Başlık
Yazı
Resim
Yazan
Tarih
 
<%end sub%> <%sub haberkaydet id=request.QueryString("id") ekle=request.Form("ekle2") guncel=request.Form("guncel2") if ekle<>"" then rs.Open "haber", kon, 1 , 3 rs.AddNew rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin") rs("resim") = request.Form("resim") rs("yazan") = request.Form("yazan") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=haber") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=haber") end if dessql="select * from Haber where id="&id rs.Open dessql, kon, 1 , 3 rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin") rs("resim") = request.Form("resim") rs("yazan") = request.Form("yazan") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=haber") Rs.close End If %> <%end sub%> <%sub habersil id=request.QueryString("id") dessql="delete from Haber where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=haber") rs.close end sub%> <%sub makale_b id=request.QueryString("id")%>
Makale Bölümü
<% sql="select * from Makale order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dbaslik=rs("baslik") dmetin=rs("metin") dyazan=rs("yazan") dtarih=rs("tarih") end if %> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("baslik"),30)%>... " class="style5" onclick="return silonay();" >Sil
Başlık
Yazı
Yazan
Tarih
 
<%end sub%> <%sub makalekaydet id=request.QueryString("id") ekle=request.Form("ekle3") guncel=request.Form("guncel3") if ekle<>"" then rs.Open "makale", kon, 1 , 3 rs.AddNew rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin2") rs("yazan") = request.Form("yazan") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=makale") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=makale") end if dessql="select * from makale where id="&id rs.Open dessql, kon, 1 , 3 rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin2") rs("yazan") = request.Form("yazan") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=makale") Rs.close End If %> <%end sub%> <%sub makalesil id=request.QueryString("id") dessql="delete from Makale where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=makale") rs.close end sub%> <%sub ilan_b id=request.QueryString("id")%>
İlan Bölümü
<% sql="select * from Ilan order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dbaslik=rs("baslik") dilan=rs("ilan") end if %> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("baslik"),30)%>... " class="style5" onclick="return silonay();" >Sil
Başlık
İlan
 
<%end sub%> <%sub ilankaydet id=request.QueryString("id") ekle=request.Form("ekle4") guncel=request.Form("guncel4") if ekle<>"" then rs.Open "Ilan", kon, 1 , 3 rs.AddNew rs("baslik") = request.Form("baslik") rs("ilan") = request.Form("ilan") rs.Update response.Redirect("?bolum=ilan") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=ilan") end if dessql="select * from Ilan where id="&id rs.Open dessql, kon, 1 , 3 rs("baslik") = request.Form("baslik") rs("ilan") = request.Form("ilan") rs.Update response.Redirect("?bolum=ilan") Rs.close End If %> <%end sub%> <%sub ilansil id=request.QueryString("id") dessql="delete from Ilan where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=ilan") rs.close end sub%> <%sub uyeler_b id=request.QueryString("id") sayfala=30 sayfa=cint(request.QueryString("sayfa")) %>
Üyeler Bölümü
<% sql="select * from Uyeler order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else git = Int((sayfa * sayfala)+ 0) rs.Move(git)%> <% End If Rs.close %>
<% for i=1 to sayfala if not RS.eof then if cint(id)=rs("id") then duyeadi=rs("uyeadi") dsifre=rs("sifre") dadi=rs("adi") dmail=rs("mail") dcinsiyet=rs("cinsiyet") end if%> <% RS.MoveNext end if next sayfasayisi=(rs.RecordCount-1)\sayfala %>
<%=rs.RecordCount-(int(sayfa*sayfala)+i-1)%> " class="style5"><%=left(rs("uyeadi"),30)%>... " class="style5" onclick="return silonay();" >Sil
Sayfalar:  <%for a=0 to sayfasayisi%> [ <%if sayfa<>a then%> <%=a+1%> <%else%> <%=a+1%> <%end if%> ] <%next%>
Üye Adı
Şifre
Adı Soyadı
Mail
Cinsiyet
 
<%end sub%> <%sub uyelerkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "uyeler", kon, 1 , 3 rs.AddNew rs("uyeadi") = request.Form("uyeadi") rs("sifre") = request.Form("sifre") rs("adi") = request.Form("adi") rs("mail") = request.Form("email") rs("cinsiyet") = request.Form("cinsiyet") rs.Update response.Redirect("?bolum=uyeler") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=uyeler") end if dessql="select * from Uyeler where id="&id rs.Open dessql, kon, 1 , 3 rs("uyeadi") = request.Form("uyeadi") rs("sifre") = request.Form("sifre") rs("adi") = request.Form("adi") rs("mail") = request.Form("email") rs("cinsiyet") = request.Form("cinsiyet") rs.Update response.Redirect("?bolum=uyeler") Rs.close End If %> <%end sub%> <%sub uyelersil id=request.QueryString("id") dessql="delete from uyeler where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=uyeler") rs.close end sub%> <%sub fotogaleri_b id=request.QueryString("id")%>
Fotoğraf Galerisi Bölümü
<% sql="select * from Galeri order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dadi=rs("adi") dkucuk=rs("kucuk") dbuyuk=rs("buyuk") end if%> <% RS.MoveNext loop %> <% End If Rs.close%>
" class="style5"><%=left(rs("adi"),30)%>... " target="_blank"> " class="style5" onclick="return silonay();" >Sil
Resim Adı
Küçük Boyut Yol
Büyük Boyut Yol
 
<%end sub%> <%sub fotogalerikaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "Galeri", kon, 1 , 3 rs.AddNew rs("adi") = request.Form("adi") rs("kucuk") = request.Form("kucuk") rs("buyuk") = request.Form("buyuk") rs.Update response.Redirect("?bolum=fotogaleri") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=fotogaleri") end if dessql="select * from Galeri where id="&id rs.Open dessql, kon, 1 , 3 rs("adi") = request.Form("adi") rs("kucuk") = request.Form("kucuk") rs("buyuk") = request.Form("buyuk") rs.Update response.Redirect("?bolum=fotogaleri") Rs.close End If %> <%end sub%> <%sub fotogalerisil id=request.QueryString("id") dessql="delete from Galeri where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=fotogaleri") rs.close end sub%> <%sub link_b id=request.QueryString("id")%>
Linkler Bölümü
<% sql="select * from Link order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dadi=rs("adi") daciklama=rs("aciklama") dlink=rs("link") end if%> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("adi"),30)%>... " class="style5" onclick="return silonay();" >Sil
Link Adı
Açıklama
Link
 
<%end sub%> <%sub linkkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "link", kon, 1 , 3 rs.AddNew rs("adi") = request.Form("adi") rs("aciklama") = request.Form("aciklama") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=link") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=link") end if dessql="select * from link where id="&id rs.Open dessql, kon, 1 , 3 rs("adi") = request.Form("adi") rs("aciklama") = request.Form("aciklama") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=link") Rs.close End If %> <%end sub%> <%sub linksil id=request.QueryString("id") dessql="delete from Link where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=link") rs.close end sub%> <%sub defter_b id=request.QueryString("id")%>
Ziyaretçi Defteri Bölümü
<% sql="select * from Ziyaretci_Defteri order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dadi=rs("adi") dmetin=rs("metin") dbaslik=rs("baslik") dtarih=rs("tarih") dmail=rs("mail") end if%> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("baslik"),30)%>... ">onaysiz<%else%>onayli<%end if%>.gif" alt="Onay" width="13" height="14" border="0" /> " class="style5" onclick="return silonay();" >Sil
Başlık
Yazı
Adı Soyadı
Email
Tarih
 
<%end sub%> <%sub defterkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "Ziyaretci_Defteri", kon, 1 , 3 rs.AddNew rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin") rs("adi") = request.Form("adi") rs("mail") = request.Form("mail") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=defter") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=defter") end if dessql="select * from Ziyaretci_Defteri where id="&id rs.Open dessql, kon, 1 , 3 rs("baslik") = request.Form("baslik") rs("metin") = request.Form("metin") rs("adi") = request.Form("adi") rs("mail") = request.Form("mail") rs("tarih") = request.Form("tarih") rs.Update response.Redirect("?bolum=defter") Rs.close End If %> <%end sub%> <%sub defteronay dim donay id=request.QueryString("id") rs.Open "select * from Ziyaretci_Defteri where id="&id, kon, 1 , 3 if rs("onay")=false then donay=true end if if rs("onay")=true then donay=false end if rs("onay")=donay rs.Update response.Redirect("?bolum=defter") Rs.close end sub%> <%sub deftersil id=request.QueryString("id") dessql="delete from Ziyaretci_Defteri where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=defter") rs.close end sub%> <%sub reklam_b id=request.QueryString("id")%>
Reklam Bölümü
<% sql="select * from Reklam order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dresim=rs("resim") dlink=rs("link") end if %> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("link"),30)%>... " class="style5" onclick="return silonay();" >Sil
Resim
Link
 
<%end sub%> <%sub reklamkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "reklam", kon, 1 , 3 rs.AddNew rs("resim") = request.Form("resim") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=reklam") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=reklam") end if dessql="select * from reklam where id="&id rs.Open dessql, kon, 1 , 3 rs("resim") = request.Form("resim") rs("link") = request.Form("link") rs.Update response.Redirect("?bolum=reklam") Rs.close End If %> <%end sub%> <%sub reklamsil id=request.QueryString("id") dessql="delete from Reklam where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=reklam") rs.close end sub%> <%sub banner_b id=request.QueryString("id")%>
Banner Bölümü
<% sql="select * from Banner order by id desc" Rs.Open sql, kon, 1, 3 If RS.BOF And RS.EOF Then else %> <% do while not RS.eof if cint(id)=rs("id") then dyol=rs("yol") end if %> <% RS.MoveNext loop %> <% End If Rs.close %>
" class="style5"><%=left(rs("yol"),30)%>... " class="style5" onclick="return silonay();" >Sil
Resim
 
<%end sub%> <%sub bannerkaydet id=request.QueryString("id") ekle=request.Form("ekle") guncel=request.Form("guncel") if ekle<>"" then rs.Open "banner", kon, 1 , 3 rs.AddNew rs("yol") = request.Form("yol") rs.Update response.Redirect("?bolum=banner") Rs.close End If if guncel <>"" then if id="" then response.Redirect("?bolum=banner") end if dessql="select * from banner where id="&id rs.Open dessql, kon, 1 , 3 rs("yol") = request.Form("yol") rs.Update response.Redirect("?bolum=banner") Rs.close End If %> <%end sub%> <%sub bannersil id=request.QueryString("id") dessql="delete from banner where id="&id rs.Open dessql, kon, 1 , 3 response.Redirect("?bolum=banner") rs.close end sub%>