implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: admin kodları Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
şilan0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06-Haziran-2012
Ülke: Turkiye
Gönderilenler: 12
Gönderen: 08-Haziran-2012 Saat 08:46 | Kayıtlı IP Alıntı şilan0101

menüde admin kodları nasıl oluşturulur yardımcı olursanız sevinirim
Yukarı Dön Göster şilan0101's Özellikler Diğer Mesajlarını Ara: şilan0101
 
ismail0202
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 37
Gönderen: 08-Haziran-2012 Saat 09:38 | Kayıtlı IP Alıntı ismail0202

<%
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
'<> Menü Yönetimi v2.1
'<> Burak ŞİMŞEK (Burajan)
'<> http://www.buraksimsek.com.tr
'<> UzmanWeb.Net | Bilgisayar - İnternet - Web
'<> http://www.uzmanweb.net
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
%>
<!-- #include file=menu_ayar.asp -->
<!-- #include file=menu_md5.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Language" content="tr">
<link rel="stylesheet" type="text/css" href="images/style.css">
<title>Menü Yönetimi</title>
</head>
<body>
<% islem=Request.QueryString("islem") %>
<% If Session("MenuYonetimi")<>"" then %>
<fieldset><div>
<a href="menu_admin.asp?islem=ustmenu">ÜST MENÜ İŞLEMLERİ</a> -
<a href="menu_admin.asp?islem=yanmenu">YAN MENÜ İŞLEMLERİ</a> -
<a href="menu_admin.asp?islem=parola">PAROLA GÜNCELLE</a> -
<a href="menu_admin.asp?islem=cikis">GÜVENLİ ÇIKIŞ</a>
</div></fieldset>
<% end if %>
<% if islem="" then %>
<fieldset><legend>Menü Yönetimi</legend>
<div><form method="POST" action="menu_admin.asp?islem=girisyap">
Menü yönetimine erişmek için parolanızı yazınız.<br>
<input type="password" name="PAROLA" size="25"> <input type="submit" value="Giriş Yap" name="Giriş Yap">
</form></div>
</fieldset>
<% end if %>

<% if islem="girisyap" then %>
<fieldset><legend>Menü Yönetimi</legend>
<%
Set yoneticigiris=Server.CreateObject("Adodb.Recordset")
Sorgu="select * from AYAR where PAROLA = '" & MD5(trim(Temizle(Request.form("PAROLA")))) & "'"
yoneticigiris.Open Sorgu, Baglanti, 1, 3
If yoneticigiris.BOF And yoneticigiris.EOF Then
%>
Lütfen Parolanızı Doğru Giriniz.<br><div><a href='JavaScript:history.go(-1)'>Geri Dön</a></div>
<%
Else
Session("MenuYonetimi") = "true"
yoneticigiris.Update
Response.Cookies("MenuYonetimi")("PAROLA")=MD5(trim(Temizle( Request.Form("PAROLA"))))
Response.Cookies("MenuYonetimi").Expires=Now()+15
Response.Redirect "menu_admin.asp?islem=ustmenu"
End If
yoneticigiris.close
set yoneticigiris=nothing
%>
</fieldset>
<% end if %>

<% if islem="cikis" then %>

<%
Session("MenuYonetimi")=""
Response.Cookies("MenuYonetimi")("PAROLA")=""
Response.Redirect "menu_admin.asp"
%>

<% end if %>

<% if islem="ustmenu" then %>
<% If Session("MenuYonetimi")<>"" then %>
<fieldset><legend>Menü Listesi</legend>
<table>
 <tr>
  <td width="10%"><b>Menü</b></td>
  <td width="35%"><b>Menü Adı/Adresi</b></td>
  <td width="35%"><b>Menü Açıklaması</b></td>
  <td width="10%"><b>Açma Şekli</b></td>
  <td width="5%"><b>Sıra</b></td>
  <td width="5%"><b>İşlem</b></td>
 </tr>
<%
Set menulistesi = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 ORDER BY ID ASC"
menulistesi.Open Sorgu,Baglanti,1,3
mesajadet = menulistesi.recordcount
sayfasayisi = 10
If menulistesi.eof then
%>
 <tr>
  <td width="100%" colspan="6" align="center">Kayıtlı Üst Menü Bulunamadı</td>
 </tr>
<%
Else
if request("s")<>"" then
sayfa = cdbl(request("s"))
menulistesi.move sayfa*sayfasayisi
else
sayfa = 0
end if
for t=1 to sayfasayisi
if menulistesi.eof then exit for

