showcal.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 56 行

<%          
			' Initialize the end of rows flag to false
			EndRows = False
			Response.Write vbCrLf
			
			' Loop until all the rows are exhausted
		 	Do While EndRows = False
				' Start a table row
				Response.Write "	<TR>" & vbCrLf
				' This is the loop for the days in the week
				For intLoopDay = cSUN To cSAT
					' If the first day is not sunday then print the last days of previous month in grayed font
					If intFirstWeekDay > cSUN Then
						Write_TD LastMonthDate, "NON"
						LastMonthDate = LastMonthDate + 1
						intFirstWeekDay = intFirstWeekDay - 1
					' The month starts on a sunday	
					Else
						' If the dates for the month are exhausted, start printing next month's dates
						' in grayed font
						If intPrintDay > intLastDay Then
							Write_TD NextMonthDate, "NON"
							NextMonthDate = NextMonthDate + 1
							EndRows = True 
						Else
							' If last day of the month, flag the end of the row
							If intPrintDay = intLastDay Then
								EndRows = True
							End If
							
							dToday = CDate(intThisMonth & "/" & intPrintDay & "/" & intThisYear) 
								'写出日历
							  if dToday = date() then
								
								    Write_TD "<A HREF=# CLASS='TODAY' onClick='IOFFICE_GetSelected(this.cells(0))'> " & intPrintDay & "</A>", "SOME"
								
							  elseif isSunSat(dToday) then
								Write_TD "<A HREF=# CLASS='SUN' onClick='IOFFICE_GetSelected(this.cells(0))'> <font color=red>" & intPrintDay & "</font></A>", "SUN"							 
							  else
								Write_TD "<A HREF=# CLASS='NOEVENT' onClick='IOFFICE_GetSelected(this.cells(0))'> " & intPrintDay & "</A>", "SOME"
							  end if
							'End If
						End If 
						
						' Increment the date. Done once in the loop.
						intPrintDay = intPrintDay + 1
					End If
				
				' Move to the next day in the week
				Next
				Response.Write "	</TR>" & vbCrLf
				
			Loop 
			
		%>