Tayfun
| | Tarih: 10.12.2006, 01:24 Mesaj konusu: Takvim (ASP) | |
| <script language="vbscript" runat="server">
'########################
'# psychaos - takvim #
'# coded by pyschaos #
'# a.k.a semih turna #
'# semih@maxiasp.com #
'# 07.05.2004 21:30 #
'########################
class clscalendar
public intdate '|dışardan gelecek zaman
public strpage '|gidilmesini istediğiniz sayfa
public minyear '|gidilebilecek en düşük yıl
public maxyear '|gidilebilecek en yüksek yıl
private property get dayconfig
select case month(intdate)
case 1, 3, 5, 7, 8, 10, 12
dayconfig = 31
case 4, 6, 9, 11
dayconfig = 30
case 2
ıf ısdate("29.02."& year(intdate)) then
dayconfig = 29
else
dayconfig = 28
end ıf
end select
end property
private property get weekconfig
intweek = dateadd("d", -(day(intdate) - 1), intdate)
weekconfig = weekday(intweek-1)
end property
private function back
back = dateadd("m", -1, intdate)
end function
private function forward
forward = dateadd("m", 1, intdate)
end function
public sub createcalendar()
ıf year(intdate) < minyear or year(intdate) > maxyear then
response.write "<font face='verdana' size='1'>bu zamana gitmeniz mümkün değil!</font>" : exit sub
else
dim confday, confweek
confday = dayconfig
confweek = weekconfig
with response
.write "<table border='0' width='10%' id='table1' cellspacing='0' cellpadding='0' bgcolor='#003399'>"& vbcrlf
.write " <tr>"& vbcrlf
.write " <td>"& vbcrlf
.write " <table border='0' width='100%' id='table2' cellspacing='1' cellpadding='2'>"& vbcrlf
.write " <tr>"& vbcrlf
.write " <td width='20%' bgcolor='#0099ff'>"& vbcrlf
.write " <p align='center'><font size='1' color='#ffffff'><b><a href='"& strpage &"?tarih="& back &"'><<</a></b></font></td>"& vbcrlf
.write " <td width='60%' bgcolor='#0099ff'><p align='center'><font size='1' face='arial'>"& monthname(month(intdate)) &" - "& year(intdate) &"</font></td>"& vbcrlf
.write " <td width='20%' bgcolor='#0099ff'>"& vbcrlf
.write " <p align='center'><b><font size='1' color='#ffffff'><b><a href='"& strpage &"?tarih="& forward &"'>>></a></b></font></td>"& vbcrlf
.write " </tr>"& vbcrlf
.write " </table>"& vbcrlf
.write " </td>"& vbcrlf
.write " </tr>"& vbcrlf
.write " <tr>"& vbcrlf
.write " <td>"& vbcrlf
.write " <table border='0' width='100%' id='table3' cellspacing='1' cellpadding='2'>"& vbcrlf
.write " <tr>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>pt</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>sa</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>ça</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>pe</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>cu</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>ct</font></b></td>"& vbcrlf
.write " <td bgcolor='#b0d8ff' width='14%'>"& vbcrlf
.write " <p align='center'><b><font size='1' face='arial'>pz</font></b></td>"& vbcrlf
.write " </tr>"& vbcrlf
ıf not confweek = 1 then
intposition = 1
.write " <tr>"& vbcrlf
while intposition < confweek
.write " <td bgcolor='#e6f2ff' width='14%' align='center'><font size='1' face='arial'>x</font></td>"& vbcrlf
intposition = intposition + 1
wend
end ıf
intday = 1
intposition = confweek
while intday <= confday
ıf intposition = 1 then : .write " <tr>"& vbcrlf
ıf intday = day(intdate) then
.write " <td bgcolor='#ffccff' width='14%' align='center'><font size='1' face='arial'><b><a href='"& strpage &"'>"& intday &"</a></b></font></td>"& vbcrlf
else
.write " <td bgcolor='#ffffff' width='14%' align='center'><font size='1' face='arial'><b><a href='"& strpage &"'>"& intday &"</a></b></font></td>"& vbcrlf
end ıf
ıf intposition = 7 then : .write " </tr>"& vbcrlf : intposition = 0
intday = intday + 1 : intposition = intposition + 1
wend
ıf not intposition = 1 then
while intposition <= 7
.write " <td bgcolor='#e6f2ff' width='14%' align='center'><font size='1' face='arial'>x</font></td>"& vbcrlf
intposition = intposition + 1
wend
.write " </tr>"& vbcrlf
end ıf
.write " </table>"& vbcrlf
.write " </td>"& vbcrlf
.write " </tr>"& vbcrlf
.write "</table>"& vbcrlf
end with
end ıf '|yıl kontrolü bitti
end sub
public sub stye
with response
.write "<style>"& vbcrlf
.write "a:link {color: #3366cc; text-decoration: none}"& vbcrlf
.write "a:active {color: #3366cc; text-decoration: none}"& vbcrlf
.write "a:visited {color: #3366cc; text-decoration: none}"& vbcrlf
.write "a:hover {color: #3366cc; text-decoration: underline}"& vbcrlf
.write "</style>"& vbcrlf
end with
end sub
end class
</script>
kullanımı
code:
<%
ıf request.querystring("tarih") = "" then
tarih = cdate(date)
else
tarih = cdate(request.querystring("tarih"))
end ıf
set calendar = new clscalendar
with calendar
.stye
.minyear = 2004
.maxyear = 2005
.intdate = tarih
.strpage = "clscalendar.asp"
.createcalendar()
end with
set calendar = nothing
%>
|
|
