Günlük haftalık saatlik banner yayını anlatım
DATABASE TABLOMUZ
Tablomuzda bannerlerimizi id leyip
gün saat belirleyip isimlendiriyoruz
CREATE TABLE `tblpbanner` ( `ID` int(11) NOT NULL auto_increment, `HOUR` int(11) NOT NULL default '0', `DAY` int(11) NOT NULL default '0', `BANNER` varchar(200) collate utf8_turkish_ci NOT NULL default '', `URL` varchar(200) collate utf8_turkish_ci NOT NULL default '', `NAME` varchar(200) collate utf8_turkish_ci NOT NULL default '', `REGION` tinyint(3) unsigned NOT NULL default '0', PRIMARY KEY (`ID`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_turkish_ci AUTO_INCREMENT=1 ; -- -- Tablo döküm verisi `tblpbanner` --BAĞLANTI SAYFAMIZ
<%
Session.CodePage = 1254
Session.LCID= 1033
response.ContentType="text/html; charset=utf-8"
set rs1 = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
strCon = "Driver={MySQL ODBC 3.51 Driver};Port=4306;Option=3;" & "Server=" & "localhost" & ";User ID=" & "data kullanıcısı" & ";Password=" & "şifre" & ";Database=" & "databasemiz" & ";"
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open strCon
function getUnique()
dim unique_id
application.Lock()
if application("unique_id")<>"" then
unique_id=clng(application("unique_id"))+1
if(unique_id>30000)then
unique_id=1
end if
application("unique_id")=unique_id
else
unique_id=1
application("unique_id")=unique_id
end if
application.unLock()
getUnique=unique_id
end function
%>BANNER EKLE/ DÜZENLE (ekle_duzenle.asp)<!--#include file="Bağlantı sayfanız"-->
<%
if request.QueryString("action")="addnew" then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = true
Upload.SetMaxSize 1048576, False
fileName=""
Upload.SaveToMemory()
session("NAME")=trim(Upload.Form("NAME"))
session("URL")=trim(Upload.Form("URL"))
For Each File in Upload.Files
fileName="images/uploads/" & year(now) & month(now) & day(now) & hour(now) & minute(now) & getUnique() & mid(File.FileName,len(File.FileName)-3,4)
File.SaveAs(Server.Mappath(fileName))
session("PICTURE")=FileName
next
for m=1 to 5
if(trim(Upload.Form("B" & m))="yes")then
for i=1 to 7
if(trim(Upload.Form("day" & i))="yes")then
for j=0 to 23
if(trim(Upload.Form("hour" & j))="yes")then
if(session("NAME")<>"" )then
if(len(session("URL"))>0 )then
rs2.locktype=3
rs2.open "SELECT * FROM tblpbanner",adocon
rs2.addnew
rs2("NAME")=session("NAME")
rs2("URL")=session("URL")
rs2("DAY")=i
rs2("HOUR")=j
rs2("REGION")=m
if(session("picture")<>"")then
rs2("BANNER")=session("PICTURE")
end if
rs2.update
rs2.close
else
hata="Banner url griniz."
end if
else
hata="Banner ad giriniz."
end if
end if
next
end if
next
end if
next
session("NAME")=""
session("URL")=""
session("PICTURE")=""
response.Redirect("sil_listele.asp?action=list&addok=True")
end if
%>
<%
Function fileExtension(ByVal strFileName)
'Intilaise return value
fileExtension = False
If (LCase(Right(strFileName, 4)) = ".jpg") Then
fileExtension = True
end if
If (LCase(Right(strFileName, 4)) = ".jpe") Then
fileExtension = True
end if
If (LCase(Right(strFileName, 4)) = ".gif") Then
fileExtension = True
end if
End Function
Function fileSize(Input, FSize)
if clng(Input)<=clng(FSize) then
fileSize=true
else
fileSize=false
end if
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body topmargin="5" leftmargin="5"><br/>
<table width="98%" border="0" cellspacing="0" cellpadding="00">
<tr>
<td><table width="100%" border="1" cellspacing="0" cellpadding="10">
<form action="ekle_duzenle.asp?action=<%if request.QueryString("mode")="edit" or request.QueryString("action")="edit" then%>update&update=<%=request.QueryString("edit")%><%end if%><%if request.QueryString("mode")="addnew" or request.QueryString("action")="addnew" then%>addnew<%end if%>&cat=<%=cat_id%>" method="post" enctype="multipart/form-data" id="myForm" name="myForm">
<table width="66%" border="0" cellpadding="3" cellspacing="4">
<tr bgcolor="#E0E0E0">
<td>BANNER ADI</td>
<td><input name="NAME" type="text" id="NAME" value="" size="30" maxlength="200"></td>
</tr>
<tr bgcolor="#E0E0E0">
<td width="24%">Bölgeler</td>
<td width="76%"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="#CCCCCC"><input name="B1" type="checkbox" id="B1" value="yes">
Site Üst Banner</td>
<td bgcolor="#CCCCCC"><input name="B2" type="checkbox" id="B2" value="yes">
Site Alt Banner</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><input name="B3" type="checkbox" id="B3" value="yes">
Menü Altı</td>
<td bgcolor="#CCCCCC"><input name="B4" type="checkbox" id="B4" value="yes">
Kategori Yanı</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><input name="B5" type="checkbox" id="B5" value="yes">
İlan Altı</td>
<td bgcolor="#CCCCCC"> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#E0E0E0">
<td width="24%">Haftanın Günleri</td>
<td width="76%"><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="#CCCCCC"><input name="day1" type="checkbox" id="day1" value="yes">
Pazartesi</td>
<td bgcolor="#CCCCCC"><input name="day2" type="checkbox" id="day2" value="yes">
Salı</td>
<td bgcolor="#CCCCCC"><input name="day3" type="checkbox" id="day3" value="yes">
Çaramba</td>
<td bgcolor="#CCCCCC"><input name="day4" type="checkbox" id="day4" value="yes">
Perşembe</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><input name="day5" type="checkbox" id="day5" value="yes">
Cuma</td>
<td bgcolor="#CCCCCC"><input name="day6" type="checkbox" id="day6" value="yes">
Cumartesi</td>
<td bgcolor="#CCCCCC"><input name="day7" type="checkbox" id="day7" value="yes">
Pazar </td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#E0E0E0">
<td>Günün Saatleri</td>
<td><table width="50%" border="0" cellspacing="1" cellpadding="1">
<%
for i=0 to 23
%>
<tr>
<td bgcolor="#CCCCCC"><input type="checkbox" name="hour<%=i%>" id="hour<%=i%>" value="yes">
<%=i%>:00</td>
<%i=i+1%>
<td bgcolor="#CCCCCC"><input type="checkbox" name="hour<%=i%>" id="hour<%=i%>" value="yes">
<%=i%>:00</td>
</tr>
<%
next
%>
</table></td>
</tr>
<tr bgcolor="#E0E0E0">
<td>URL</td>
<td><input name="URL" type="text" id="URL" value="" size="30" maxlength="200"></td>
</tr>
<tr bgcolor="#E0E0E0">
<td>Resim (jpg ve ya gif)</td>
<td><input type="file" name="FILENAME" id="FILENAME"></td>
</tr>
<tr bgcolor="#E0E0E0">
<td colspan="2"><input type="submit" name="Submit" value="Kaydet">
<input type="button" onClick="JavaScript:window.location.href='duzen.asp?action=list&cat_id=<%=cat_id%>'" name="Submit2" value="İptal"></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>BANNER LİSTELE SİL (sil_listele.asp)<!--#include file="baglanti sayfanız"-->
<%
if(request.QueryString("addok")="True")then
hata="Yeni Banner Eklendi."
end if
if(request.QueryString("addok")="file")then
hata="Dosya turu"
end if
if(request.QueryString("delete")="cell")then
adocon.execute("DELETE FROM tblpbanner WHERE ID=" & cint(request.QueryString("ID")) )
hata="Hucre temizlendi!"
end if
if(request.QueryString("delete")="hour")then
adocon.execute("DELETE FROM tblpbanner WHERE HOUR=" & cint(request.QueryString("hour")) )
hata="Saat temizlendi!"
end if
if(request.QueryString("delete")="day")then
adocon.execute("DELETE FROM tblpbanner WHERE DAY=" & cint(request.QueryString("day")) )
hata="Gün temizlendi!"
end if
if(request.QueryString("delete")="all")then
adocon.execute("DELETE FROM tblpbanner")
hata="Tum tablo temizlendi!"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title></title>
</head>
<body topmargin="5" leftmargin="5"><br/>
<table width="98%" border="0" cellspacing="0" cellpadding="00">
<tr>
<td><table width="100%" border="1" cellpadding="10" cellspacing="0" bordercolor="#547CBB">
<tr>
<td>
<p><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<center>
<p><a href="ekle_duzenle.asp?mode=addnew">BANNER</a> </p>
<table width="98%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>[<a href="?delete=all" title="tum gun ve tum saatleri temizle">TEMiZLE</a>]</td>
<td>Pazartesi [<a href="?delete=day&day=1" title="sil">Sil</a>]</td>
<td>Sali [<a href="?delete=day&day=2" title="sil">Sil</a>]</td>
<td>Carsamba [<a href="?delete=day&day=3" title="sil">Sil</a>]</td>
<td>PerÅŸembe [<a href="?delete=day&day=4" title="sil">Sil</a>]</td>
<td>Cuma [<a href="?delete=day&day=5" title="sil">Sil</a>]</td>
<td>Cumartesi [<a href="?delete=day&day=6" title="sil">Sil</a>]</td>
<td>Pazar [<a href="?delete=day&day=7" title="sil">Sil</a>]</td>
</tr>
<%
for i=0 to 23
%>
<tr>
<td width="10%">[<a href="?delete=hour&hour=<%=i%>" title="Bu saati bosalt">Sil</a>] <%=i%>:00</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=1",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=2",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=3",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gün, bu saati boşalt">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=4",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=5",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=6",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
<td width="12%" bgcolor="#DDDDDD">
<%
rs1.open "SELECT * FROM tblpbanner WHERE HOUR=" & i & " AND DAY=7",adocon
while not rs1.eof
%>
<%=rs1("NAME")%> [<a href="?delete=cell&hour=<%=i%>&ID=<%=rs1("ID")%>" title="Sadece bu gun bu saat">Sil</a>]<br/>
<%
rs1.movenext
wend
rs1.close
%>
</td>
</tr>
<%
next
%>
</table>
<p><br>
</p>
</center> </td>
</tr>
</table>
</p></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Function fileExtension(ByVal strFileName)
'Intilaise return value
fileExtension = False
If (LCase(Right(strFileName, 4)) = ".jpg") Then
fileExtension = True
end if
If (LCase(Right(strFileName, 4)) = ".jpe") Then
fileExtension = True
end if
If (LCase(Right(strFileName, 4)) = ".gif") Then
fileExtension = True
end if
if(LCase(Right(strFileName, 4)) = ".swf") Then
fileExtension = True
end if
End Function
Function fileSize(Input, FSize)
if clng(Input)<=clng(FSize) then
fileSize=true
else
fileSize=false
end if
End Function
%>BANNER 1: altbanner.asp<%
hourof=hour(now)
rs1.open "SELECT tblpbanner.URL,tblpbanner.BANNER FROM tblpbanner WHERE tblpbanner.REGION=2 AND tblpbanner.HOUR=HOUR(NOW()) AND tblpbanner.DAY=(WEEKDAY(NOW()) + 1) ORDER BY RAND() LIMIT 1",adocon
if not rs1.eof then
%>
<center><a href="<%=rs1("URL")%>"><img src="<%=rs1("BANNER")%>" border="0"></a></center>
<%
end if
rs1.close
%>BANNER 2 solbanner.asp
<%
hourof=hour(now)
rs1.open "SELECT tblpbanner.URL,tblpbanner.BANNER FROM tblpbanner WHERE tblpbanner.REGION=4 AND tblpbanner.HOUR=HOUR(NOW()) AND tblpbanner.DAY=(WEEKDAY(NOW()) + 1) ORDER BY RAND() LIMIT 1",adocon
if not rs1.eof then
%>
<center><a href="<%=rs1("URL")%>"><img src="<%=rs1("BANNER")%>" border="0"></a></center>
<%
end if
rs1.close
%>banner1 include için : <!--#include file="?.asp"--> şeklinde uzatabilirsiniz
Fikir vermesi için hazırlanmıştır
