calendar.asp

<%

function check_int(para)
  If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
     check_int=para
  else
     check_int=0
  end if
end function

If IsDate(Request.QueryString("eventdate")) Then
 eventdate = CDate(Request.QueryString("eventdate"))
Else
 eventdate = Date()
End If

' 要调用的函数声明
'根据年份及月份得到每月的总天数
Function GetDaysInMonth(iMonth, iYear)
 Select Case iMonth
  Case 1, 3, 5, 7, 8, 10, 12
   GetDaysInMonth = 31
  Case 4, 6, 9, 11
   GetDaysInMonth = 30
  Case 2
   If IsDate("February 29, " & iYear) Then
    GetDaysInMonth = 29
   Else
    GetDaysInMonth = 28
   End If
 End Select
End Function
'得到一个月开始的日期.
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
 Dim dTemp
 dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
 GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function
'得到当前一个月的上一个月.
Function SubtractOneMonth(dDate)
 SubtractOneMonth = DateAdd("m", -1, dDate)
End Function
'得到当前一个月的下一个月.
Function AddOneMonth(dDate)
 AddOneMonth = DateAdd("m", 1, dDate)
End Function
' 函数声明结束

Dim eventdate     ' 日历显示的日期
Dim iDOW      ' 每一月开始的日期
Dim iCurrent  ' 当前日期
Dim iPosition ' 表格中的当前位置

'得到日期后我们先得到这个月的天数及这个月的起始日期.
iDIM = GetDaysInMonth(Month(eventdate), Year(eventdate))
iDOW = GetWeekdayMonthStartsOn(eventdate)
%>

<div align="center">

<a href="calendar.asp?eventdate=<%=DateAdd("m", -1, eventdate)%>"><b>[上一月]</b></a>
 &nbsp;&nbsp;
 <%=eventdate%>
 &nbsp;&nbsp;
<a href="calendar.asp?eventdate=<%=DateAdd("m", 1, eventdate)%>"><b>[下一月]</b></a>

</div>

<div style="border:0px solid #CDBA08; height:130;">

<table border="0" cellspacing="1" cellpadding="1" bgcolor="#FFFFFF" width=100%>
<tr bgcolor="#ffffff" height=18>
 <td align="center"><span class="calendar1">Sunday</span></td>
 <td align="center" class="calendar1">Monday</td>
 <td align="center" class="calendar1">Tuesday</td>
 <td align="center" class="calendar1">Wednesday</td>
 <td align="center" class="calendar1">Thursday</td>
 <td align="center" class="calendar1">Friday</td>
 <td align="center" class="calendar1">Saturday</td>
</tr>
<%
' 如果这个月的起始日期不是周日的话就加空的单元.
If iDOW <> 1 Then
 Response.Write vbTab & "<TR bgcolor=""#ffffff"">" & vbCrLf
 iPosition = 1
 Do While iPosition < iDOW
  Response.Write vbTab & vbTab & "<TD>&nbsp;</TD>" & vbCrLf
  iPosition = iPosition + 1
 Loop
End If
' 绘制这个月的日历
iCurrent = 1
iPosition = iDOW
Do While iCurrent <= iDIM
 ' 如果是一行的开头就使用 TR 标记
 If iPosition = 1 Then
  Response.Write vbTab & "<TR bgcolor=""#ffffff"">" & vbCrLf
 End If
 
    
 
  currentday=Year(eventdate)&"-"&Month(eventdate)&"-"&iCurrent
  bgcolor="#FFFFFF"
  if cdate(currentday)=date then
    bgcolor="#ffbeec"
  else
    bgcolor="#FFFFFF"
  end if
%> 
  
  <TD style="font-size:9pt;" align=center>
  <div style="border:1px solid #e745B5; width:85px;;height:54px; background-color:<%=bgcolor%>;">
  <div style="width:90%; " align="right"><span style="color:#e745B5; font-weight:bold; font-size:12px; text-decoration:none; "><%=iCurrent%></span></div>  
  </div>
  
  </TD>

<%
 'End If
 
 ' 如果满一周的话表格就另起一行
 If iPosition = 7 Then
  Response.Write vbTab & "</TR>" & vbCrLf
  iPosition = 0
 End If
 
 iCurrent = iCurrent + 1
 iPosition = iPosition + 1
Loop

' 如果一个月不是以周六结束则加上相应的空单元.
If iPosition <> 1 Then
 Do While iPosition <= 7
  Response.Write vbTab & vbTab & "<TD>&nbsp;</TD>" & vbCrLf
  iPosition = iPosition + 1
 Loop
 Response.Write vbTab & "</TR>" & vbCrLf
End If

%>
</table>
     
      
</div>