Set ustmenu = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ID=" & menulistesi("ALT")
ustmenu.Open Sorgu,Baglanti,1,3
If ustmenu.eof then
USTALT=0
USTAD="Ana Menü"
Else
USTALT=ustmenu("ID")
USTAD=ustmenu("AD")
End If
ustmenu.Close
Set ustmenu=Nothing
%>
 <tr>
  <td width="10%"><%=USTAD%></td>
  <td width="35%"><%=menulistesi("AD")%><br><%=m enulistesi("URL")%></td>
  <td width="35%"><%=menulistesi("TITLE")%></td>
  <td width="10%"><%=menulistesi("HEDEF")%></td>
  <td width="5%" align="center"><%=menulistesi("SIRA")%></td>
  <td width="5%" align="center"><a href="menu_admin.asp?islem=duzenle&id=<%=menulistesi( "ID")%>"><img src="images/duzenle.gif" border="0" title="Menüyü Düzenle"></a>
  <a href="menu_admin.asp?islem=sil&id=<%=menulistesi("ID" )%>" onclick="return confirm('Silmek İstediğinize Emin misiniz?')"><img src="images/sil.gif" border="0" title="Menüyü Sil"></a></td>
 </tr>
<%
menulistesi.movenext
next
%> <tr>
  <td width="100%" colspan="6" align="right">Sayfa : <%
if mesajadet/sayfasayisi = int(mesajadet/sayfasayisi) then sayfaadet = mesajadet/sayfasayisi else sayfaadet = int(mesajadet/sayfasayisi) +1
for p=0 to sayfaadet-1
if sayfa = p then %><%=p+1%> <% else %> <a href="menu_admin.asp?islem=ustmenu&s=<%=p%>">&l t;%=p+1%></a>
<%
end if
next
%></td>
 </tr>
<%
End if
menulistesi.Close
Set menulistesi=Nothing
%>
</table>
</fieldset>

<fieldset><legend>Yeni Üst Menü Ekle</legend>
<div class="uyari">Aşağıdaki form bilgilerini doğru bir şekilde doldurunuz.</div>
<table>
<form method="POST" action="menu_admin.asp?islem=kaydet">
<input type="hidden" name="CESIT" class="input" value="1">
 <tr>
  <td width="33%">Ana Menü:<br><select size="1" name="ALT">
  <option value="0" selected>Ana Menü</option>
  <%
  Set ustmenulistesi = Server.CreateObject("ADODB.Recordset")
  Sorgu = "SELECT * FROM MENU where CESIT=1 AND ALT=0 order by SIRA asc"
  ustmenulistesi.Open Sorgu, Baglanti, 1, 3
  If ustmenulistesi.Recordcount = 0 Then
  else
  Do While Not ustmenulistesi.EOF
  %>
  <option value="<%= ustmenulistesi("ID") %>"> - <%= ustmenulistesi("AD") %></option>
  <%
  ustmenulistesi.MoveNext
  Loop
  end if
  ustmenulistesi.close
  set ustmenulistesi=nothing
  %>
  </select></td>
  <td width="34%">Menü Adı:<br><input type="text" name="AD" class="input"></td>
  <td width="33%">Menü Adresi:<br><input type="text" name="URL" class="input"></td>
 </tr>
 <tr>
  <td width="33%">Menü Açıklaması:<br><input type="text" name="TITLE" class="input"></td>
  <td width="34%">Açılma Şekli:<br><select size="1" name="HEDEF">
  <option value="_self" selected> - Aynı Çerçeve (_self)</option>
  <option value="_top"> - Tüm Sayfa (_top)</option>
  <option value="_blank"> - Yeni Pencere (_blank)</option>
  <option value="_parent"> - Üst Çerçeve (_parent)</option>
  </select></td>
  <td width="33%">Sırası:<br><select size="1" name="SIRA">
  <%
  for s =0 to mesajadet
  gun = gun+1
  %>
  <option value="<%=gun%>"><%=gun%></option>
  <% next %>
  </select>
  </td>
 </tr>
 <tr>
  <td width="100%" colspan="3" align="center"><input type="submit" value="Üst Menüyü Ekle" name="submit" class="button"></td>
 </tr>
</form>
</table>
</fieldset>

