<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Sayfası Editörler Bölümü Kodları ' Son Düzenleme: 18 Aralık 2007 (v0.5.1) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" strIslem = Temizle(Trim(Request.QueryString("islem"))) On Error Resume Next blnAspUpload = False blnAspJpeg = False Set objTestMail = Server.CreateObject("Persits.Upload") If Err.Number = 0 Then Set objTestMail = Nothing blnAspUpload = True End If Err.Clear Set objTestMail = Server.CreateObject("Persits.Jpeg") If Err.Number = 0 Then Set objTestMail = Nothing blnAspJpeg = True End If Err.Clear %> <%=strSiteAdi%> Yönetim Paneli
<% '// Yeni Editör Ekleme Formu If strIslem = "editor_ekle" Then If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else %>

Editör Ekle

Kullanıcı Bilgileri " class="input" maxlength="15" size="75" />




Kişisel Bilgiler " maxlength="15" size="75" />
" maxlength="255" size="75" />
" maxlength="255" size="75" />
" class="input" maxlength="255" size="75" />


<% If blnAspUpload = True AND blnAspJpeg = True Then %>
Resim Yükle

<% End If %>

 

<% End If '// Editör Ekleme Formunun Kaydedilmesi Elseif strIslem = "editor_ekle_islem" Then If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else '// Varsayılan değerler veriliyor blnKullaniciAdi = True blnKullaniciKayitli = False blnSifre = True blnSifreUyusmuyor = False blnEPosta = True blnEPostaGecersiz = False blnEPostaKayitli = False blnMailGizle = True blnSeviye = True '// Formdan veriler alınıyor strKullaniciAdi = Temizle(Left(Trim(Request.Form("kullanici")),15)) strSifre = Temizle(Trim(Left(Request.Form("sifre"),50))) strSifre2 = Temizle(Trim(Left(Request.Form("sifre2"),50))) strEPosta = Temizle(Left(Trim(Request.Form("eposta")),255)) strResim = Temizle(Left(Trim(Request.Form("resim")),255)) strAd = Temizle(Left(Trim(Request.Form("ad")),255)) strEPostaGizle = Temizle(Trim(Request.Form("eposta_gizle"))) strWebSite = Temizle(Left(Trim(Request.Form("web")),255)) strSeviye = Temizle(Left(Trim(Request.Form("seviye")),3)) strUyeHakkinda = BaslikTemizle(Request.Form("hakkinda")) '// Kullanıcı adının kayıtlı olup olmadığı kontrol ediliyor kdGenel.open "SELECT kullanici FROM tblUyeler WHERE kullanici = '"& strKullaniciAdi &"'", adoCon, 1, 3 If Not kdGenel.Eof Then blnKullaniciKayitli = True End If kdGenel.Close If strEPosta <> "" Then '// E-Posta adresinin kayıtlı olup olmadığı kontrol ediliyor kdGenel.open "SELECT eposta FROM tblUyeler WHERE eposta = '"& strEPosta &"'", adoCon, 1, 3 If Not kdGenel.Eof Then blnEPostaKayitli = True End If kdGenel.Close If strEPostaGizle <> "True" AND strEPostaGizle <> "False" Then blnMailGizle = False End If '// Şifrelerin aynı olup olmadığı kontrol ediliyor If strSifre <> strSifre2 Then blnSifreUyusmuyor = True '// Alanlar kontrol ediliyor If Len(strKullaniciAdi) < 4 Then blnKullaniciAdi = False If Len(strSifre) < 4 Then blnSifre = False If blnEPostaGecersiz OR blnEPostaKayitli Then blnEPosta = False If strSeviye <> "1" AND strSeviye <> "2" Then blnSeviye = False If blnKullaniciAdi AND blnKullaniciKayitli = False AND blnSifre AND blnSifreUyusmuyor = False AND blnSeviye AND blnMailGizle Then kdGenel.Open "SELECT * FROM tblUyeler", adoCon, 1, 3 kdGenel.Addnew kdGenel("Kullanici") = strKullaniciAdi kdGenel("Kod") = MD(strKullaniciAdi) kdGenel("Sifre") = MD(strSifre) kdGenel("Eposta") = strEPosta kdGenel("Seviye") = strSeviye kdGenel("Ad") = strAd kdGenel("Eposta_Gizle") = strEPostaGizle kdGenel("WebSite") = strWebSite kdGenel("Resim") = strResim kdGenel("Hakkinda") = strUyeHakkinda kdGenel("Uyelik_Tarihi") = Now() kdGenel.Update kdGenel.Close Response.Write("

