Gönderen: 29-Mayıs-2012 Saat 09:56 | Kayıtlı IP

<!--#include file="inc_genel.asp"-->

<%' Önce Modülleri aç, sayısını, sıralamasını belirle ardından RS için ve Yeni Modül Ekleme için form durumunu özelleştir...
Dim ModulVt,ModulKayit,ModulSQL,ks,uyari,imge,islem,post,id,menu ek

id=Request.QueryString("id")
islem=Request.QueryString("islem")
'Yapılacak İşlemler Neler Olabilir?
'Yeni kayıt eklemek mesela, yada bir kaydı güncellemek, yada varolan bir kaydı silmek...
'Soruların Admin sayfasındakine benzer bir uygulamayı burda gerçekleştirmek sanırım daha iyi olacak. En azından orda bir mantık yakalayabildim...
Dim modulkod,icerikkod,modultur,modulid,moduladi,siralama,moduli cerik 'Forma ait değişkenler...
%>

<%
'işlemi belirleme işleri...

if islem="" then 'İşlem yoksa işlem nosu 0
 islem=0
 
elseif islem="ekle" then 'Ekleme işlemiyse işlem no 1
 islem=1
elseif islem="guncelle" then 'Güncelleme İşlemiyse işlem nosu 2
 islem=2
 post="guncellestir"
elseif islem="sil" then 'Silme İşlemiyse işlem nosu 3
 islem=3
elseif islem="guncellestir" then 'Güncelleştirme formundan geliyorsa işlem no 4
 islem=4
elseif islem="yeniekle" then
 islem=5
 post="ekle"
end if

%>

<% sub modulguncelform() %>
<center>
<form name="form1" method="post" action="modul.asp?islem=<% =post %>">
  <table width="600" border="1" cellpadding="2" cellspacing="2" bordercolor="#666666">
    <tr>
      <td bgcolor="#F7F7F4">
         
             <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Modül
               Kodu</font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">:
               <input name="modulkod" type="text" id="modulkod" size="5" <% if islem=2 then%> value="<%=ModulKayit("modulkod")%>"<% end if %>>
               </font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;İçerik
               Kodu:
               <input name="icerikkod" type="text" id="icerikkod" size="5" <% if islem=2 then%> value="<%=ModulKayit("icerikkod")%>"<% end if %>>
               </font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
               &nbsp;&nbsp;&nbsp;Modul Türü:</font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
     <%
     Dim selected
     if islem=2 and ModulKayit("modultur")=0 then
     selected="selected"
     else
     selected=""
     end if
     %>
               <select name="modultur"><option value="0" >HTML</option><option value="1" <%=selected%>>Link</option></select>
<% if islem=2 then%>
&nbsp;&nbsp;&nbsp;İd:
              <input name="mid" type="text" id="mid" size="5" value="<%=ModulKayit("mid")%>"<% end if %>>
               </font></strong><br>
         
          <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Modül
               Adı: </font></strong>
             <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
               <input name="moduladi" type="text" id="moduladi" size="50" <% if islem=2 then%> value="<%=ModulKayit("moduladi")%>"<% end if %>>
               </font></strong>
             <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;Sıralama
               : </font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
               <input name="siralama" type="text" id="siralama" size="5" <% if islem=2 then%> value="<%=ModulKayit("siralama")%>"<% end if %>>
               </font></strong>
         
        </td>
    </tr>
    <tr>
      <td bgcolor="#F7F7F4">
<textarea name="modulicerik" cols="83" rows="10" id="modulicerik"><% if islem=2 then%>
     <%=ModulKayit("modulicerik")%>
     <% end if %></textarea>
      </td>
    </tr>
    <tr>
      <td bgcolor="#F7F7F4"><div align="center">
          <input type="submit" name="Submit" value="Gönder">
        </div></td>
    </tr>
  </table>
</form>
</center>
<% end sub %>

<% 'call modulguncelform()%>

<% sub vtkapat()
    ModulKayit.close
    set ModulKayit=Nothing

    ModulVt.close
    set ModulVt=Nothing
   end sub %>

