<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Sayfası Ayarlar Bölümü Kodları ' Son Düzenleme: 6 Kasım 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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"))) %> <%=strSiteAdi%> Yönetim Paneli
<% '// Site Ayarlarının Kaydedilmesi If strIslem = "ayar_kaydet" Then If blnAdmin <> True Then Response.Write "

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

" Else '// Varsayılan değerleri veriliyor blnAyarSiteBasligi = True blnAyarSiteYolu = True blnAyarOnayKodu = True blnAyarHaberSayisi = True blnAyarAdminOnay = True blnAyarLinkTuru = True blnAyarKategori = True '// Formdan veriler alınıyor strAyarSiteBasligi = BaslikTemizle(Left(Trim(Request.Form("site_adi")),50)) strAyarSiteAciklamasi = BaslikTemizle(Left(Trim(Request.Form("aciklama")),50)) strAyarSiteYolu = BaslikTemizle(Left(Trim(Request.Form("site_adresi")),255)) strAyarSiteMail = BaslikTemizle(Left(Trim(Request.Form("site_mail")),255)) strAyarSMTPKullanici = BaslikTemizle(Left(Trim(Request.Form("smtp_k")),50)) strAyarSMTPParola = BaslikTemizle(Left(Trim(Request.Form("smtp_s")),50)) strAyarMailServer = BaslikTemizle(Left(Trim(Request.Form("smtp")),50)) strAyarMailBilesen = BaslikTemizle(Left(Trim(Request.Form("m_bilesen")),10)) strAyarTelifYazisi = BaslikTemizle(Trim(Request.Form("copyright"))) strAyarOnayKodu = Temizle(Left(Trim(Request.Form("onay_kodu")),5)) strAyarAdminOnay = Temizle(Left(Trim(Request.Form("admin_onay")),5)) intAyarHaberSayisi = Temizle(Left(Trim(Request.Form("haber_sayisi")),3)) intAyarLinkTuru = Temizle(Trim(Request.Form("url"))) intAyarKoseYazilari = Temizle(Trim(Request.Form("kategori"))) '// Boş alan kontrolü yapılıyor If Len(strAyarSiteBasligi) < 3 Then blnAyarSiteBasligi = False If Len(strAyarSiteYolu) < 10 Then blnAyarSiteYolu = False If strAyarOnayKodu <> "True" AND strAyarOnayKodu <> "False" Then blnAyarOnayKodu = False If strAyarAdminOnay <> "True" AND strAyarAdminOnay <> "False" Then blnAyarAdminOnay = False If intAyarHaberSayisi = "" OR IsNumeric(intAyarHaberSayisi) = False Then blnAyarHaberSayisi = False If intAyarYorumSayisi = "" OR IsNumeric(intAyarYorumSayisi) = False Then blnAyarYorumSayisi = False If intAyarLinkTuru = "" OR IsNumeric(intAyarLinkTuru) = False Then blnAyarLinkTuru = False If intAyarKoseYazilari = "" OR IsNumeric(intAyarKoseYazilari) = False Then blnAyarKategori = False If blnAyarSiteBasligi AND blnAyarSiteYolu AND blnAyarOnayKodu AND blnAyarAdminOnay AND blnAyarHaberSayisi AND blnAyarLinkTuru AND blnAyarKategori Then '// Site adresi düzenleniyor If Right(strAyarSiteYolu,1) = "/" Then strAyarSiteYolu = Left(strAyarSiteYolu,Len(strAyarSiteYolu)-1) SQL = "SELECT TOP 1 * FROM tblAyarlar" With kdGenel .Open SQL, adoCon, 1, 3 If kdGenel.Eof Then .Addnew .Fields("site_adi") = strAyarSiteBasligi .Fields("aciklama") = strAyarSiteAciklamasi .Fields("site_adresi") = strAyarSiteYolu .Fields("copyright") = strAyarTelifYazisi .Fields("onay_kodu") = strAyarOnayKodu .Fields("admin_onay") = strAyarAdminOnay .Fields("haber_sayisi") = intAyarHaberSayisi .Fields("Site_Mail") = strAyarSiteMail .Fields("SMTP_Kullanici") = strAyarSMTPKullanici .Fields("SMTP_Parola") = strAyarSMTPParola .Fields("Mail_Server") = strAyarMailServer .Fields("Mail_Bilesen") = strAyarMailBilesen .Fields("Link_Turu") = intAyarLinkTuru .Update End With Response.Write("