Editör Kaydedildi

Yeni Editör Ekle

") Else %>

Formda Boş veya Geçersiz Alanlar Bulundu!

    <% If blnKullaniciAdi = False Then %>
  • Kullanıcı adı 4 karakterden kısa veya geçersiz
    • <% End If %> <% If blnKullaniciKayitli Then %>
  • Bu kullanıcı adı başka bir editör tarafından kullanılıyor
    • <% End If %> <% If blnSifreUyusmuyor Then %>
  • Yazdığınız şifreler birbiriyle uyuşmuyor
    • <% End If %> <% If blnSifre = False Then %>
  • Şifre 4 karakterden kısa veya geçersiz
    • <% End If %> <% If blnMailGizle = False Then %>
  • E-Posta adresi gösterim durumu geçersiz
    • <% End If %> <% If blnEPostaKayitli Then %>
  • Bu e-posta adı başka bir editör tarafından kullanılıyor
    • <% End If %> <% If blnEPosta = False Then %>
  • Yazdığınız e-posta adresi geçersiz
    • <% End If %> <% If blnSeviye = False Then %>
  • Üyelik grubu numarası geçersiz
    • <% End If %>
<% For Each Deger In Request.Form If Deger <> "sifre" AND Deger <> "sifre2" Then Response.Write "" Next %>
<% End If End If '// Editör Düzenleme Formu Elseif strIslem = "editor_duzenle" Then If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else intEditorID = Temizle(Trim(Request.Querystring("editor"))) If intEditorID <> "" AND IsNumeric(intEditorID) AND inrEditorID <> 2 Then kdGenel.open "SELECT * FROM tblUyeler WHERE uyeID="& CInt(intEditorID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then %>

Editör Düzenle

Kullanıcı Bilgileri " class="input" maxlength="15" size="75" />




Kişisel Bilgiler " maxlength="15" size="75" />
" maxlength="255" size="75" />
" maxlength="255" size="75" />
" class="input" maxlength="255" size="75" />


<% If blnAspUpload = True AND blnAspJpeg = True Then %>
Resim Yükle

<% End If %>

" /> 

<% Else Response.Write "

Editör Bulunamadı

" End If Else Response.Write "

Editör Bulunamadı

" End If End If '// Editör Düzenlemenin Kaydedilmesi Elseif strIslem = "editor_duzenle_islem" Then If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else intEditorID = Temizle(Trim(Request.Form("editorID"))) If intEditorID <> "" AND IsNumeric(intEditorID) Then kdGenel.Open "SELECT * FROM tblUyeler WHERE uyeID = "& CInt(intEditorID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then '// Varsayılan değerler veriliyor blnKullaniciAdi = True blnKullaniciKayitli = False blnSifre = True blnSifreUyusmuyor = False blnMailGizle = true blnSeviye = True blnSifreDegisikligi = False '// Formdan veriler alınıyor strKullaniciAdi = Temizle(Left(Trim(Request.Form("kullanici")),15)) strSifre = Temizle(Trim(Left(Request.Form("sifre"),50))) strSifre2 = Temizle(Trim(Left(Request.Form("sifre2"),50))) strEPosta = Temizle(Left(Trim(Request.Form("eposta")),255)) strResim = Temizle(Left(Trim(Request.Form("resim")),255)) strAd = Temizle(Left(Trim(Request.Form("ad")),255)) strEPostaGizle = Temizle(Trim(Request.Form("eposta_gizle"))) strWebSite = Temizle(Left(Trim(Request.Form("web")),255)) strSeviye = Temizle(Left(Trim(Request.Form("seviye")),3)) strUyeHakkinda = BaslikTemizle(Request.Form("hakkinda")) '// Kullanıcı adının kayıtlı olup olmadığı kontrol ediliyor kdYardimci.open "SELECT uyeID, kullanici FROM tblUyeler WHERE uyeID <> "& CInt(intEditorID) &" AND kullanici = '"& strKullaniciAdi &"'", adoCon, 1, 3 If Not kdYardimci.Eof Then blnKullaniciKayitli = True End If kdYardimci.Close '// Şifre değişikliği kontrolü If Len(strSifre) > 1 OR Len(strSifre2) > 1 Then blnSifreDegisikligi = True '// Şifrelerin aynı olup olmadığı kontrol ediliyor If blnSifreDegisikligi AND strSifre <> strSifre2 Then blnSifreUyusmuyor = True '// Alanlar kontrol ediliyor If Len(strKullaniciAdi) < 4 Then blnKullaniciAdi = False If blnSifreDegisikligi AND (Len(strSifre) < 4 OR Len(strSifre2) < 4) Then blnSifre = False If strSeviye <> "1" AND strSeviye <> "2" Then blnSeviye = False If strEPostaGizle <> "True" AND strEPostaGizle <> "False" Then blnMailGizle = False If blnKullaniciAdi AND blnSifre AND blnSifreUyusmuyor = False AND blnSeviye AND blnMailGizle Then If blnSifreDegisikligi Then kdGenel("sifre") = MD(strSifre) kdGenel("Kullanici") = strKullaniciAdi kdGenel("Kod") = MD(strKullaniciAdi) kdGenel("Eposta") = strEPosta kdGenel("Seviye") = strSeviye kdGenel("Ad") = strAd kdGenel("Hakkinda" ) = strUyeHakkinda kdGenel("Eposta_Gizle") = strEPostaGizle kdGenel("WebSite") = strWebSite kdGenel("Resim") = strResim kdGenel.Update Response.Write("

