MyDesign Haber

Yönetim Paneli

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

<% Call UstMenu("haber","

","

","

","

") %>

<% Call AltMenu("haber","

","

","

","

") %>

<% '// Haber Ekleme Formu If strIslem = "yeni_haber" Then Response.Write "

Yeni Haber Ekle

" kdGenel.open "SELECT * FROM tblKategoriler ORDER BY kategori ASC",adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Haber Eklemek İçin Önce Kategori Tanımlamalısınız." Else strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strOzet = BaslikTemizle(Trim(Request.Form("ozet"))) strHaber = BaslikTemizle(Trim(Request.Form("haber"))) strYorumIzin = Temizle(Trim(Request.Form("yorum"))) strDurum = Temizle(Trim(Request.Form("durum"))) blnOnemli = Temizle(Trim(Request.Form("onemli"))) blnKilit = Temizle(Trim(Request.Form("kilit"))) strKategori = Temizle(Trim(Request.Form("kategori"))) strResim = Temizle(Trim(Request.Form("resim"))) strResim2 = Temizle(Trim(Request.Form("resim2"))) blnManset = Temizle(Trim(Request.Form("manset"))) If strDurum = "" Then strDurum = True If blnOnemli <> "True" Then blnOnemli = False If strYorumIzin = "" Then strYorumIzin = True If blnManset = "" Then blnManset = True %>

Genel Bilgiler

Haber Başlığı :
Özet Metin : <%=strOzet%>
Haber Kategorisi : <% kdMenu.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdMenu.EOF Then Response.Write("") Do While Not kdMenu.EOF Response.Write(""& kdMenu("kategori") &"" kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& kdMenu("katID") &" ORDER By Sira ASC", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof Response.Write("-- "& kdYardimci("kategori") &"" kdYardimci.Movenext Loop End If kdYardimci.Close kdMenu.MoveNext Loop Response.Write "" End If kdMenu.Close %>
Haber Resmi :
(250x190)
Küçük Resim :
(100x76)

<% If blnAspUpload = True AND blnAspJpeg = True Then %>

Haber Resmi

<% End If %>

Haber Metni

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

Yayın Seçenekleri

Yayın Durumu : >Hemen Yayınlansın>Pasif Kalsın
Son Dakika : >Evet>Hayır
Yorum İzni : >Yorum Yazılabilsin>Yorum Yazılamasın
Manşette Göster : >Evet>Hayır

 

<% End If '// Haber Ekleme Formunun Kaydedilmesi Elseif strIslem = "yeni_haber_kaydet" Then '// Varsayılan Değerler Giriliyor blnBaslik = True blnOzet = True blnHaber = True blnKategori = True blnDurum = True blnYorum = True blnResim = True '// Formdan Veriler Alınıyor strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strOzet = BaslikTemizle(Trim(Request.Form("ozet"))) strResim = Temizle(Trim(Request.Form("resim"))) strResim2 = Temizle(Trim(Request.Form("resim2"))) strHaber = Trim(Request.Form("haber")) strYorum = Temizle(Trim(Request.Form("yorum"))) strDurum = Temizle(Trim(Request.Form("durum"))) blnOnemli = Temizle(Trim(Request.Form("onemli"))) intKategori = Temizle(Trim(Request.Form("kategori"))) strManset = Temizle(Trim(Request.Form("manset"))) '// Boş Alanlar Kontrol Ediliyor If Len(strBaslik) < 5 Then blnBaslik = False If CInt(intKategori) <> intKoseYazilari AND Len(strOzet) < 5 Then blnOzet = False If Len(strHaber) < 10 Then blnHaber = False If strDurum <> "True" AND strDurum <> "False" Then blnDurum = False If strYorum <> "True" AND strYorum <> "False" Then blnYorum = False If strManset <> "True" AND strManset <> "False" Then strManset = True If blnOnemli <> "True" AND blnOnemli <> "False" Then blnOnemli = False If intKategori = "" OR IsNumeric(intKategori) = False Then blnKategori = False If CInt(intKategori) <> intKoseYazilari AND strManset = True AND strResim = "" Then blnResim = False If blnBaslik AND blnOzet AND blnHaber AND blnKategori AND blnDurum AND blnYorum AND blnResim Then SQL = "SELECT * FROM tblHaberler" With kdGenel .Open SQL, adoCon, 1, 3 .AddNew .Fields("baslik") = strBaslik .Fields("ozet") = strOzet .Fields("haber") = strHaber .Fields("yorum") = CBool(strYorum) .Fields("durum") = CBool(strDurum) .Fields("onay") = True .Fields("manset") = CBool(strManset) .Fields("resim") = strResim .Fields("kucuk_resim") = strResim2 .Fields("onemli") = CBool(blnOnemli) .Fields("kilit") = False .Fields("kategori") = CInt(intKategori) .Fields("tarih") = Now() .Fields("editor") = strUyeID .Update .Close End With Response.Write("") Else %> <% End If '// Haber Düzenleme Formu Elseif strIslem = "haber_duzenle" Then Response.Write "

Haber Düzenle

" intHaberID = Temizle(Request.Querystring("haber")) If intHaberID <> "" AND IsNumeric(intHaberID) = True Then kdGenel.Open "SELECT * FROM tblHaberler WHERE haberID = "& intHaberID &"", adoCon, 1, 3 If Not kdGenel.EOF Then strBaslik = kdGenel("baslik") strOzet = kdGenel("ozet") strHaber = kdGenel("haber") strKategori = kdGenel("kategori") strEditor = kdGenel("editor") strYorumIzin = kdGenel("yorum") strDurum = kdGenel("durum") strOkunma = kdGenel("okunma") blnOnemli = kdGenel("onemli") blnManset = kdGenel("manset") blnKilit = kdGenel("kilit") strResim = kdGenel("resim") strResim2 = kdGenel("kucuk_resim") If blnAdmin <> True AND strEditor <> CInt(strUyeID) Then Response.Write "" Else %>

Genel Bilgiler

Haber Başlığı :
Özet Metin : <%=strOzet%>
Haber Resmi :
(250x190)
Küçük Resim :
(100x76)
Haber Kategorisi : <% kdMenu.Open "SELECT * FROM tblKategoriler WHERE ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdMenu.EOF Then Response.Write("") Do While Not kdMenu.EOF Response.Write(""& kdMenu("kategori") &"" kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& kdMenu("katID") &" ORDER By Sira ASC", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof Response.Write("-- "& kdYardimci("kategori") &"" kdYardimci.Movenext Loop End If kdYardimci.Close kdMenu.MoveNext Loop Response.Write "" End If kdMenu.Close %>

<% If blnAspUpload = True AND blnAspJpeg = True Then %>

Haber Resmi

<% End If %>

Haber Metni

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

Yayın Seçenekleri

Yayın Durumu : >Haber Yayınlansın>Haber Yayınlanmasın
Son Dakika : >Evet>Hayır
Yorum Gösterimi : >Eski Yorumlar Gösterilsin>Eski Yorumlar Gösterilmesin
Yorum Yazma : >Bundan Sonra Yorum Yazılamasın>Yorum Yazılabilsin
Manşette Göster : >Evet>Hayır
Haber Tarihi : Aynı Kalsın (<%=TarihFormatla(kdGenel("tarih"),1)%>) Şimdiki Tarih Olsun (<%=TarihFormatla(Now(),1)%>)

Not:
Yorum Gösterimi: Eski Yorumlar Gösterilmesin -> Yorum yazılamaz ve eski yorumlar gösterilmez.
Yorum Gösterimi: Eski Yorumlar Gösterilsin -> Eğer yorum yazma aktifse yorum yazılabilir, pasifse yazılamaz; ancak eski yorumlar daima gösterilir.

"> 

<% End If Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If '// Haber Düzenleme Formunun Kaydedilmesi Elseif strIslem = "haber_duzenle_kaydet" Then '// Varsayılan Değerler Giriliyor blnBaslik = True blnOzet = True blnHaber = True blnKategori = True blnDurum = True blnYorum = True blnHaberID = True '// Formdan Veriler Alınıyor strHaberID = Temizle(Trim(Request.Form("haberID"))) strBaslik = BaslikTemizle(Trim(Request.Form("baslik"))) strOzet = BaslikTemizle(Trim(Request.Form("ozet"))) strHaber = Trim(Request.Form("haber")) strYorum = Temizle(Trim(Request.Form("yorum"))) strDurum = Temizle(Trim(Request.Form("durum"))) blnOnemli = Temizle(Trim(Request.Form("onemli"))) blnKilit = Temizle(Trim(Request.Form("kilit"))) intKategori = Temizle(Trim(Request.Form("kategori"))) strResim = Temizle(Trim(Request.Form("resim"))) strResim2 = Temizle(Trim(Request.Form("resim2"))) strTarih = Temizle(Trim(Request.Form("tarih"))) strManset = Temizle(Trim(Request.Form("manset"))) '// Boş Alanlar Kontrol Ediliyor If Len(strBaslik) < 5 Then blnBaslik = False If Len(strOzet) < 5 Then blnOzet = False If Len(strHaber) < 10 Then blnHaber = False If strDurum <> "True" AND strDurum <> "False" Then blnDurum = False If strYorum <> "True" AND strYorum <> "False" Then blnYorum = False If blnOnemli <> "True" AND blnOnemli <> "False" Then blnOnemli = False If intKategori = "" OR IsNumeric(intKategori) = False Then blnKategori = False If strHaberID = "" OR IsNumeric(strHaberID) = False Then blnHaberID = False '// Boş Alanlar Kontrol Ediliyor If blnBaslik AND blnOzet AND blnHaber AND blnKategori AND blnDurum AND blnYorum AND blnHaberID Then kdGenel.open"SELECT * FROM tblHaberler WHERE haberID="& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then If blnAdmin OR kdGenel("editor") = CInt(strUyeID) Then kdGenel("baslik") = strBaslik kdGenel("ozet") = strOzet kdGenel("haber") = strHaber kdGenel("resim") = strResim kdGenel("yorum") = CBool(strYorum) kdGenel("durum") = CBool(strDurum) If blnAdmin Then kdGenel("onemli") = CBool(blnOnemli) If strtarih = 1 Then kdGenel("tarih") = Now() kdGenel("kucuk_resim") = strResim2 kdGenel("kilit") = CBool(blnKilit) kdGenel("manset") = CBool(strManset) kdGenel("kategori") = CInt(intKategori) kdGenel.Update kdGenel.Close Response.Write("") Else Response.Write "" End If Else Response.Write "" End If Else %> <% End If '// Haber Listeleme Bölümü Elseif strIslem = "haberler" Then strMod = Temizle(Request.Querystring("mod")) intArananKategori = Temizle(Request.Querystring("kategori")) strSirala = Temizle(Request.Querystring("sirala")) strListele = Temizle(Request.Querystring("listele")) If strSirala = "" Then strSirala = "tarih" If strListele = "" Then strListele = "DESC" SQL = "SELECT * FROM tblHaberler" If strMod = "editor" or blnEditor Then SQL = SQL & " WHERE editor="& strUyeID &"" If intArananKategori <> "" AND IsNumeric(intArananKategori) Then SQL = SQL & " AND kategori = "& intArananKategori strH1 = "Eklediğiniz Haberler" Else If intArananKategori <> "" AND IsNumeric(intArananKategori) Then SQL = SQL & " WHERE kategori = "& intArananKategori strH1 = "Tüm Haberler" End If SQL = SQL & " ORDER BY "& strSirala &" "& strListele &"" kdGenel.open SQL ,adoCon, 1, 3 Toplam = kdGenel.Recordcount Response.Write "

"& strH1 &"

" 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 If kdGenel("kategori") = intKoseYazilari Then strTur = "yazar" Else strTur = "haber" End If Response.Write("" & _ "" & _ "" & _ "") intLooper = intLooper + 1 kdGenel.MoveNext Loop Response.Write("

Başlık	Kategori	Durum	İşlemler
"& kdGenel("baslik") &"	"& KategoriBul(kdGenel("kategori")) &"	"& 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 '// haber Silme Bölümü Elseif strIslem = "sil" Then If blnAdmin <> True Then Response.Write "" Else strMod = Temizle(Request.Querystring("mod")) strHaberID = Temizle(Trim(Request.Querystring("haber"))) If strHaberID <> "" AND IsNumeric(strHaberID) Then kdGenel.open "SELECT haberID FROM tblHaberler WHERE haberID = "& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel.Delete kdGenel.Update kdYardimci.Open "SELECT haber FROM tblYorumlar where haber="& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdYardimci.Eof Then Do While NOT kdYardimci.EOF kdYardimci.Delete kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close Response.Write "" Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Haber Onaylama Bölümü Elseif strIslem = "onayla" Then If blnAdmin <> True Then Response.Write "" Else strHaberID = Temizle(Trim(Request.Querystring("haber"))) If strHaberID <> "" AND IsNumeric(strHaberID) Then kdGenel.open "SELECT haberID, onay FROM tblHaberler WHERE haberID = "& CInt(strHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel("onay") = True kdGenel.Update Response.Write "" Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If Else %>

Haber İşlemleri

<% End If %>