<fieldset><legend>Menü Ayarları</legend>
<div class="uyari">Aşağıdan menü stilinizi değiştirebilirsiniz.</div>
<%
Set ayarlarduzenle = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from AYAR where ID=1"
ayarlarduzenle.Open Sorgu,Baglanti,1,3
%>
<table>
<form method="POST" action="menu_admin.asp?islem=ustguncelle">
 <tr>
  <td width="35%">Menü Stili:<br><select size="5" name="STIL" onChange="(avatar.src = STIL.options[STIL.selectedIndex].value)">
  <option value="images/stil1.png"<% if ayarlarduzenle("STIL")=1 then%> selected<% end if%>> - Stil 1</option>
  <option value="images/stil2.png"<% if ayarlarduzenle("STIL")=2 then%> selected<% end if%>> - Stil 2</option>
  <option value="images/stil3.png"<% if ayarlarduzenle("STIL")=3 then%> selected<% end if%>> - Stil 3</option>
  <option value="images/stil4.png"<% if ayarlarduzenle("STIL")=4 then%> selected<% end if%>> - Stil 4</option>
  <option value="images/stil5.png"<% if ayarlarduzenle("STIL")=5 then%> selected<% end if%>> - Stil 5</option>
  <option value="images/stil6.png"<% if ayarlarduzenle("STIL")=6 then%> selected<% end if%>> - Stil 6</option>
  <option value="images/stil7.png"<% if ayarlarduzenle("STIL")=7 then%> selected<% end if%>> - Stil 7</option>
  <option value="images/stil8.png"<% if ayarlarduzenle("STIL")=8 then%> selected<% end if%>> - Stil 8</option>
  <option value="images/stil9.png"<% if ayarlarduzenle("STIL")=9 then%> selected<% end if%>> - Stil 9</option>
  <option value="images/stil10.png"<% if ayarlarduzenle("STIL")=10 then%> selected<% end if%>> - Stil 10</option>
  </select></td>
  <td width="65%" rowspan="2"><img src="images/stil<%=ayarlarduzenle("STIL")%>.png" name="avatar"></td>
 </tr>
 <tr>
  <td width="35%" align="center"><input type="submit" value="Güncelle" name="submit" class="button"></td>
 </tr>
</form>
</table>
<%
ayarlarduzenle.Close
Set ayarlarduzenle=Nothing
%>
</fieldset>
<%
Else
Response.Redirect "menu_admin.asp"
End If
%>
<% end if %>

<% if islem="yanmenu" then %>
<% If Session("MenuYonetimi")<>"" then %>
<fieldset><legend>Menü Listesi</legend>
<table>
 <tr>
  <td width="10%"><b>Menü</b></td>
  <td width="35%"><b>Menü Adı/Adresi</b></td>
  <td width="35%"><b>Menü Açıklaması</b></td>
  <td width="10%"><b>Açma Şekli</b></td>
  <td width="5%"><b>Sıra</b></td>
  <td width="5%"><b>İşlem</b></td>
 </tr>
<%
Set menulistesi = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=2 ORDER BY ID ASC"
menulistesi.Open Sorgu,Baglanti,1,3
mesajadet = menulistesi.recordcount
sayfasayisi = 10
If menulistesi.eof then
%>
 <tr>
  <td width="100%" colspan="6" align="center">Kayıtlı Yan Menü Bulunamadı</td>
 </tr>
<%
Else
if request("s")<>"" then
sayfa = cdbl(request("s"))
menulistesi.move sayfa*sayfasayisi
else
sayfa = 0
end if
for t=1 to sayfasayisi
if menulistesi.eof then exit for

Set ustmenu = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=2 AND ID=" & menulistesi("ALT")
ustmenu.Open Sorgu,Baglanti,1,3
If ustmenu.eof then
USTALT=0
USTAD="Ana Menü"
Else
USTALT=ustmenu("ID")
USTAD=ustmenu("AD")
End If
ustmenu.Close
Set ustmenu=Nothing
%>
 <tr>
  <td width="10%"><%=USTAD%></td>
  <td width="35%"><%=menulistesi("AD")%><br><%=m enulistesi("URL")%></td>
  <td width="35%"><%=menulistesi("TITLE")%></td>
  <td width="10%"><%=menulistesi("HEDEF")%></td>
  <td width="5%" align="center"><%=menulistesi("SIRA")%></td>
  <td width="5%" align="center"><a href="menu_admin.asp?islem=duzenle&id=<%=menulistesi( "ID")%>"><img src="images/duzenle.gif" border="0" title="Menüyü Düzenle"></a>
  <a href="menu_admin.asp?islem=sil&id=<%=menulistesi("ID" )%>" onclick="return confirm('Silmek İstediğinize Emin misiniz?')"><img src="images/sil.gif" border="0" title="Menüyü Sil"></a></td>
 </tr>
