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

<!--#include file="inc_genel.asp"-->
     
<%
Dim modulbelirlevt,modulbelirlekayit,modulbelirleSQL,moduladi,uy ari,modul,islem,id,post
Dim sid,sbaslik,sicerik,sdurum,icerikkod,sira

modul = Request.QueryString("modulicerik")
islem = Request.QueryString("islem")
id = Request.QueryString("id")

if modul="" then
Response.Write "Modül Referansı alınmamış... İşlem Yapılamaz...<br>"
Response.Write geridon
Response.End
end if

select case modul
 case 0
   Response.Write "<b>Ana Sayfa İçeriğinde Yer Alan Sayfalar...</b> <br><font color=red size=1>(İçerik Kodu=0 olan sayfalar ana sayfa kabul edilir ve sitenin girişinde görüntülenir)</font>"
   moduladi= "ANA SAYFA"
 case else

  Set modulbelirlevt = Server.CreateObject ("ADODB.Connection")
  modulbelirlevt.Open bag
  Set modulbelirlekayit=Server.CreateObject ("ADODB.Recordset")
  modulbelirleSQL = "SELECT * FROM modul WHERE icerikkod=" & modul
  modulbelirlekayit.Open modulbelirleSQL,modulbelirlevt, 1, 3

  moduladi=modulbelirlekayit("moduladi")
   modulbelirlekayit.close
   set modulbelirlekayit=Nothing

   modulbelirlevt.close
   set modulbelirlevt=Nothing 
      
end select

if islem="" then
 islem=0
elseif islem="ekle" then
 islem=1
elseif islem="guncelle" then
 islem=2
 post="guncellestir"
elseif islem="sil" then
 islem=3
elseif islem="guncellestir" then
 islem=4
elseif islem="yeniekle" then
 islem=5
 post="ekle"
end if

%>