<%
   
   Set ModulVt=Server.CreateObject ("ADODB.Connection")
   ModulVt.Open bag
   Set ModulKayit = Server.CreateObject("ADODB.Recordset")

   Select Case islem
   case 0 'Standart
   
       ModulSQL = "SELECT * FROM modul ORDER BY siralama"
      ModulKayit.Open ModulSQL, ModulVt, 1, 3
      ks = ModulKayit.RecordCount 'veritabanındaki kayıtların sayısı
    Response.Write "<b>MODÜLLER</b><hr>"
    Response.Write " <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bordercolor=""#666666"" bgcolor=""#F7F7F4"">"
        
     Do While Not ModulKayit.eof

       if ModulKayit("modultur")=1 then
      uyari= "Bu bir Link Modüldür. İçerik Bölümüne ekleyeceğiniz sayfa ilgili modülde belirtilen sırada yer alır ve sayfa başlığı ile içeriğinin ilk 255 karakteri bu sayfada görüntülenir..."
      imge="<a name=""LINK"" title="" "&uyari&" ""><font SIZE=5 color=darkblue face=""wingdings 2, Webdings"">,</font></a>"
      menuek="ll <b><a href=""icerik.asp?islem=yeniekle&modulicerik="& ModulKayit("modulkod")&""" target=""alt"">sayfa ekle</a>"
       else
      uyari= "Bu modül HTML türündedir. İçeriğini html kodları ile oluşturmalısınız..."
      imge="<a name=""HTML"" title="" "&uyari&" ""><font SIZE=5 color=BLACK face=""Wingdings 2, Webdings"">,</font></a>"
       end if

       Response.Write "<tr><td align=""center"" bgcolor=""#D7D7D4""width=""30""><b>"
    Response.Write ModulKayit("siralama") &" </b></td><td bgcolor=""#F6F6F6"">" & imge & " <a href=""icerik.asp?modulicerik="& ModulKayit("icerikkod")&""" target=""ortasag"" title=""Bu modüle bağlı sayfalarla işlem yapmak için tılayınız... (sayı) şeklinde belirtilen kısım içerik kodudur...""><b>"
    Response.Write ModulKayit("moduladi")
    Response.Write "(" & ModulKayit("icerikkod") & ")"
    Response.Write "</a></td><td bgcolor=""#D7D7D4"" align=""center"" width=""100""><b><a title=""Bu modülü tamamen kaldırır..."" href=""modul.asp?islem=sil&id=" &ModulKayit("mid")&""" target=""alt"">sil</a></b> ll "
    Response.Write " <b><a title=""BU MODÜLÜ YENİDEN DÜZENLEMEYİ SAĞLAR"" href=""modul.asp?islem=guncelle&id=" & ModulKayit("mid")& """ target=""alt""> güncelle</a></b> "& menuek &"</b></td></tr>"
     
   ModulKayit.movenext
   loop
        Response.Write "</table>"
     Response.Write "Bu sitenin gezinim arabirimi toplam <b>" & ks & "</b> modülden oluşmaktadır...<hr><a href=""modul.asp?islem=yeniekle"" target=""alt""><b>Modül Ekle</b></a> ll "
     Response.Write "<b><a href=""icerik.asp?islem=guncelle&id=1&modulicerik=0" " target=""alt"">Ana Sayfa Düzenle</a></b> ll <a href=""sorular.asp"" target=""_top""><b>Sınav Soruları</b></a> ll <a href=""ayril.asp"" target=""_top""><b>Oturumu Kapat</b></a>"

             call vtkapat()

   'Response.Write "<hr>"

   case 1 'Yeni Kayıt
    
    ModulSQL = "SELECT * FROM modul"
     ModulKayit.Open ModulSQL, ModulVt, 1, 3
     %><!--#include file="inc_modulformbilgi.asp"--><%
      ModulKayit.AddNew ' Yeni bir kayit ekle
      ModulKayit("modulkod")=m odulkod
      ModulKayit("icerikkod")= icerikkod 
      ModulKayit("modultur")=m odultur
      ModulKayit("moduladi")=m oduladi
      ModulKayit("siralama")=s iralama
      ModulKayit("modulicerik" )=modulicerik
      ModulKayit.Update
    Response.Write "Yeni Modül başarıyla eklendi..." & geridon
      call vtkapat()
   case 2 'Güncelleştirme İşlemleri...
    ModulSQL = "SELECT * FROM modul WHERE mid=" & id
     ModulKayit.Open ModulSQL, ModulVt, 1, 3

     call modulguncelform()
     call vtkapat()
     
    
    Response.Write "Güncelleştirme İşlemleri...<br>" & geridon
   case 3 'Modül Silme İşlemi...
       ModulSQL = "SELECT * FROM modul WHERE mid=" & id
     ModulKayit.Open ModulSQL, ModulVt, 1, 3
     
     Modulkayit.Delete
     ModulKayit.Update

     call vtkapat()

     Response.Write "Modülü Silme İşlemi Başarıyla tamamlandı...<br>"
     Response.Write geridon

   case 4 'Güncelleştirmeleri veritabanına aktarma...
    %><!--#include file="inc_modulformbilgi.asp"--><%
    ModulSQL = "SELECT * FROM modul WHERE mid=" & modulid
     ModulKayit.Open ModulSQL, ModulVt, 3, 3
     
     ModulKayit("modulkod")=modulko d
     ModulKayit("icerikkod")=icerik kod 
     ModulKayit("modultur")=modultu r
     ModulKayit("moduladi")=modulad i
     ModulKayit("siralama")=siralam a
     ModulKayit("modulicerik")=modu licerik
     ModulKayit.Update

     call vtkapat()

    response.write "Güncelleştirme işlemi başarıyla tamamlandı...<br>"
       response.write geridon
    response.Write " ll <a href=""modul.asp"" target=""solust"">Modül Listesi</a>"
   case 5
       Response.Write "<center><b>Yeni Modül Ekleme</b><br>"
    Response.Write "<font color=red size=1>Modül kodu ve içerik kodunu aynı yapmanızı öneriyoruz... Bu kodlar başka modüllere verilmişse çeşitli sorunlar yaşanabilir...</font></center>"
    call modulguncelform()
   end select

%>

</body>
</html>