本文实例讲述了服务器端编程语言(专业超文本预处理器的缩写)实现的日历程序。分享给大家供大家参考。具体如下：

？php/判断$年和每月美元是否为空，如果为空就获取系统当前日期，否则用$_GET获取$Year=空($_GET['年'])？日期(' Y'): $_GET['年'];$月=空($_GET['月'])？日期(' m'): $_GET['月'];////获取当前日期////$Today=日期(' Ymj ')；////初始化日期数组///$ Maxday=array(‘1’、‘2’、‘3’、‘4’、‘5’、‘6’、‘7’、‘8’、‘9’、‘10’、‘11’、‘12’、‘13’、‘14’、‘15’、‘16’、‘17’、‘18’、‘19’、‘20’、‘21’、‘22’、‘23’、‘24’、‘25’、‘26’$ Maxday _ count=count($ Maxday)；////初始化星期数组////$ Weekday=array(' font color=' red ' sun/font '，' Mon '，' Tue '，' Wed '，' Thu '，' Fri '，' font color=' red ' sat/font ')；$ Weekday _ count=count($ Weekday)；$ day num=0；$ space=' TD/TD '；$ col=0；////打印表格头部////?表单操作='日历。PHP ' method=' post ' name=' link ' table RTD col span=3 align=centera href='？年份=?PHP if($ Year-1 1900)呼应$ Year-1；否则回声$ Year？月份=?php echo $Month？onClick=' JavaScript :文档。链接。submit()；名字='年/a？php echo $Year？a href='？年份=?PHP if($ 1 2999年)呼应$第1年；否则回声$ Year？月份=?php echo $Month？onClick=' JavaScript :文档。链接。submit()；名称='年份/a/tdtd/tdtd col span=3 align=centera href='？年份=?php echo $Year？月份=?php if($Month-1 0) if($Month-1 10)回显"0"。($ Month-1)；else echo $ Month-1；否则echo $ Month？onClick=' JavaScript :文档。链接。submit()；名称='月/a？php echo $ Month？a href='？年份=?php echo $Year？月份=?PHP if($第1 13个月)如果($第1 10个月)回显"0"。($第一个月);else echo(第一个月);否则echo $ Month？onClick=' JavaScript :文档。链接。submit()；名称='月/a/TD/trtd colspan=' 8 '/TD/trtr？php/打印星期列表////while(list(，$Weekvalue)=每个($Weekday))回显td align=center .$周值./TD '；echo '/tr '；////打印日期列表//////当月份为4,6,9,11的时候，从数组末尾删除一个值，也就是删除31这个值if($Month==4)或$Month==6或$Month==9或$ Month==11){ array _ pop($ Maxday)；$ Maxday _ count-；}//先判断月份是否为2月，如果是的话再判断年份是否为闰年，如果是的话就从数组尾部移除2个值，否则就移除3个值if($ Month==2){ if($ Year % 4==0){ array _ pop($ Maxday)；array _ pop($ Maxday)；$ Maxday _ count-=2；} else { array _ pop($ Maxday)；array _ pop($ Maxday)；array _ pop($ Maxday)；$ Maxday _ count-=3；}}////打印日期////while($ daynum $ Maxday _ count){ echo ' tr '；while(list($colnum，$Dayvalue)=每个($Maxday)) { //判断当前日期为一星期中的哪一天$DayWeek=日期(' w '，strtotime($Year)-'。$月'-'.$ Dayvalue))；//当当前日期处于第一个，也就是每个月的第一天的时候，在它前面补上相应的空格子if($Dayvalue==1)为($ I=0；$ I $ DayWeek $ I)echo $ space；//打印每个月空出的几个格子$ daynum//当打印日期的时候与当前日期字符串进行比较，如果相等就将字体标为红色如果(年).每月美元$天值==$ Today){ $ u1=' u '；$ U2='/u '；} else { $ u1=$ u2=} if($DayWeek==0或$ day week==6)$ color=' red '；else $ color=' black echo ' TD align=center font color=' .$ color .$ u1 .$日价值u2美元./font/TD '；//用本周第几天这个值加1,如果是七的倍数就换行退出此轮循环（换行打印)if(($ day week 1)% 7==0){ $ col；打破；} } echo '/tr '；}?运行效果如下：

希望本文所述对大家的服务器端编程语言(专业超文本预处理器的缩写)程序设计有所帮助。