<%
menulistesi.movenext
next
%> <tr>
  <td width="100%" colspan="6" align="right">Sayfa : <%
if mesajadet/sayfasayisi = int(mesajadet/sayfasayisi) then sayfaadet = mesajadet/sayfasayisi else sayfaadet = int(mesajadet/sayfasayisi) +1
for p=0 to sayfaadet-1
if sayfa = p then %><%=p+1%> <% else %> <a href="menu_admin.asp?islem=yanmenu&s=<%=p%>">&l t;%=p+1%></a>
<%
end if
next
%></td>
 </tr>
<%
End if
menulistesi.Close
Set menulistesi=Nothing
%>
</table>
</fieldset>

<fieldset><legend>Yeni Yan Menü Ekle</legend>
<div class="uyari">Aşağıdaki form bilgilerini doğru bir şekilde doldurunuz.</div>
<table>
<form method="POST" action="menu_admin.asp?islem=kaydet">
<input type="hidden" name="CESIT" class="input" value="2">
 <tr>
  <td width="33%">Ana Menü:<br><select size="1" name="ALT">
  <option value="0" selected>Ana Menü</option>
  <%
  Set ustmenulistesi = Server.CreateObject("ADODB.Recordset")
  Sorgu = "SELECT * FROM MENU where CESIT=2 AND ALT=0 order by SIRA asc"
  ustmenulistesi.Open Sorgu, Baglanti, 1, 3
  If ustmenulistesi.Recordcount = 0 Then
  else
  Do While Not ustmenulistesi.EOF
  %>
  <option value="<%= ustmenulistesi("ID") %>"> - <%= ustmenulistesi("AD") %></option>
  <%
  ustmenulistesi.MoveNext
  Loop
  end if
  ustmenulistesi.close
  set ustmenulistesi=nothing
  %>
  </select></td>
  <td width="34%">Menü Adı:<br><input type="text" name="AD" class="input"></td>
  <td width="33%">Menü Adresi:<br><input type="text" name="URL" class="input"></td>
 </tr>
 <tr>
  <td width="33%">Menü Açıklaması:<br><input type="text" name="TITLE" class="input"></td>
  <td width="34%">Açılma Şekli:<br><select size="1" name="HEDEF">
  <option value="_self" selected> - Aynı Çerçeve (_self)</option>
  <option value="_top"> - Tüm Sayfa (_top)</option>
  <option value="_blank"> - Yeni Pencere (_blank)</option>
  <option value="_parent"> - Üst Çerçeve (_parent)</option>
  </select></td>
  <td width="33%">Sırası:<br><select size="1" name="SIRA">
  <%
  for s =0 to mesajadet
  gun = gun+1
  %>
  <option value="<%=gun%>"><%=gun%></option>
  <% next %>
  </select>
  </td>
 </tr>
 <tr>
  <td width="100%" colspan="3" align="center"><input type="submit" value="Yan Menüyü Ekle" name="submit" class="button"></td>
 </tr>
</form>
</table>
</fieldset>

<fieldset><legend>Menü Ayarları</legend>
<div class="uyari">Aşağıdan menü stilinizi değiştirebilirsiniz.</div>
<%
Set ayarlarduzenle = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from AYAR where ID=1"
ayarlarduzenle.Open Sorgu,Baglanti,1,3
%>
<table>
<form method="POST" action="menu_admin.asp?islem=yanguncelle">
 <tr>
  <td width="35%">Menü Stili:<br><select size="5" name="YANSTIL" onChange="(avatar.src = YANSTIL.options[YANSTIL.selectedIndex].value)">
  <option value="images/stil11.png"<% if ayarlarduzenle("YANSTIL")=1 then%> selected<% end if%>> - Stil 1</option>
  <option value="images/stil12.png"<% if ayarlarduzenle("YANSTIL")=2 then%> selected<% end if%>> - Stil 2</option>
  <option value="images/stil13.png"<% if ayarlarduzenle("YANSTIL")=3 then%> selected<% end if%>> - Stil 3</option>
  <option value="images/stil14.png"<% if ayarlarduzenle("YANSTIL")=4 then%> selected<% end if%>> - Stil 4</option>
  </select></td>
  <td width="65%" rowspan="2"><img src="images/stil1<%=ayarlarduzenle("YANSTIL")%>.png" name="avatar"></td>
 </tr>
 <tr>
  <td width="35%" align="center"><input type="submit" value="Güncelle" name="submit" class="button"></td>
 </tr>
