Full-service Internet Marketing & Web Development
Recent Posts
Sponsors
 |
CalendarCode Wizard, 12-30-2006 |
Here is a Calendar I made for Fun, It is up for Editing at any time. I never finished it, but it does work. Working Demo at: http://www.aracthus.f2s.com/Calendar.php
aracthus@barrysworld.com
<?
$m = (!$m) ? date("m",mktime()) : "$m";
$y = (!$y) ? date("Y",mktime()) : "$y";
if ($REQUEST_METHOD == "POST")
{
print "<h2>Form Submitted.</h2>";
print "...you really should do something with this data...<br>";
print "Event: $event<br>";
print "Date: $eventdate<br>";
exit();
}
?>
<html>
<head>
<title>Date Menu: Add New Event</title>
<style type="text/css">
.tcell { font-size: 10pt; }
</style>
</head>
<body bgcolor="#FFFFFF" link="#0000CC" vlink="#0000CC">
<h2>Calendar Select</h2>
<blockquote>
<table><tr><td valign="top">
<form name="f" action="<?=$SCRIPT_NAME?>" method="POST">
<table cellpadding=0 cellspacing=0 border=0 bgcolor="#000000"><tr><td>
<table cellpadding=4 cellspacing=1 border=0 bgcolor="#FFFFFF">
<tr><td colspan=2 bgcolor="#000000"><font size="+1" color="#FFFFFF"><b>Add New Event</b></font></td></tr>
<tr><td><b>Event:</b></td><td><input type=text name="event" size=35 MAXLENGTH=128></td></tr>
<tr><td><b>Event Date: </b></td><td><input type=text name="eventdate" value="" size=12> <font size=2>mm/dd/yyyy</font></td></tr>
<tr><td colspan=2 align="center" bgcolor="#CCCCCC"><input type=submit value="Add Event"></td></tr>
</table></td></tr></table></form>
</td><td width=25 nowrap><br></td>
<td valign="top">
<? mk_drawCalendar($m,$y); ?>
</td></tr></table>
</blockquote>
</body>
</html>
<?
//************************************************** *******
// DRAW CALENDAR
//************************************************** *******
/*
Draws out a calendar (in html) of the month/year
passed to it date passed in format mm-dd-yyyy
*/
function mk_drawCalendar($m,$y)
{
if ((!$m) || (!$y))
{
$m = date("m",mktime());
$y = date("Y",mktime());
}
/*== get what weekday the first is on ==*/
$tmpd = getdate(mktime(0,0,0,$m,1,$y));
$month = $tmpd["month"];
$firstwday= $tmpd["wday"];
$lastday = mk_getLastDayofMonth($m,$y);
?>
<table cellpadding=2 cellspacing=0 border=1>
<tr><td colspan=7 bgcolor="#CCCCDD">
<table cellpadding=0 cellspacing=0 border=0 width="100%">
<tr><th width="20"><a href="<?=$SCRIPT_NAME?>?m=<?=(($m-1)<1) ? 12 : $m-1 ?>&y=<?=(($m-1)<1) ? $y-1 : $y ?>"><<</a></th>
<th><font size=2><?="$month $y"?></font></th>
<th width="20"><a href="<?=$SCRIPT_NAME?>?m=<?=(($m+1)>12) ? 1 : $m+1 ?>&y=<?=(($m+1)>12) ? $y+1 : $y ?>">>></a></th>
</tr></table>
</td></tr>
<tr><th width=22 class="tcell">Su</th><th width=22 class="tcell">M</th>
<th width=22 class="tcell">T </th><th width=22 class="tcell">W</th>
<th width=22 class="tcell">Th</th><th width=22 class="tcell">F</th>
<th width=22 class="tcell">Sa</th></tr>
<? $d = 1;
$wday = $firstwday;
$firstweek = true;
/*== loop through all the days of the month ==*/
while ( $d <= $lastday)
{
/*== set up blank days for first week ==*/
if ($firstweek) {
print "<tr>";
for ($i=1; $i<=$firstwday; $i++)
{ print "<td><font size=2> </font></td>"; }
$firstweek = false;
}
/*== Sunday start week with <tr> ==*/
if ($wday==0) { print "<tr>"; }
/*== check for event ==*/
print "<td class='tcell'>";
print "<a href="#" onClick="document.f.eventdate.value='$m-$d-$y';">$d</a>";
print "</td>
";
/*== Saturday end week with </tr> ==*/
if ($wday==6) { print "</tr>
"; }
$wday++;
$wday = $wday % 7;
$d++;
}
?>
</tr></table>
<font size=1>Click on date above to select</font>
<br>
<?
/*== end drawCalendar function ==*/
}
/*== get the last day of the month ==*/
function mk_getLastDayofMonth($mon,$year)
{
for ($tday=28; $tday <= 31; $tday++)
{
$tdate = getdate(mktime(0,0,0,$mon,$tday,$year));
if ($tdate["mon"] != $mon)
{ break; }
}
$tday--;
return $tday;
}
?>
|
|
Subscribe Now to receive new posts via Email as soon as they come out.
Comments
Post your comments
