一个日历程序(佚名)

回目录
一个日历程序

<?
################
# 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);
    }

?>

回目录