MyDesign Haber

Yönetim Paneli

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

<% Call UstMenu("reklam","

","

","

","

") %>

<% Call AltMenu("reklam","

","

","

","

") %>

<% '// Alan Düzenleme Bölümü If strIslem = "alan_duzenle" Then If blnAdmin <> True Then Response.Write "" Else intAlanID = Temizle(Trim(Request.Querystring("alan"))) If intAlanID <> "" AND IsNumeric(intAlanID) Then kdGenel.open "SELECT * FROM tblBannerAlanlar WHERE Alan_ID="& CInt(intAlanID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then %>

Reklam Alanı Düzenle

Reklam Alanı Düzenle

Alan Adı : " class="input" size="75" />

 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Alan Düzenlemenin Kaydedilmesi Elseif strIslem = "alan_duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else intAlanID = Temizle(Trim(Request.Form("AlanID"))) strAlanAdi = BaslikTemizle(Trim(Request.Form("Alan_adi"))) If intAlanID <> "" AND IsNumeric(intAlanID) AND strAlanAdi <> "" Then kdGenel.open "SELECT * FROM tblBannerAlanlar WHERE Alan_ID="& CInt(intAlanID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then kdGenel("Alan") = strAlanAdi kdGenel.Update Response.Write("") Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Alan Ekleme Formu Elseif strIslem = "alan_ekle" Then If blnAdmin <> True Then Response.Write "" Else %>

Reklam Alanı Ekle

Alan Bilgileri

Alan Adı :

 

<% End If '// Alan Ekleme Formunun Kaydedilmesi Elseif strIslem = "alan_ekle_islem" Then If blnAdmin <> True Then Response.Write "" Else strAlanAdi = Temizle(Trim(Request.Form("Alan_adi"))) If strAlanAdi <> "" Then kdGenel.Open "SELECT * FROM tblBannerAlanlar", adoCon, 1, 3 kdGenel.AddNew kdGenel("Alan") = strAlanAdi kdGenel.Update kdGenel.Close Response.Write("") Else Response.Write "" End If End If '// Alan Silinmesi Elseif strIslem = "alan_sil" Then If blnAdmin <> True Then Response.Write "" Else blnSil = Temizle(Trim(Request.Querystring("sil"))) intAlanID = Temizle(Trim(Request.Querystring("alan"))) If intAlanID <> "" AND IsNumeric(intAlanID) Then kdGenel.Open "DELETE FROM tblBannerAlanlar WHERE Alan_ID = "& CInt(intAlanID) &"", adoCon, 1, 3 Response.Write("") Else Response.Write "" End If End If '// Reklam Ekleme Formu Elseif strIslem = "reklam_ekle" Then If blnAdmin <> True Then Response.Write "" Else strMod = Temizle(Request.Querystring("mod")) %>

Reklam Ekle

Reklam Bilgileri

Reklam Alanı : <% kdGenel.Open "SELECT * FROM tblBannerAlanlar ORDER BY Alan ASC", adoCon, 1, 3 If Not kdGenel.Eof Then Do While Not kdGenel.Eof Response.Write ""& kdGenel("Alan") &"" kdGenel.Movenext Loop End If kdGenel.Close %>
Ad :
<% If strMod = "html" Then %> Kod :
<% Else %> Hedef URL :
Resim :
Genişlik :
Yükseklik :
Alt Metin :
Pencere : Aynı Pencerede Açılsın Yeni Pencerede Açılsın
<% End If %> Başlangıç Tarihi : <% For intLooper = 1 To 31 %> ><%=intLooper%><% Next %> <% For intLooper = 1 To 12 %> ><%=intLooper%><% Next %> <% For intLooper = Year(Date()) To 2010 %> ><%=intLooper%><% Next %>
Bitiş Tarihi : <% For intLooper = 1 To 31 %> ><%=intLooper%><% Next %> <% For intLooper = 1 To 12 %> ><%=intLooper%><% Next %> <% For intLooper = Year(Date()) To 2010 %> ><%=intLooper%><% Next %>

 

<% End If '// Reklam Ekleme Elseif strIslem = "reklam_ekle_islem" Then If blnAdmin <> True Then Response.Write "" Else blnAd = True blnResim = True blnUrl = True blnAlan = True blnGenislik = True blnYukseklik = True blnKod = True '// Formdan Veriler Alınıyor intAlanID = Temizle(Trim(Request.Form("alan"))) strAd = Temizle(Trim(Request.Form("ad"))) strResim = Temizle(Trim(Request.Form("resim"))) intGenislik = Temizle(Trim(Request.Form("genislik"))) intYukseklik = Temizle(Trim(Request.Form("yukseklik"))) strAlt = Temizle(Trim(Request.Form("alt"))) strUrl = Temizle(Trim(Request.Form("url"))) strPencere = Temizle(Trim(Request.Form("pencere"))) intBasGun = Temizle(Trim(Request.Form("basgun"))) intBasAy = Temizle(Trim(Request.Form("basay"))) intBasYil = Temizle(Trim(Request.Form("basyil"))) intBitAy = Temizle(Trim(Request.Form("bitay"))) intBitGun = Temizle(Trim(Request.Form("bitgun"))) intBitYil = Temizle(Trim(Request.Form("bityil"))) strMod = Temizle(Trim(Request.Form("mod"))) strKod = Trim(Request.Form("kod")) If intBasGun = "" Or IsNumeric(intBasGun) = False Then intBasGun = Day(Date()) If intBasAy = "" Or IsNumeric(intBasAy) = False Then intBasAy = Month(Date()) + 1 If intBasYil = "" Or IsNumeric(intBasYil) = False Then intBasYil = Year(Date()) If intBitGun = "" Or IsNumeric(intBitGun) = False Then intBitGun = Day(Date()) If intBitAy = "" Or IsNumeric(intBitAy) = False Then intBitAy = Month(Date()) If intBitYil = "" Or IsNumeric(intBitYil) = False Then intBitYil = Year(Date()) If strMod = "html" Then blnHTML = True Else blnHTML = False End If '// Boş Alanlar Kontrol Ediliyor If Len(strAd) < 3 Then blnAd = False If strMod = "html" AND strKod = "" Then blnKod = False If strMod <> "html" AND Len(strResim) < 5 Then blnResim = False If strMod <> "html" AND Len(strUrl) < 5 Then blnUrl = False If strMod <> "html" AND (intGenislik = "" OR IsNumeric(intGenislik) = False) Then blnGenislik = False If strMod <> "html" AND (intYukseklik = "" OR IsNumeric(intYukseklik) = False) Then blnYukseklik = False If intAlanID = "" OR IsNumeric(intAlanID) = False Then blnAlan = False If blnAd AND blnResim AND blnUrl AND blnAlan AND blnGenislik AND blnYukseklik AND blnKod Then SQL = "SELECT * FROM tblBanner" With kdGenel .Open SQL, adoCon, 1, 3 .AddNew .Fields("Alan_ID") = intAlanID .Fields("Isim") = strAd If strMod = "html" Then .Fields("Kod") = strKod Else .Fields("Baslik") = strAlt .Fields("Resim") = strResim .Fields("Url") = strUrl .Fields("Genislik") = intGenislik .Fields("Yukseklik") = intYukseklik .Fields("Pencere") = strPencere End If .Fields("Baslangic") = CDate(intBasAy&"/"&intBasGun&"/"&intBasYil) .Fields("Bitis") = CDate(intBitAy&"/"&intBitGun&"/"&intBitYil) .Fields("Durum") = True .Fields("Html") = blnHTML .Update .Close End With Response.Write("") Else %> <% End If End If '// Reklam Düzenleme Formu Elseif strIslem = "reklam_duzenle" Then If blnAdmin <> True Then Response.Write "" Else intReklamID = Temizle(Trim(Request.Querystring("r"))) If intReklamID <> "" AND IsNumeric(intReklamID) Then kdGenel.Open "SELECT * FROM tblBanner WHERE Banner_ID="& CInt(intreklamID) &"", adoCon, 1, 3 If Not kdGenel.EOF Then %>

Reklam Düzenle

Reklam Bilgileri

Reklam Alanı : <% kdYardimci.Open "SELECT * FROM tblBannerAlanlar ORDER BY Alan ASC", adoCon, 1, 3 If Not kdYardimci.Eof Then Do While Not kdYardimci.Eof Response.Write ""& kdYardimci("Alan") &"" kdYardimci.Movenext Loop End If kdYardimci.Close %>
Ad : " class="input" size="75" />
<% If kdGenel("Html") = True Then %> Kod : <%=kdGenel("Kod")%>
<% Else %> Hedef URL : " class="input" size="75" />
Resim : " class="input" size="75" />
Genişlik : " class="input" size="75" />
Yükseklik : " class="input" size="75" />
Alt Metin : " class="input" size="75" />
Pencere : >Aynı Pencerede Açılsın >Yeni Pencerede Açılsın
<% End If %> Başlangıç Tarihi : <% For intLooper = 1 To 31 %> ><%=intLooper%><% Next %> <% For intLooper = 1 To 12 %> ><%=intLooper%><% Next %> <% For intLooper = Year(Date()) To 2010 %> ><%=intLooper%><% Next %>
Bitiş Tarihi : <% For intLooper = 1 To 31 %> ><%=intLooper%><% Next %> <% For intLooper = 1 To 12 %> ><%=intLooper%><% Next %> <% For intLooper = Year(Date()) To 2010 %> ><%=intLooper%><% Next %>
Gösterim Durumu : >Aktif >Pasif

 

<% Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Reklam Düzenleme Elseif strIslem = "reklam_duzenle_islem" Then If blnAdmin <> True Then Response.Write "" Else blnAd = True blnResim = True blnUrl = True blnAlan = True blnGenislik = True blnYukseklik = True blnKod = True blnReklamID = True blnDurum = True '// Formdan Veriler Alınıyor intAlanID = Temizle(Trim(Request.Form("alan"))) intReklamID = Temizle(Trim(Request.Form("r"))) strDurum = Temizle(Trim(Request.Form("durum"))) strAd = Temizle(Trim(Request.Form("ad"))) strResim = Temizle(Trim(Request.Form("resim"))) intGenislik = Temizle(Trim(Request.Form("genislik"))) intYukseklik = Temizle(Trim(Request.Form("yukseklik"))) strAlt = Temizle(Trim(Request.Form("alt"))) strUrl = Temizle(Trim(Request.Form("url"))) strPencere = Temizle(Trim(Request.Form("pencere"))) intBasGun = Temizle(Trim(Request.Form("basgun"))) intBasAy = Temizle(Trim(Request.Form("basay"))) intBasYil = Temizle(Trim(Request.Form("basyil"))) intBitAy = Temizle(Trim(Request.Form("bitay"))) intBitGun = Temizle(Trim(Request.Form("bitgun"))) intBitYil = Temizle(Trim(Request.Form("bityil"))) strKod = Trim(Request.Form("kod")) If intBasGun = "" Or IsNumeric(intBasGun) = False Then intBasGun = Day(Date()) If intBasAy = "" Or IsNumeric(intBasAy) = False Then intBasAy = Month(Date()) + 1 If intBasYil = "" Or IsNumeric(intBasYil) = False Then intBasYil = Year(Date()) If intBitGun = "" Or IsNumeric(intBitGun) = False Then intBitGun = Day(Date()) If intBitAy = "" Or IsNumeric(intBitAy) = False Then intBitAy = Month(Date()) If intBitYil = "" Or IsNumeric(intBitYil) = False Then intBitYil = Year(Date()) If intReklamID <> "" AND IsNumeric(intReklamID) Then kdGenel.Open "SELECT * FROM tblBanner WHERE Banner_ID = "& intReklamID &"", adoCon, 1, 3 If Not kdGenel.Eof Then If kdGenel("Html") = True Then strMod = "html" If strMod = "html" Then blnHTML = True Else blnHTML = False End If '// Boş Alanlar Kontrol Ediliyor If Len(strAd) < 3 Then blnAd = False If strMod = "html" AND strKod = "" Then blnKod = False If strMod <> "html" AND Len(strResim) < 5 Then blnResim = False If strMod <> "html" AND Len(strUrl) < 5 Then blnUrl = False If strMod <> "html" AND (intGenislik = "" OR IsNumeric(intGenislik) = False) Then blnGenislik = False If strMod <> "html" AND (intYukseklik = "" OR IsNumeric(intYukseklik) = False) Then blnYukseklik = False If intAlanID = "" OR IsNumeric(intAlanID) = False Then blnAlan = False If strDurum <> " True" AND strDurum <> "False" Then blnDurum = False If blnAd AND blnResim AND blnUrl AND blnAlan AND blnGenislik AND blnYukseklik AND blnKod AND blnDurum Then With kdGenel .Fields("Alan_ID") = intAlanID .Fields("Isim") = strAd If strMod = "html" Then .Fields("Kod") = strKod Else .Fields("Baslik") = strAlt .Fields("Resim") = strResim .Fields("Url") = strUrl .Fields("Genislik") = intGenislik .Fields("Yukseklik") = intYukseklik .Fields("Pencere") = strPencere End If .Fields("Baslangic") = CDate(intBasAy&"/"&intBasGun&"/"&intBasYil) .Fields("Bitis") = CDate(intBitAy&"/"&intBitGun&"/"&intBitYil) .Fields("Durum") = CBool(strDurum) .Update End With Response.Write("") Else %> <% End If Else Response.Write "" End If kdGenel.Close Else Response.Write "" End If End If '// Reklam Silinmesi Elseif strIslem = "reklam_sil" Then If blnAdmin <> True Then Response.Write "" Else intReklamID = Temizle(Trim(Request.Querystring("r"))) If intReklamID <> "" AND IsNumeric(intReklamID) Then kdGenel.Open "DELETE FROM tblBanner WHERE Banner_ID = "& CInt(intReklamID) &"", adoCon, 1, 3 Response.Write("") Else Response.Write "" End If End If '// Reklam Listeleme Bölümü Elseif strIslem = "reklamlar" Then If blnAdmin <> True Then Response.Write "" Else Response.Write "

Reklamlar

" kdGenel.open "SELECT * FROM tblBanner", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Henüz reklam eklenmedi." Else Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Do While NOT kdGenel.EOF If kdGenel("Durum") = True Then strDurum = "Aktif" Else strDurum = "Pasif" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" kdGenel.Movenext Loop Response.Write "

Ad	Alan	Gösterim	Tıklanma	Durum	Sil
"& kdGenel("Isim") &"	"& AlanBul(kdGenel("Alan_ID")) &"	"& kdGenel("Gosterim") &"	"& kdGenel("Tiklama") &"	"& strDurum &"	Sil

" End If kdGenel.Close End If '// Reklam Alanı Listeleme Bölümü Else If blnAdmin <> True Then Response.Write "" Else Response.Write "

Reklam Alanları

" kdGenel.open "SELECT * FROM tblBannerAlanlar", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Henüz alan oluşturulmadı." Else Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Do While NOT kdGenel.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" kdGenel.Movenext Loop Response.Write "

Alan Adı	Kod	Sil
"& kdGenel("Alan") &"	<%=BannerGoster("& kdGenel("Alan_ID") &")%>	Sil

" End If kdGenel.Close Response.Write "

Akana karşılık gelen kodu, sitenizde, reklamın görünmesini istediğiniz kısıma yerleştiriniz.
" & _ "Sistem o alandaki reklamları rastgele gösterecektir.

" End If End If adoCon.Close Set adoCon = Nothing %>