showcal.asp

办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单

<%          
			' 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
								if HavePlan(dToday) then
									Write_TD "<A HREF=plan.asp?Selectdate="& Server.URLEncode(dToday) & " CLASS='TODAY' TARGET='PlanMain'><font color=blue><B> " & intPrintDay & "</B></font></A>", "SOME"
								else
								    Write_TD "<A HREF=plan.asp?Selectdate="& Server.URLEncode(dToday) & " CLASS='TODAY' TARGET='PlanMain'> " & intPrintDay & "</A>", "SOME"
								end if
							  elseif isSunSat(dToday) then
								if HavePlan(dToday) then
								  Write_TD "<A HREF=plan.asp?selectdate="& Server.URLEncode(dToday) & " CLASS='SUN' TARGET='PlanMain'><font color=red><b> " & intPrintDay & "</b></font></A>", "SUN"
								  else
									Write_TD "<A HREF=plan.asp?selectdate="& Server.URLEncode(dToday) & " CLASS='SUN' TARGET='PlanMain'> <font color=red>" & intPrintDay & "</font></A>", "SUN"
								 end if
							  elseif HavePlan(dToday) then
								  Write_TD "<A HREF=plan.asp?selectdate="& Server.URLEncode(dToday) & " CLASS='NOEVENT' TARGET='PlanMain'><font color=blue><b> " & intPrintDay & "</b></font></A>", "SOME"
							  else
								Write_TD "<A HREF=plan.asp?selectdate="& Server.URLEncode(dToday) & " CLASS='NOEVENT' TARGET='PlanMain'> " & 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 
			
		%>