注册 | 登录 | 搜索 
 ›› ›› 『 动网论坛技术 』›› 自动生成月历代码
共有 1113 人关注过本帖  
<< 上一主题    下一主题 >>
树形 打印

自动生成月历代码

帅哥哟,离线,有人找我吗?

头衔:动网爱好者

等级:业余侠客

文章:467

积分:2954

注册:2004-05-29 04:25:00

楼主  2008-06-22 15:02:45  
 

<?php
/* 
Function Written by Nelson Neoh @3/2004. 
For those who wants to utilize this code, please do not remove this remark. 
If you have done any enhancement to this code, please post the copy at http://www.dev-club.com PHP board.  Thank you.

Function usage: calendar(Month,Year)
*/
   
function calendar($MM,$YYYY){
    if($MM=="") $MM = date("m");
    if($YYYY=="") $YYYY = date("Y");
    if(checkdate($MM,1,$YYYY)){
        $stringDate = strftime("%d %b %Y",mktime (0,0,0,$MM,1,$YYYY));
        $days = strftime("%d",mktime (0,0,0,$MM+1,0,$YYYY));
        $firstDay = strftime("%w",mktime (0,0,0,$MM,1,$YYYY));
        $lastDay = strftime("%w",mktime (0,0,0,$MM,$days,$YYYY));
        $printDays = $days;
        $preMonth = strftime("%m",mktime (0,0,0,$MM-1,1,$YYYY));
        $preYear = strftime("%Y",mktime (0,0,0,$MM-1,1,$YYYY));
        $nextMonth = strftime("%m",mktime (0,0,0,$MM+1,1,$YYYY));
        $nextYear = strftime("%Y",mktime (0,0,0,$MM+1,1,$YYYY));
        print("<table border=\"1\" cellpadding=\"1\" cellspacing=\"1\">");
        print("<tr><th valign=\"top\"><a href=\"".$_SERVER['PHP_SELF']."?NB=".$_GET["NB"]."&MM=".$preMonth."&YY=".$preYear."\">P</a></th>");
        print("<th colspan=\"5\" valign=\"top\">".strftime("%b %Y",mktime (0,0,0,$MM,1,$YYYY))."</th>");
        print("<th valign=\"top\"><a href=\"".$_SERVER['PHP_SELF']."?NB=".$_GET["NB"]."&MM=".$nextMonth."&YY=".$nextYear."\">N</a></th></tr>");
        print("<tr style=\"font-family: Verdana; font-size:x-small\">");
        print("<th>Sun</th><th>Mon</th><th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th></tr>");
       
        $currentDays = 1;
        for($a=1;$a<=5;$a++){
            print("<tr align=\"left\" valign=\"top\" style=\"font-family: Verdana; font-size:x-small\">");
            $diffDays = $firstDay-$lastDay;
            if($firstDay>$lastDay && $currentDays ==1 && ($diffDays<>1)){
                for($x=$lastDay;$x>=0;$x--){
                    $printDays = $days-$x;
                    print("<td>$printDays</td>");
                }
                for($z=1;$z<$firstDay-$lastDay;$z++){
                    print("<td>&nbsp;</td>");
                }
                for($y=$firstDay;$y<7;$y++){
                    print("<td>$currentDays</td>");
                    $currentDays++;
                }
            } elseif($firstDay!=0 && $currentDays==1){
                for($z=1;$z<=$firstDay;$z++){
                    print("<td>&nbsp;</td>");
                }
                for($y=$firstDay;$y<7;$y++){
                    print("<td>$currentDays</td>");
                    $currentDays++;
                }
            } else {
                for($u=1;$u<=7 && $currentDays<=$days;$u++){
                    print("<td>$currentDays</td>");
                    $currentDays++;
                }
            }
            print("</tr>");
        }
        print("</table>");
    }
}
?>

1111111

欢迎做客蔡坚植艺术工作室-书画家俱乐部
动网论坛PHP官方站点
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:QQ群:2805390

等级:版主

文章:5550

积分:781

注册:2003-06-22 15:01:00

