回首页

<?
################
# Calendar.php - 创建一个当天日期为高亮度的日历GIF图片。
# 使用到了GD 函数库存和TTF字体 -可以被改变成 PNG格式的图片， 当然，如果
# 你想要的是一个拥有一个透明背景的图片除外，这个改动是可以被很容易得
# 完成，最后，我们把图片写到一个叫 dategif/ 的目录，并且用当天的日期来
# 命名该图片的名字。（如：20000204.gif）这个GIF图片一般情况只会有5K或
# 是7K的大小。
#
# 这段程序你可以以任意地方使用，该文档或支持对每个人都是免费的，但是请
# 不要把该程序用于买卖，你可以剪切、拷贝或是毁坏这段程序，只要你喜欢，
# 并且，你不用为了用它而给我付费！如果你需要帮助或是你真的很喜欢这段程
# 序，请给我来封信，以让我知道，你看好吗？
# 二月四日4， 2000 由  Matt Florell ( mattf@mail.com )
################

Header( "Content-type: image/gif" );

#创建一幅图片
$im = ImageCreate(156, 142);
# 设置颜色
$black = ImageColorAllocate($im, 50, 50, 50);
$white = ImageColorAllocate($im, 255, 255, 255);
$orange = ImageColorAllocate($im, 255, 200, 0);
$yellow = ImageColorAllocate($im, 255, 255, 0);
$tan = ImageColorAllocate($im, 255, 255, 190);
$grey = ImageColorAllocate($im, 205, 205, 205);
$dkgrey = ImageColorAllocate($im, 140, 140, 140);

###灰线 ###
#边框线
 ImageRectangle($im, 1, 1, 155, 141, $dkgrey);
#水平线
 ImageRectangle($im, 1, 22, 155, 39, $dkgrey);
 ImageRectangle($im, 1, 56, 155, 73, $dkgrey);
 ImageRectangle($im, 1, 90, 155, 107, $dkgrey);
 ImageRectangle($im, 1, 107, 155, 124, $dkgrey);
#垂直线
 ImageRectangle($im, 23, 22, 45, 141, $dkgrey);
 ImageRectangle($im, 67, 22, 89, 141, $dkgrey);
 ImageRectangle($im, 111, 22, 133, 141, $dkgrey);

### 白线 ###
#外框线
 ImageRectangle($im, 0, 0, 154, 140, $white);
#水平线
 ImageRectangle($im, 0, 21, 154, 38, $white);
 ImageRectangle($im, 0, 55, 154, 72, $white);
 ImageRectangle($im, 0, 89, 154, 106, $white);
 ImageRectangle($im, 0, 106, 154, 123, $white);
#垂直线
 ImageRectangle($im, 22, 21, 44, 140, $white);
 ImageRectangle($im, 66, 21, 88, 140, $white);
 ImageRectangle($im, 110, 21, 132, 140, $white);



### 在上面写数字

$today = date( "d" );
$month = date( "m" );
$year = date( "Y" );
$datecode = date( "Ymd" );
$gif = '.gif' ;
$first=mktime(0,0,0,$month,1,$year);

$mon_yr=date( "F Y" , $first);

$wd=date( "w" ,$first);
#if ($wd==0) { $wd=7;}
$lastday=date( "d" ,mktime(0,0,0,$month+1,0,$year));
$cur=-$wd+0;
$ver_position = 50;
for ($k=0;$k<6;$k++) {
$day_position = 5;
$last_row_used = 0;
for ($i=0;$i<7;$i++ ) {
$cur++;
$sing_add = 0;
if (($cur<=0) || ($cur>$lastday) ) $day_position = ($day_position + 22);
else
{
$day_color = $grey;
if ($day_position<10) $day_color = $tan;
if ($cur==$today) $day_color = $yellow;

if (strlen($cur)<2) {$sing_add = 4;}
$fin_position = ($day_position + $sing_add);

 ImageTTFText($im, 12, 0, $fin_position, $ver_position, $day_color, "./fonts/arialbd.ttf" , "$cur" );

$day_position = ($day_position + 22);
$last_row_used = 1;
}
}
$day_position = 5;
if ($last_row_used) $ver_position = ($ver_position + 17);
}
# 月份和年份 （Arial字体、加粗、居中）
$spc = 23;
$st_add = 0;
$st = "$mon_yr" ;
$st_len = strlen($st);
$st_margin = (14 - $st_len);
if ($st_margin > 0) {$st_add = ($st_margin > 4);}
$spc = ($spc + $st_add);
ImageTTFText($im, 14, 0, $spc, 15, $white, "./fonts/arialbd.ttf" , "$st" );

# 星期的名字
ImageString($im, 2, 3, 23, "Sun" , $orange);
ImageString($im, 2, 25, 23, "Mon" , $orange);
ImageString($im, 2, 47, 23, "Tue" , $orange);
ImageString($im, 2, 69, 23, "Wed" , $orange);
ImageString($im, 2, 91, 23, "Thu" , $orange);
ImageString($im, 2, 113, 23, "Fri" , $orange);
ImageString($im, 2, 135, 23, "Sat" , $orange);

if ($ver_position<140)
{
$im_out = ImageCreate(156, 125);
$out_black = ImageColorAllocate($im_out, 50, 50, 50);
 ImageRectangle($im, 1, 124, 155, 124, $dkgrey);
 ImageCopyResized($im_out, $im, 0, 0, 0, 0, 156, 125, 156, 125);
 ImageColorTransparent($im_out, $out_black);
 ImageGIF($im_out, "./dategif/$datecode$gif" );
 ImageGIF($im_out);
 ImageDestroy($im);
 ImageDestroy($im_out);
}
else
{
 ImageColorTransparent($im, $black);
 ImageGif($im, "./dategif/$datecode$gif" );
 ImageGif($im);
 ImageDestroy($im);
}

?>

回首页