MyDesign Haber

Yönetim Paneli

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

<% Call UstMenu("yorumlar","

","

","

","

") %>

<% Call AltMenu("yorumlar","

","

","

","

") %>

<% '// Yorum Düzenleme Formu If strIslem = "yorum_duzenle" Then If blnAdmin <> True Then Response.Write "" Else Response.Write "

Yorum Düzenle

" intYorumID = Temizle(Trim(Request.Querystring("yorumID"))) If intYorumID <> "" AND IsNumeric(intYorumID) Then kdGenel.open "SELECT * FROM tblYorumlar WHERE yorumID = "& intYorumID &"",adoCon, 1, 3 If NOT kdGenel.EOF Then %>

Yorum Bilgileri

Haber : <% kdYardimci.Open "SELECT onay, haberID, baslik FROM tblHaberler WHERE onay = True ORDER BY baslik ASC", adoCon, 1, 3 Do While Not kdYardimci.EOF %> "<% If CInt(kdGenel("haber")) = kdYardimci("haberID") Then Response.Write " selected"%>><%=kdYardimci("baslik")%><% kdYardimci.MoveNext Loop kdYardimci.Close %>
Yayınlanma Durumu : >Aktif>Pasif
Yazan : " />
E-Posta : " />
Yorum Metni : <%=kdGenel("yorum")%>

"> 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Yorum Düzenlemenin Kaydedilmesi Elseif strIslem = "yorum_duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else '// Varsayılan değerler veriliyor blnYorumID = True blnYazan = True blnEPosta = True blnDurum = True blnHaber= True blnYorum = True '// Formdan veriler alınıyor intYorumID = Temizle(Trim(Request.Form("yorumID"))) strYazan = Temizle(Left(Trim(Request.Form("yazan")),50)) strEPosta = Temizle(Left(Trim(Request.Form("eposta")),255)) strDurum = Temizle(Trim(Request.Form("durum"))) intHaberID = Temizle(Trim(Request.Form("haber"))) strYorum = BaslikTemizle(Trim(Request.Form("yorum"))) '// Boş alanlar kontrol ediliyor If Len(strYazan) < 3 Then blnYazan = False If Len(strYorum) < 5 Then blnYorum = False If IsMail(strEPosta) = False Then blnEPosta = False If strDurum <> "True" AND strDurum <> "False" Then blnDurum = False If intHaberID = "" OR IsNumeric(intHaberID) = False Then blnHaber = False If intYorumID = "" OR IsNumeric(intYorumID) = False Then blnYorumID = False kdGenel.Open "SELECT haberID FROM tblHaberler WHERE haberID = "& intHaberID &"", adoCon, 1, 3 If kdGenel.Eof Then blnHaber = False kdGenel.Close If blnYazan AND blnYorum AND blnDurum AND blnYorumID AND blnHaber AND blnEPosta Then kdGenel.open "SELECT * FROM tblYorumlar WHERE yorumID = "& CInt(intYorumID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then kdGenel("haber") = intHaberID kdGenel("yazan") = strYazan kdGenel("eposta") = strEPosta kdGenel("durum") = strDurum kdGenel("yorum") = strYorum kdGenel.Update Response.Write("") Else Response.Write "" End If kdGenel.Close Else %> <% End If End If '// Yorum Silme Bölümü Elseif strIslem = "yorum_sil" Then If blnAdmin <> True Then Response.Write "" Else intYorumID = Temizle(Trim(Request.Querystring("yorumID"))) If intYorumID <> "" AND IsNumeric(strYorumID) Then kdGenel.open "SELECT yorumID FROM tblYorumlar WHERE yorumID = "& CInt(intYorumID) &"", 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 '// Yorum Onaylama Bölümü Elseif strIslem = "yorum_onayla" Then If blnAdmin <> True Then Response.Write "" Else intYorumID = Temizle(Trim(Request.Querystring("yorumID"))) If intYorumID <> "" AND IsNumeric(strYorumID) Then kdGenel.open "SELECT yorumID, durum FROM tblYorumlar WHERE yorumID = "& CInt(intYorumID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdGenel("Durum") = True kdGenel.Update Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Tüm Yorumları Onaylama Bölümü Elseif strIslem = "hepsini_onayla" Then If blnAdmin <> True Then Response.Write "" Else kdGenel.open "SELECT durum FROM tblYorumlar WHERE durum = False", adoCon, 1, 3 If NOT kdGenel.EOF Then intLooper = 0 Do While Not kdGenel.Eof kdGenel("Durum") = True kdGenel.Update intLooper = intLooper + 1 kdGenel.Movenext Loop Response.Write("") Else Response.Write "" End If kdGenel.Close End If '// Yorum Taşıma Formu Elseif strIslem = "yorum_tasi" Then If blnAdmin <> True Then Response.Write "" Else Response.Write "

Yorum Taşıma

" %>

Kaynak Haber

<% kdYardimci.Open "SELECT onay, haberID, baslik FROM tblHaberler WHERE onay = True ORDER BY baslik ASC", adoCon, 1, 3 Do While Not kdYardimci.EOF %> "><%=kdYardimci("baslik")%><% kdYardimci.MoveNext Loop kdYardimci.Close %>

Yorumların Taşınacağı Haber

<% kdYardimci.Open "SELECT onay, haberID, baslik, yorum FROM tblHaberler WHERE onay = True ORDER BY baslik ASC", adoCon, 1, 3 Do While Not kdYardimci.EOF %> "><%=kdYardimci("baslik")%><% kdYardimci.MoveNext Loop kdYardimci.Close %>

 

<% End If '// Yorum taşıma Bölümü Elseif strIslem = "yorum_tasi_islem" Then If blnAdmin <> True Then Response.Write "" Else intKaynakHaberID = Temizle(Trim(Request.Form("kaynak"))) intYeniHaberID = Temizle(Trim(Request.Form("yeni_haber"))) If intKaynakHaberID <> "" AND IsNumeric(intKaynakHaberID) AND intYeniHaberID <> "" AND IsNumeric(intYeniHaberID) Then intLooper = 0 kdGenel.Open "SELECT haber FROM tblYorumlar WHERE haber = "& CInt(intKaynakHaberID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then Do While Not kdGenel.Eof kdGenel("haber") = intYeniHaberID kdGenel.Update intLooper = intLooper + 1 kdGenel.Movenext Loop Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Yorum Listeleme Bölümü Else If blnAdmin <> True Then Response.Write "" Else strMod = Temizle(Request.Querystring("mod")) strSirala = Temizle(Request.Querystring("sirala")) strListele = Temizle(Request.Querystring("listele")) If strSirala = "" Then strSirala = "tarih" If strListele = "" Then strListele = "DESC" SQL = "SELECT * FROM tblYorumlar" If strMod = "onaysiz" Then SQL = SQL & " WHERE durum=False" strH1 = "Onay Bekleyen Yorumlar" Else SQL = SQL & " WHERE durum=True" strH1 = "Aktif Yorumlar" End If SQL = SQL & " ORDER BY "& strSirala &" "& strListele &"" kdYorum.Open SQL, adoCon, 1, 3 Toplam = kdYorum.RecordCount Response.Write "

"& strH1 &"

" If Toplam = 0 Then If strMod = "onaysiz" Then Response.Write "Onay bekleyen yorum bulunmuyor." Else Response.Write "Henüz yorum yazılmamış." End If Else %>
<% If strMod = "onaysiz" Then Response.Write "Tüm Yorumları Onayla

" End If Kayit_S = 10 kdYorum.PageSize = Kayit_S If Temizle(Request.QueryString("SF")) = "" Then G_Kayit = 1 Else G_Kayit = CInt(Temizle(Request.QueryString("SF"))) End If T_Kayit=kdYorum.PageCount If G_Kayit > T_Kayit Then G_Kayit = TKayit If G_Kayit < 1 Then G_Kayit = 1 If T_Kayit <> 0 Then kdYorum.AbsolutePage = G_Kayit End if i = 0 Do while i < Kayit_S AND Not kdYorum.Eof kdGenel.open "SELECT haberID, baslik FROM tblHaberler WHERE haberID = "& CInt(kdYorum("haber")) &"", adoCon, 1, 3 strhaberBasligi = kdGenel("baslik") kdGenel.Close %>

IP: <%=kdYorum("ip")%> | Haber: <%=strHaberBasligi%> | ">Düzenle<% If strMod="onaysiz" Then %> | ">Onayla<% End If %> | " onClick="return Sil()">Sil

<% i = i + 1 kdYorum.MoveNext Loop for k=1 to T_Kayit StrSayfaSayisi = k SayfaSayisi= StrSayfaSayisi if k = G_Kayit then %> <%=StrSayfaSayisi%>. <% Else %> <%=StrSayfaSayisi%>. <% End If Next End If kdYorum.Close End If End If %>