沙发  2008-06-22 15:16:41  
顶,谢谢蔡老师又一新作!!!!!
动网论坛商业版热卖中

日日深杯酒满,朝朝小圃花开,自歌自舞自开怀,无拘无束无碍。
青史几番春梦,红尘多少奇才,不消计较与安排,领取而今现在!

动网论坛PHP官方站点
引用 | 回复 | TOP

美女呀,离线,留言给我吧!

头衔: 永远的天使

等级:管理员

威望:1

文章:12499

积分:35431

注册:2003-09-11 17:38:00

板凳  2008-06-22 15:31:24  

精彩!谢谢蔡老师。

动网论坛商业版热卖中

  现在不常上QQ,为了您的问题能得到尽快解决,请在技术区发帖提问。

  敬请注意,谢谢理解!

动网论坛PHP官方站点
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:亲爱的

等级:版主

文章:3044

积分:2279

注册:2008-05-07 18:02:05

木地板  2008-06-22 16:20:45  

谢谢 蔡老师!

太棒了!

动网论坛PHP官方站点


&lt;p&gt;&lt;a href=&quot;http://www.netlanglin.cn&quot;&gt;在线疯玩&lt;/a&gt;&lt;a href=&quot;http://game.langlin.net&quot;&gt;网页游戏&lt;/a&gt;&lt;/p&gt;
动网·网络社区源动力
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:被爱情驱赶

等级:新手上路

文章:959

积分:530

注册:2005-11-14 18:15:00

5  2008-06-23 20:03:57  
该代码放在什么地方呢?
动网论坛商业版热卖中

http://www.flyinger.com
灵动水滴原创文学网
动网论坛专用虚拟主机
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:QQ群:2805390

等级:版主

文章:5550

积分:781

注册:2003-06-22 15:01:00

6  2008-06-23 20:21:24  

日日深杯酒满,朝朝小圃花开,自歌自舞自开怀,无拘无束无碍。
青史几番春梦,红尘多少奇才,不消计较与安排,领取而今现在!

动网论坛PHP官方站点
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:QQ群:2805390

等级:版主

文章:5550

积分:781

注册:2003-06-22 15:01:00

7  2008-06-23 21:42:32  
我的是强哥哥做的!小水滴!!!
动网论坛PHP官方站点

日日深杯酒满,朝朝小圃花开,自歌自舞自开怀,无拘无束无碍。
青史几番春梦,红尘多少奇才,不消计较与安排,领取而今现在!

动网论坛PHP官方站点
引用 | 回复 | TOP

美女呀,离线,留言给我吧!

头衔: 永远的天使

等级:管理员

威望:1

文章:12499

积分:35431

注册:2003-09-11 17:38:00

8  2008-06-23 21:43:12  
小水滴什么都想要,把自己的论坛搞得花花绿绿的。
动网论坛商业版热卖中

  现在不常上QQ,为了您的问题能得到尽快解决,请在技术区发帖提问。

  敬请注意,谢谢理解!

动网论坛专用虚拟主机
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:QQ群:2805390

等级:版主

文章:5550

积分:781

注册:2003-06-22 15:01:00

9  2008-06-23 22:08:05  
我听说有一个叫什么记录?是世界级的!
动网论坛PHP官方站点

日日深杯酒满,朝朝小圃花开,自歌自舞自开怀,无拘无束无碍。
青史几番春梦,红尘多少奇才,不消计较与安排,领取而今现在!

动网论坛商业版热卖中
引用 | 回复 | TOP

帅哥哟,离线,有人找我吗?

头衔:动网爱好者

等级:业余侠客

文章:467

积分:2954

注册:2004-05-29 04:25:00

10  2008-06-23 22:32:16  
以下是引用用心等待在2008-06-23 20:21:24的发言:

水滴兄弟!!

http://www.312300.com/calendar.php

我怎么一登录这个网站瑞星就提示病毒了呢?

1111111

欢迎做客蔡坚植艺术工作室-书画家俱乐部
动网论坛商业版热卖中
引用 | 回复 | TOP

17 / 回复数 1/2 12 GO