<%
  Dim icerikVt,icerikKayit,icerikSQL,ks,durum
  Set icerikVt=Server.CreateObject ("ADODB.Connection")
  icerikVt.Open bag
  Set icerikKayit = Server.CreateObject("ADODB.Recordset")

   
  select case islem
    
   case 0

    icerikSQL = "SELECT * FROM icerik Where icerikkod=" & modul & " ORDER BY sira"
      icerikKayit.Open icerikSQL, icerikVt, 1, 3
      ks = icerikKayit.RecordCount 'veritabanındaki kayıtların sayısı
    Response.Write "<B>SAYFALAR</B><hr>"   
    Response.Write " <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bordercolor=""#666666"" bgcolor=""#F7F7F4"">"
     
        if ks=0 then
        Response.Wri te "<b>"& moduladi & "</b> modülüne bağlı içerik bölümünde herhangi bir sayfa yer almamaktadır...<br>(<b>Açıklama:</b> HTML modüller kullanıcı tanımlı olmaktadır ve içerik sayfası hazırlama zorunluluğu yoktur. Modül düzenleme bölümünden ilgili ayarlamaları yapabilirsiniz...)<br>" & geridon
        else

     Do While Not icerikKayit.eof
      
    if icerikKayit("sdurum")=1 then
    durum="<font color=darkblue face=Webdings>a</font>"
    else
    durum="<font color=red face=Webdings>r</font>"
    end if
    
    Response.Write "<tr><td align=""center"" bgcolor=""#D7D7D4""width=""30""><b>"
    Response.Write icerikKayit("sira") & "</b></td>"
    Response.Write "<td bgcolor=""#F6F6F6"">" &durum& "<a href=""../default.asp?sayfaid="& icerikKayit("sid")&""" target=""_blank"" title=""Sayfayı Görmek için tıkyalıyınz...""><b>"
    Response.Write icerikKayit("sbaslik") & "</b></a>"

    Response.Write "</td><td bgcolor=""#D7D7D4"" align=""center"" width=""100""><b><a href=""icerik.asp?islem=sil&id=" & icerikKayit("sid") & "&" & "modulicerik=" &modul& """ target=""alt"">sil</a></b> ll "
    Response.Write " <b><a href=""icerik.asp?islem=guncelle&id=" & icerikKayit("sid") & "&" & "modulicerik=" &modul& """ target=""alt""> güncelle</a></b></td></tr>"
     
   icerikKayit.movenext
   loop
       
        Response.Write "</table>"
     Response.Write "<b>" & moduladi & "</b> Modülüne bağlı toplam <b>" & ks & "</b> sayfa/bölüm bulunuyor...<br>"
     Response.Write "<b>Sayfa Durumu:</b> <font color=darkblue face=Webdings>a</font>  Aktif - <font color=red face=Webdings>r</font> Pasif"
            
   end if 
   call vtkapat()
   
   Response.Write "<hr>"
   'call icerikkayitformu()

  
 
  case 1
   icerikSQL = "SELECT * FROM icerik"
     icerikKayit.Open icerikSQL, icerikVt, 1, 3
     %><!--#include file="inc_icerikformbilgi.asp"--><%
     icerikKayit.AddNew ' Yeni bir kayit ekle
      icerikKayit("icerikkod") =icerikkod
      icerikKayit("sbaslik")=s baslik 
      icerikKayit("sdurum")=sd urum
      icerikKayit("sicerik")=s icerik
      icerikKayit("sira")=sira
      icerikKayit.Update
     Response.Write "<b>"& moduladi & "</b> modülüne Yeni Sayfa başarıyla eklendi...<br>" & geridon
     response.Write " ll <a href=""icerik.asp?modulicerik="& modul &""">Sayfa Listesi</a>"
     call vtkapat()
  case 2 'Güncelleme Formunun çağrılması ve içeriğinin doldurulması...
   icerikSQL = "SELECT * FROM icerik WHERE sid=" & id
     icerikKayit.Open icerikSQL, icerikVt, 1, 3
     
     call icerikkayitformu()
     call vtkapat()
    Response.Write "<center>Bu sayfa <b>"& moduladi & "</b> (İçerik Kodu: " & modul & ") modülüne bağlıdır...<br>" & geridon & "</center>"
  case 3
   icerikSQL = "SELECT * FROM icerik WHERE sid=" & id
     icerikKayit.Open icerikSQL, icerikVt, 1, 3
     
     icerikKayit.Delete
     icerikKayit.Update

     call vtkapat()

     Response.Write "<b>"& moduladi &"</b> modülüne bağlı Sayfayı Silme İşlemi Başarıyla tamamlandı...<br>"
     Response.Write geridon
  case 4
   %><!--#include file="inc_icerikformbilgi.asp"--><%
    icerikSQL = "SELECT * FROM icerik WHERE sid=" & sid
     icerikKayit.Open icerikSQL, icerikVt, 3, 3
     
     icerikKayit("icerikkod")=iceri kkod
     icerikKayit("sbaslik")=sbaslik  
     icerikKayit("sdurum")=sdurum
     icerikKayit("sicerik")=sicerik
     icerikKayit("sira")=sira
     icerikKayit.Update

     call vtkapat()

    response.write "Güncelleştirme işlemi başarıyla tamamlandı...<br>"
       response.write geridon
    response.Write " ll <a href=""icerik.asp?modulicerik="& modul &""">Sayfa Listesi</a>"
  case 5
    icerikSQL = "SELECT * FROM icerik Where icerikkod=" & modul
      icerikKayit.Open icerikSQL, icerikVt, 1, 3
      ks = icerikKayit.RecordCount 'veritabanındaki kayıtların sayısı

    Response.Write "<b>"& moduladi &"</b> (İçerik Kodu:" & modul & ") " &" Modülüne Yeni içerik sayfası ekleme...<br><font size=1 color=red>Sayfa Durumu: 1-Aktif, 0-Pasif / Sıralama: O modülde yer alan kayıtların 1 fazlası olarak bu forma alınır... "
    call icerikkayitformu()
    
  end select

%>
<%
 sub vtkapat()
 icerikKayit.close
 set icerikKayit=Nothing

 icerikVt.close
 set icerikVt=Nothing 
 end sub    
%>

<% sub icerikkayitformu() %>
<center>
<form name="form1" method="post" action="icerik.asp?islem=<% =post %><% if islem=2 then %>&modulicerik=<% =icerikKayit("icerikkod") %><%else%>&modulicerik=<% =modul %>
<% end if%>">
  <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">İçerik
               Kodu</font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">:
               <input name="icerikkod" type="text" id="icerikkod" size="5" <% if islem=2 then%> value="<%=icerikKayit("icerikkod")%><% else %> value="<% =modul %>
<% end if %>">
<%
Dim selected
if islem=2 and icerikKayit("sdurum")=1 then
selected="selected"
else
selected=""
end if
%>
</font></strong><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;Sayfa Durumu:
              <select name="sdurum"><option value="0">Pasif</option><option value="1" <%=selected%>>Aktif</option></select>&l t;/option>
               </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="sira" type="text" id="sira" size="5" value="<% if islem=2 then%><%=icerikKayit("sira")%>
<%else%>
<%=(ks+1)%>
<% end if %>
<% if islem=2 then%>">
&nbsp;&nbsp;&nbsp;İd:
              <input name="sid" type="text" id="sid" size="5" value="<%=icerikKayit("sid")%>
<% end if %>">
               </font></strong><br>
         
          <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Başlık: </font></strong>
             <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
               <input name="sbaslik" type="text" id="sbaslik" size="50" <% if islem=2 then%> value="<%=icerikKayit("sbaslik")%>
<% end if %>">
               </font></strong>
        </td>
    </tr>
    <tr>
      <td bgcolor="#F7F7F4">
<textarea name="sicerik" cols="83" rows="10" id="sicerik"><% if islem=2 then%>
     <%=icerikKayit("sicerik")%>
     <% 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 %>

</body>
</html>