小日历介绍了年月日的函数

【2005年12月31日 12:52:45】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

<%
Function CountDays(iMonth,iYear)
    Select Case iMonth
    case 1,3,5,7,8,10,12
CountDays=31
    case 2
if IsDate("2/29/" & iYear) Then
     CountDays=29
else
     CountDays=28
        end if
    case 4,6,9,11
        CountDays=30
    End Select
End Function

Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth & "/1/" & iYear)
End Function

dim mMonth,mYear
mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
response.write "<center>" & mYear & "年" & mMonth & "月" & "</center><hr>"
%>
<table border=1 align=center><tr>
<td align=right><font color=red>星期日</font></td>
<td align=right>星期一</td>
<td align=right>星期二</td>
<td align=right>星期三</td>
<td align=right>星期四</td>
<td align=right>星期五</td>
<td align=right><font color=red>星期六</font></td>
</tr><tr>
<%
j=1
    for i=1 to 42
        response.write "<td align=right>"
        if i>=FirstDay(mMonth,mYear) and j<=CountDays(mMonth,mYear) then
            if mDate=j then
  response.write "<font color=red>" & j & " </font>"
     else
  response.write j
     end if
     j=j+1
        else
     response.write   "   "
        end if
response.write "</td>"
    if i mod 7=0 then
     response.write "</tr><tr>"
        end if
    next

%>
</tr></table>

(『印像空间』　【本文来源：『学习笔记』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：