</form>
</table>
<%
ayarlarduzenle.Close
Set ayarlarduzenle=Nothing
%>
</fieldset>
<%
Else
Response.Redirect "menu_admin.asp"
End If
%>
<% end if %>

<% if islem="parola" then %>
<% If Session("MenuYonetimi")<>"" then %>
<fieldset><legend>Parola Ayarı</legend>
<div class="uyari">Aşağıdan parolanızı değiştirebilirsiniz. Parolanızı değiştirmek istemiyorsanız boş bırakınız.</div>
<%
Set ayarlarduzenle = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from AYAR where ID=1"
ayarlarduzenle.Open Sorgu,Baglanti,1,3
%>
<table>
<form method="POST" action="menu_admin.asp?islem=parolaguncelle">
 <tr>
  <td width="100%" align="center">Yeni Parolanız: <input type="password" name="PAROLA" class="input">
  <input type="submit" value="Güncelle" name="submit" class="button"></td>
 </tr>
</form>
</table>
<%
ayarlarduzenle.Close
Set ayarlarduzenle=Nothing
%>
</fieldset>
<%
Else
Response.Redirect "menu_admin.asp"
End If
%>
<% end if %>

<% if islem="duzenle" then %>
<% If Session("MenuYonetimi")<>"" then %>
<fieldset><legend>Menü Bilgilerini Düzenle</legend>
<div class="uyari">Aşağıdaki form bilgilerini doğru bir şekilde doldurunuz.</div>
<%
Set menuduzenle = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from MENU where ID=" & Request.QueryString("ID")
menuduzenle.Open Sorgu,Baglanti,1,3

Set menuadet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=" & menuduzenle("CESIT")
menuadet.Open Sorgu,Baglanti,1,3
mesajadet = menuadet.recordcount
menuadet.close
set menuadet=nothing
%>
<table>
<form method="POST" action="menu_admin.asp?islem=guncelle">
<input type="hidden" name="ID" class="input" value="<%=menuduzenle("ID")%>">
<input type="hidden" name="CESIT" class="input" value="<%=menuduzenle("CESIT")%>">
 <tr>
  <td width="33%">Ana Menü:<br><select size="1" name="ALT">
  <option value="0" selected>Ana Menü</option>
  <%
  Set ustmenulistesi = Server.CreateObject("ADODB.Recordset")
  Sorgu = "SELECT * FROM MENU where CESIT=" & menuduzenle("CESIT") & " AND ALT=0 order by SIRA asc"
  ustmenulistesi.Open Sorgu, Baglanti, 1, 3
  If ustmenulistesi.Recordcount = 0 Then
  else
  Do While Not ustmenulistesi.EOF
  %>
  <option value="<%= ustmenulistesi("ID") %>"<% if menuduzenle("ALT")=ustmenulistesi("ID") then %> selected<% end if %>> - <%= ustmenulistesi("AD") %></option>
  <%
  ustmenulistesi.MoveNext
  Loop
  end if
  ustmenulistesi.close
  set ustmenulistesi=nothing
  %>
  </select></td>
  <td width="34%">Menü Adı:<br><input type="text" name="AD" class="input" value="<%=menuduzenle("AD")%>"></td>
  <td width="33%">Menü Adresi:<br><input type="text" name="URL" class="input" value="<%=menuduzenle("URL")%>"></td>
 </tr>
 <tr>
  <td width="33%">Menü Açıklaması:<br><input type="text" name="TITLE" class="input" value="<%=menuduzenle("TITLE")%>"></td>
  <td width="34%">Açılma Şekli:<br><select size="1" name="HEDEF">
  <option value="_self"<% if menuduzenle("HEDEF")="_self" then %> selected<% end if %>> - Aynı Çerçeve (_self)</option>
  <option value="_top"<% if menuduzenle("HEDEF")="_top" then %> selected<% end if %>> - Tüm Sayfa (_top)</option>
  <option value="_blank"<% if menuduzenle("HEDEF")="_blank" then %> selected<% end if %>> - Yeni Pencere (_blank)</option>
  <option value="_parent"<% if menuduzenle("HEDEF")="_parent" then %> selected<% end if %>> - Üst Çerçeve (_parent)</option>
  </select></td>
  <td width="33%">Sırası:<br><select size="1" name="SIRA">
  <%
  for s =0 to mesajadet
  gun = gun+1
  %>
  <option value="<%=gun%>"<% if menuduzenle("SIRA")=gun then %> selected<% end if %>><%=gun%></option>
  <% next %>
  </select>
  </td>
 </tr>
 <tr>
  <td width="100%" colspan="3" align="center"><input type="submit" value="Yan Menüyü Ekle" name="submit" class="button"></td>
 </tr>
