MyDesign Haber

Yönetim Paneli

<% If blnAdmin AND strVeriTabaniYolu = strScriptYolu &"veritabani/mydesign_haber.mdb" Then %> <% End If %>

<% Call UstMenu("sayfa","

","

","

","

") %>

<% Call AltMenu("sayfa","

","

","

","

") %>

<% '// Sayfa Ekleme Formu If strIslem = "yeni_sayfa" Then Response.Write "

Yeni Sayfa Ekle

" strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strIcerik = BaslikTemizle(Trim(Request.Form("haber"))) strDurum = Temizle(Trim(Request.Form("durum"))) %>

Genel Bilgiler

Haber Başlığı :
Yayın Durumu : >Hemen Yayınlansın>Pasif Kalsın

Sayfa İçeriği

<% strFormName = "frmSayfa" strTextAreaName = "haberX" %> <%=strIcerik%>

 

<% '// Haber Ekleme Formunun Kaydedilmesi Elseif strIslem = "yeni_sayfa_kaydet" Then '// Varsayılan Değerler Giriliyor blnBaslik = True blnIcerik = True blnDurum = True '// Formdan Veriler Alınıyor strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strIcerik = Trim(Request.Form("haber")) strDurum = Temizle(Trim(Request.Form("durum"))) '// Boş Alanlar Kontrol Ediliyor If Len(strBaslik) < 5 Then blnBaslik = False If Len(strIcerik) < 10 Then blnIcerik = False If strDurum <> "True" AND strDurum <> "False" Then blnDurum = False If blnBaslik AND blnIcerik AND blnDurum Then SQL = "SELECT * FROM tblSayfalar" With kdGenel .Open SQL, adoCon, 1, 3 .AddNew .Fields("Baslik") = strBaslik .Fields("Icerik") = strIcerik .Fields("Durum") = CBool(strDurum) .Update .Close End With Response.Write("") Else %> <% End If '// Sayfa Düzenleme Formu Elseif strIslem = "sayfa_duzenle" Then Response.Write "

Sayfa Düzenle

" intHaberID = Temizle(Request.Querystring("sayfa")) If intHaberID <> "" AND IsNumeric(intHaberID) = True Then kdGenel.Open "SELECT * FROM tblSayfalar WHERE Sayfa_ID = "& intHaberID &"", adoCon, 1, 3 If Not kdGenel.EOF Then strBaslik = kdGenel("Baslik") strHaber = kdGenel("Icerik") strDurum = kdGenel("Durum") %>

Genel Bilgiler

Sayfa Başlığı :
Yayın Durumu : >Sayfa Yayınlansın>Sayfa Yayınlanmasın

Sayfa İçeriği

<% strFormName = "frmHaber" strTextAreaName = "haberX" %> <%=strHaber%>

"> 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If '// Haber Düzenleme Formunun Kaydedilmesi Elseif strIslem = "sayfa_duzenle_kaydet" Then '// Varsayılan Değerler Giriliyor blnBaslik = True blnIcerik = True blnDurum = True blnHaberID = True '// Formdan Veriler Alınıyor strHaberID = Temizle(Trim(Request.Form("haberID"))) strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strIcerik = Trim(Request.Form("haber")) strDurum = Temizle(Trim(Request.Form("durum"))) '// Boş Alanlar Kontrol Ediliyor If Len(strBaslik) < 5 Then blnBaslik = False If Len(strIcerik) < 10 Then blnIcerik = False If strDurum <> "True" AND strDurum <> "False" Then blnDurum = False If strHaberID = "" OR IsNumeric(strHaberID) = False Then blnHaberID = False '// Boş Alanlar Kontrol Ediliyor If blnBaslik AND blnIcerik AND blnDurum AND blnHaberID Then kdGenel.open"SELECT * FROM tblSayfalar WHERE Sayfa_ID="& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel("Baslik") = strBaslik kdGenel("Icerik") = strIcerik kdGenel("Durum") = CBool(strDurum) kdGenel.Update kdGenel.Close Response.Write("") Else Response.Write "" End If Else %> <% End If '// haber Silme Bölümü Elseif strIslem = "sil" Then If blnAdmin <> True Then Response.Write "" Else strHaberID = Temizle(Trim(Request.Querystring("sayfa"))) If strHaberID <> "" AND IsNumeric(strHaberID) Then kdGenel.open "SELECT Sayfa_ID FROM tblSayfalar WHERE Sayfa_ID = "& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel.Delete kdGenel.Update Response.Write "" Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If Else SQL = "SELECT * FROM tblSayfalar ORDER BY Baslik ASC" kdGenel.open SQL ,adoCon, 1, 3 Toplam = kdGenel.Recordcount Response.Write "

Sayfalar

" If Toplam = "0" Then Response.Write "" Else Response.Write("" & _ "" & _ "" & _ "" & _ "" & _ "") Kayit_S = 20 kdGenel.PageSize = Kayit_S If Temizle(Request.QueryString("SF")) = "" Then G_Kayit = 1 Else G_Kayit = CInt(Temizle(Request.QueryString("SF"))) End If T_Kayit=kdGenel.PageCount If G_Kayit > T_Kayit Then G_Kayit = TKayit If G_Kayit < 1 Then G_Kayit = 1 If T_Kayit = 0 Then Response.Write "" Else kdGenel.AbsolutePage = G_Kayit End if intLooper = 0 Do while intLooper < Kayit_S and Not kdGenel.EOF If kdGenel("Durum") = True Then strDurum = "Aktif" Else strDurum = "Pasif" End If Response.Write("" & _ "" & _ "") intLooper = intLooper + 1 kdGenel.MoveNext Loop Response.Write("

Başlık	Durum	İşlemler
"& kdGenel("Baslik") &"	"& strDurum &"	" & _ " ") If blnAdmin Then Response.Write("") Response.Write("
") for k=1 to T_Kayit StrSayfaSayisi = k SayfaSayisi= StrSayfaSayisi if k = G_Kayit then %> <%=StrSayfaSayisi%>. <% Else %> <%=StrSayfaSayisi%>. <% End If Next Response.Write "

" End If kdGenel.Close End If %>