当前月份日历

ASP新手入门
.asp当前的月份日历会按照服务器的日期显示当前的月份,突出一下当前日期。参数被设置来定义当前月份的日期数,一个月的第一天的值和被创建的循环是用来显示前一个月的工作日期间的有空白的第一周。第二个循环填补了这个月剩下的时间,插入新月份的开始的工作日的空白。一个简单的同义反复被放在以黑体字放在当前的日期的每个循环里面。逻辑也适用于阳历的某一个二月正确的日期数。

<html> <title>Current Month Calendar</title> <body bgcolor="#FFFFFF"> <% dim current_date, first_day, this_date dim counter,days, weeks, current_year '创建数组来显示月份名称 dim month_name(12) month_name(1)="January " month_name(2)="February " month_name(3)="March " month_name(4)="April " month_name(5)="May " month_name(6)="June " month_name(7)="July " month_name(8)="August " month_name(9)="September " month_name(10)="October " month_name(11)="November " month_name(12)="December " '创建当前日期的变量 current_date=date() '创建来自当前日期年份变量 current_year=year(current_date) '创建来自当前日期年份变量 this_date=day(current_date) '创建来自当前日期年份变量 month_number=month(current_date) '创建当前日期的首日变量 first_day=weekday(dateSerial(current_year,month_number,01)) '创建当前月份的长度变量 select case month_number '有31天的一个月被设置最终日期 case "1","3","5","7","8","10","12" last_day=31 '通过适用闰年规则把二月设置成最终日期 ‘如果年份不能看见 case "2" last_day=28 right_year_divided=current_year/4 if right_year_divided = cint(right_year_divided) then last_day=29 end if if right(current_year,2)="00" then right_year_divided=current_year/400 if right_year_divided = cint(right_year_divided) then last_day=29 end if ' end check of year values end if ' end check for new century '所有剩下的月份都有30天 case else last_day=30 end select ' end selct of month %><html> <body bgcolor="#FFFFFF"> <table border=1 align=center> <caption><b><%= month_name(month_number) & current_year %></b></caption> <tr><th>S</th><th>M</th><th>T</th><th>W</th> <th>Th</th><th>F</th><th>Sa</th></tr> <tr> <% '循环每个月的第一周 for counter = 1 to 7 %> <td><% '检查看看第一个月是哪一天 if counter > first_day-1 then '计算天数 days=days+1 ‘检查看看当前日期是否在第一周 ‘然后设置成黑体 if days=this_date then response.write "<b>" & days & "</b>" else response.write days end if ' End check for current date end if ' End check for first day of the week %></td><% next %> </tr> <% '一个月的剩下的周数循环 for weeks = 1 to 5 %> <tr> <% '一个月的剩下的天数的循环 for counter = 1 to 7 '计算出时间 days=days+1 '写出日期,如果是当前日期的话就设置成黑体 if days <= last_day then %><td><% if days=this_date then response.write "<b>" & days & "</b>" else response.write days end if ' End check for current date %></td> <% end if ' End check for end of month next %> </tr><% next %> </table> </body> </html>

相关内容推荐

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

返回
顶部