</form>
</table>
<%
menuduzenle.Close
Set menuduzenle=Nothing
%>
</fieldset>
<%
Else
Response.Redirect "menu_admin.asp"
End If
%>
<% end if %>

<% if islem="kaydet" then
If Session("MenuYonetimi")<>"" then

Dim ALT
Dim AD
Dim URL
Dim TITLE
Dim HEDEF
Dim SIRA
Dim CESIT
ALT = trim(Temizle(Request.Form("ALT")))
AD = trim(Temizle(Request.Form("AD")))
URL = trim(Temizle(Request.Form("URL")))
TITLE = trim(Temizle(Request.Form("TITLE")))
HEDEF = trim(Temizle(Request.Form("HEDEF")))
SIRA = trim(Temizle(Request.Form("SIRA")))
CESIT = trim(Temizle(Request.Form("CESIT")))
If AD = "" or URL = "" Then
%>
<script>alert('Menü Adını ve Adresini Yazınız!')</script>
<% if CESIT=1 then %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<% else %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<% end if %>
<%
Else
Set menukaydet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU"
menukaydet.Open Sorgu, Baglanti, 1, 3
menukaydet.AddNew
menukaydet("ALT") = ALT
menukaydet("AD") = AD
menukaydet("URL") = URL
menukaydet("TITLE") = TITLE
menukaydet("HEDEF") = HEDEF
menukaydet("SIRA") = SIRA
menukaydet("CESIT") = CESIT
menukaydet.Update
menukaydet.Close
Set menukaydet = Nothing
%>
<script>alert('Menü Eklendi!')</script>
<% if CESIT=1 then %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<% else %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<% end if %>
<%
End If

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>

<% if islem="guncelle" then
If Session("MenuYonetimi")<>"" then

Dim ID
ID = trim(Temizle(Request.Form("ID")))
ALT = trim(Temizle(Request.Form("ALT")))
AD = trim(Temizle(Request.Form("AD")))
URL = trim(Temizle(Request.Form("URL")))
TITLE = trim(Temizle(Request.Form("TITLE")))
HEDEF = trim(Temizle(Request.Form("HEDEF")))
SIRA = trim(Temizle(Request.Form("SIRA")))
CESIT = trim(Temizle(Request.Form("CESIT")))
If AD = "" or URL = "" Then
%>
<script>alert('Menü Adını ve Adresini Yazınız!')</script>
<% if CESIT=1 then %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<% else %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<% end if %>
<%
Else
Set menukaydet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE ID=" & ID
menukaydet.Open Sorgu, Baglanti, 1, 3
menukaydet("ALT") = ALT
menukaydet("AD") = AD
menukaydet("URL") = URL
menukaydet("TITLE") = TITLE
menukaydet("HEDEF") = HEDEF
menukaydet("SIRA") = SIRA
menukaydet.Update
menukaydet.Close
Set menukaydet = Nothing
%>
<script>alert('Menü Bilgileri Güncellendi!')</script>
<% if CESIT=1 then %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<% else %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<% end if %>
<%
End If

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>

<% if islem="ustguncelle" then
If Session("MenuYonetimi")<>"" then