Editör Bilgileri Düzenlendi

Editör Listesi

") Else %>

Formda Boş veya Geçersiz Alanlar Bulundu!

    <% If blnKullaniciAdi = False Then %>
  • Kullanıcı adı 4 karakterden kısa veya geçersiz
    • <% End If %> <% If blnKullaniciKayitli Then %>
  • Bu kullanıcı adı başka bir editör tarafından kullanılıyor
    • <% End If %> <% If blnSifreDegisikligi AND blnSifreUyusmuyor Then %>
  • Yazdığınız şifreler birbiriyle uyuşmuyor
    • <% End If %> <% If blnSifreDegisikligi AND blnSifre = False Then %>
  • Şifre 4 karakterden kısa veya geçersiz
    • <% End If %> <% If blnMailGizle = False Then %>
  • E-Posta adresi gösterim durumu geçersiz
    • <% End If %> <% If blnEPostaKayitli Then %>
  • Bu e-posta adı başka bir editör tarafından kullanılıyor
    • <% End If %> <% If blnEPosta = False Then %>
  • Yazdığınız e-posta adresi geçersiz
    • <% End If %> <% If blnSeviye = False Then %>
  • Üyelik grubu numarası geçersiz
    • <% End If %>
<% End If Else Response.Write "

Editör Bulunamadı

" End If kdGenel.Close Else Response.Write "

Editör Bulunamadı

" End If End If '// Editör Silme Bölümü Elseif strIslem = "editor_sil" Then If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else intEditorID = Temizle(Trim(Request.Querystring("editor"))) If intEditorID <> "" AND IsNumeric(intEditorID) AND intEditorID <> 2 Then kdGenel.Open "SELECT * FROM tblUyeler WHERE uyeID = "& CInt(intEditorID) &"", adoCon, 1, 3 If NOT kdGenel.EOF Then kdYardimci.Open "SELECT editor FROM tblHaberler WHERE editor = "& CInt(intEditorID) &"", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof kdYardimci("editor") = 2 kdYardimci.Update kdYardimci.Movenext Loop End If kdYardimci.Close kdGenel.Delete kdGenel.Update Response.Write("

Editör Silindi

Editör Listesi

") Else Response.Write "

Editör Bulunamadı

" End If kdGenel.Close Else Response.Write "

Editör Bulunamadı

" End If End If '// Editör Listeleme Bölümü Else If blnAdmin <> True Then Response.Write "

Bu Bölümü Görme Yetkiniz Yok

" Else Response.Write "

Editör Listesi

" kdGenel.Open "SELECT * FROM tblUyeler ORDER BY UyeID ASC, kullanici ASC", adoCon, 1, 3 If Not kdGenel.Eof Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Do While NOT kdGenel.EOF If kdGenel("seviye") = "1" Then strSeviye = "Admin" Else strSeviye = "Editör" End If Response.Write "" Response.Write "" Response.Write "" kdGenel.Movenext Loop Response.Write "
Kullanıcı AdıGrupSil
"& kdGenel("kullanici") &""& strSeviye &"" If kdGenel("uyeID") <> 2 Then Response.Write "Sil" Response.Write " 
" End If End If End If %>