Site Bilgileri Düzenlendi

Ayarlar Sayfasına Dön

") kdGenel.Close Else %>

Formda Boş veya Geçersiz Alanlar Bulundu!

    <% If blnAyarSiteBasligi = False Then %>
  • Site başlığı 3 karakterden kısa veya geçersiz
    • <% End If %> <% If blnAyarSiteYolu = False Then %>
  • Site adresi geçersiz
    • <% End If %> <% If blnAyarHaberSayisi = False Then %>
  • Bir sayfada gösterilecek haber sayısı geçersiz
    • <% End If %> <% If blnAyarAdminOnay = False Then %>
  • Yorumların yayınlanması durumu geçersiz
    • <% End If %> <% If blnAyarLinkTuru = False Then %>
  • Link türü geçersiz
    • <% End If %> <% If blnAyarKategori = False Then %>
  • Köşe yazıları kategorisi geçersiz
    • <% End If %> <% If blnAyarOnayKodu = False Then %>
  • Onay kodu gösterilmesi durumu geçersiz
    • <% End If %>
<% End If End If '// Site Ayarları Bölümü Else If blnAdmin <> True Then Response.Write "

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

" Else On Error Resume Next strAvailableComponents = "" Set objTestMail = Server.CreateObject("Persits.MailSender") If Err.Number = 0 Then Set objTestMail = Nothing strAvailableComponents = strAvailableComponents &"" End If Err.Clear Set objTestMail = Server.CreateObject("SMTPsvg.Mailer") If Err.Number = 0 Then Set objTestMail = Nothing strAvailableComponents = strAvailableComponents &"" End If Err.Clear Set objTestMail = Server.CreateObject("CDONTS.NewMail") If Err.Number = 0 Then Set objTestMail = Nothing strAvailableComponents = strAvailableComponents &"" End If Err.Clear Set objTestMail = Server.CreateObject("CDO.Message") If Err.Number = 0 Then Set objTestMail = Nothing strAvailableComponents = strAvailableComponents &"" End If Err.Clear Set objTestMail = Server.CreateObject("JMail.SMTPMail") If Err.Number = 0 Then Set objTestMail = Nothing strAvailableComponents = strAvailableComponents &"" End If Err.Clear Response.Write "

Site Ayarları

" kdGenel.open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3 If Not kdGenel.EOF Then strAyarSiteAdi = kdGenel("site_adi") strAyarAciklama = kdGenel("aciklama") strAyarAdres = kdGenel("site_adresi") strAyarTelif = kdGenel("copyright") intAyarHaberSayisi = kdGenel("haber_sayisi") intAyarYorumSayisi = kdGenel("yorum_sayisi") blnAyarOnayKodu = kdGenel("onay_kodu") blnAyarAdminOnay = kdGenel("admin_onay") End If kdGenel.Close %>
Genel Bilgiler




*: İşaretli alanların doldurulması gerekmektedir.
1: Site adresinin başına http:// yazınız, adresin sonunda / karakterini yazmayınız. RSS kaynağı ve yazdırılabilir sayfaların doğru çalışması için mutlaka doğru olması gerekmektedir.
Örnek: http://www.siteadresi.com


Gösterim Ayarları


Bu bölümdeki tüm alanların doldurulması gerekmektedir.


URL Yönetimi

2. ve 3. seçeneklerin çalışması için, sitenizin 404 hata sayfasını <%=strScriptYolu%>404.asp olarak ayarlamanız gerekir.
Eğer sunucunuz bu özelliği desteklemiyorsa 1. seçeneği seçmelisiniz.

/> haber_detay.asp?haberID=$id
/> /haber/$id-$baslik.html
/> /haber/$id-$kategori-$baslik.html

E-Posta Ayarları




 

<% End If End If %>