Dim STIL
STIL = trim(Temizle(Request.Form("STIL")))
If STIL = "" Then
%>
<script>alert('Menü Stilini Seçiniz!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<%
Else
if STIL = "images/stil1.png" then
ASTIL=1
end if
if STIL = "images/stil2.png" then
ASTIL=2
end if
if STIL = "images/stil3.png" then
ASTIL=3
end if
if STIL = "images/stil4.png" then
ASTIL=4
end if
if STIL = "images/stil5.png" then
ASTIL=5
end if
if STIL = "images/stil6.png" then
ASTIL=6
end if
if STIL = "images/stil7.png" then
ASTIL=7
end if
if STIL = "images/stil8.png" then
ASTIL=8
end if
if STIL = "images/stil9.png" then
ASTIL=9
end if
if STIL = "images/stil10.png" then
ASTIL=10
end if

Set ayarkaydet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM AYAR WHERE ID=1"
ayarkaydet.Open Sorgu, Baglanti, 1, 3
ayarkaydet("STIL") = ASTIL
ayarkaydet.Update
ayarkaydet.Close
Set ayarkaydet = Nothing
%>
<script>alert('Menü Stiliniz Güncellendi!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<%
End If

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>
<% if islem="yanguncelle" then
If Session("MenuYonetimi")<>"" then

Dim YANSTIL
YANSTIL = trim(Temizle(Request.Form("YANSTIL")))
If YANSTIL = "" Then
%>
<script>alert('Menü Stilini Seçiniz!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<%
Else
if YANSTIL = "images/stil11.png" then
AYANSTIL=1
end if
if YANSTIL = "images/stil12.png" then
AYANSTIL=2
end if
if YANSTIL = "images/stil13.png" then
AYANSTIL=3
end if
if YANSTIL = "images/stil14.png" then
AYANSTIL=4
end if

Set ayarkaydet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM AYAR WHERE ID=1"
ayarkaydet.Open Sorgu, Baglanti, 1, 3
ayarkaydet("YANSTIL") = AYANSTIL
ayarkaydet.Update
ayarkaydet.Close
Set ayarkaydet = Nothing
%>
<script>alert('Menü Stiliniz Güncellendi!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<%
End If

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>
<% if islem="parolaguncelle" then
If Session("MenuYonetimi")<>"" then

Dim PAROLA
PAROLA = trim(Temizle(Request.Form("PAROLA")))
If PAROLA = "" Then
%>
<script>alert('Parolanızı Güncellemek İstiyorsanız Lütfen Yeni Parolanızı Yazınız!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=parola'>
<%
Else
Set ayarkaydet = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM AYAR WHERE ID=1"
ayarkaydet.Open Sorgu, Baglanti, 1, 3
if PAROLA<>"" then
ayarkaydet("PAROLA") = md5(PAROLA)
end if
ayarkaydet.Update
ayarkaydet.Close
Set ayarkaydet = Nothing
%>
<script>alert('Parolanız Güncellendi!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=parola'>
<%
End If

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>
<% if islem="sil" then
If Session("MenuYonetimi")<>"" then
set ID = Request.QueryString("ID")
Set menusil = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from MENU where ID=" & ID
menusil.Open Sorgu,Baglanti,1,3
If menusil.Recordcount = 0 Then
%>
<script>alert('Silinecek Menü Bulunamadı!')</script>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<%
else
CESIT=menusil("CESIT")
Sorgu = "delete * from MENU where ID="
Sorgu = Sorgu & ID
set db=Baglanti.Execute(Sorgu)
%>
<script>alert('Menü Silindi!')</script>
<% if CESIT=1 then %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=ustmenu'>
<% else %>
<meta http-equiv='Refresh' content='0; URL=menu_admin.asp?islem=yanmenu'>
<% end if %>
<%
end if
menusil.Close
Set menusil=Nothing

Else
Response.Redirect "menu_admin.asp"
End If
end if
%>
<br>
<a target="_blank" title="Menü Yönetimi v2.1: Burak ŞİMŞEK & http://www.buraksimsek.com.tr" href="http://www.buraksimsek.com.tr">BŞ</a> &
<a target="_blank" title="Menü Yönetimi v2.1: UzmanWeb.Net & http://www.uzmanweb.net" href="http://www.uzmanweb.net">UWN</a>
</body>
</html>

bu ssana yardımcı olur inşallah.



__________________
123
Yukarı Dön Göster ismail0202's Özellikler Diğer Mesajlarını Ara: ismail0202
 
alenn34
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90
Gönderen: 28-Temmuz-2013 Saat 02:38 | Kayıtlı IP Alıntı alenn34

teşekkürler bilgi için....



Düzenleyen alenn34 17-Ekim-2013 Saat 18:02


__________________
koltuk tamirkoltuklar,koltuk
Yukarı Dön Göster alenn34's Özellikler Diğer Mesajlarını Ara: alenn34
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0930 Saniyede Yüklendi.