var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#C0C0C0";
var gcToggle = "#ccffff";
var gcBG = "#ffffff";

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();

// ***************************************************************************
// Param: popCtrl is the widget beyond which you want this calendar to appear;
//        dateCtrl is the widget into which you want to put the selected date.
// i.e.: <input type="text" name="dc" style="text-align:center" readonly><INPUT type="button" value="V" onclick="fPopCalendar(dc,dc);return false">
// ***************************************************************************
	function fPopCalendar(popCtrl, dateCtrl){
	  event.cancelBubble=true;
	  gdCtrl = dateCtrl;
	  fSetYearMon(giYear, giMonth);
	  var point = fGetXY(popCtrl);
	  with (VicPopCal.style) 
	  {
	  	left = point.x;
			top  = point.y+popCtrl.offsetHeight+1;
			width = VicPopCal.offsetWidth;
			height = VicPopCal.offsetHeight;
			fToggleTags(point);
			visibility = 'visible';
		}
	  VicPopCal.focus();
	}

	function fSetDate(iYear, iMonth, iDay)
	{
		if(iMonth == 1)
			iMonth = "January";
		else if(iMonth == 2)
			iMonth = "February";
		else if(iMonth == 3)
			iMonth = "March";
		else if(iMonth == 4)
			iMonth = "April";
		else if(iMonth == 5)
			iMonth = "May";
		else if(iMonth == 6)
			iMonth = "June";
		else if(iMonth == 7)
			iMonth = "July";
		else if(iMonth == 8)
			iMonth = "August";
		else if(iMonth == 9)
			iMonth = "September";
		else if(iMonth == 10)
			iMonth = "October";
		else if(iMonth == 11)
			iMonth = "November";
		else if(iMonth == 12)
			iMonth = "December";
		gdCtrl.value = iDay+" "+iMonth+" "+iYear;
		//document.form1.hiddendate.value  = iDay+"-"+iMonth+"-"+iYear;
		fHideCalendar();
	}

	function fHideCalendar(){
	  VicPopCal.style.visibility = "hidden";
	  for (i in goSelectTag)
	  	goSelectTag[i].style.visibility = "visible";
	  goSelectTag.length = 0;
	}

	function fSetSelected(aCell){
	  var iOffset = 0;
	  var iYear = parseInt(tbSelYear.value);
	  var iMonth = parseInt(tbSelMonth.value);

	  aCell.bgColor = gcBG;
	  with (aCell.children["cellText"]){
	  	var iDay = parseInt(innerText);
	  	if (color==gcGray)
			iOffset = (Victor<10)?-1:1;
		iMonth += iOffset;
		if (iMonth<1) {
			iYear--;
			iMonth = 12;
		}else if (iMonth>12){
			iYear++;
			iMonth = 1;
		}
	  }
	  fSetDate(iYear, iMonth, iDay);
	}

	function Point(iX, iY){
		this.x = iX;
		this.y = iY;
	}

	function fBuildCal(iYear, iMonth) {
	  var aMonth=new Array();
	  for(i=1;i<7;i++)
	  	aMonth[i]=new Array(i);

	  var dCalDate=new Date(iYear, iMonth-1, 1);
	  var iDayOfFirst=dCalDate.getDay();
	  var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();
	  var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;
	  var iDate = 1;
	  var iNext = 1;

	  for (d = 0; d < 7; d++)
		aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;
	  for (w = 2; w < 7; w++)
	  	for (d = 0; d < 7; d++)
			aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);
	  return aMonth;
	}

	function fDrawCal(iYear, iMonth, iCellHeight, iDateTextSize) {
	  var WeekDay = new Array("Su","Mo","Tu","We","Th","Fr","Sa");
	  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font: "+iDateTextSize+" Verdana;";            

	  with (document) {
		write("<tr>");
		for(i=0; i<7; i++)
			write("<td "+styleTD+"color:navy' >" + WeekDay[i] + "</td>");
		write("</tr>");

	  	for (w = 1; w < 7; w++) {
			write("<tr>");
			for (d = 0; d < 7; d++) {
				write("<td id=calCell "+styleTD+"cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
				write("<font id=cellText Victor='Liming Weng'> </font>");
				write("</td>")
			}
			write("</tr>");
		}
	  }
	}

	function fUpdateCal(iYear, iMonth) {
	  myMonth = fBuildCal(iYear, iMonth);
	  var i = 0;
	  for (w = 0; w < 6; w++)
		for (d = 0; d < 7; d++)
			with (cellText[(7*w)+d]) {
				Victor = i++;
				if (myMonth[w+1][d]<0) {
					color = gcGray;
					innerText = -myMonth[w+1][d];
				}else{
					color = ((d==0)||(d==6))?"red":"black";
					innerText = myMonth[w+1][d];
				}
			}
	}

	function fSetYearMon(iYear, iMon)
	{
	  tbSelMonth.options[iMon-1].selected = true;
	  for (i = 0; i < tbSelYear.length; i++)
		if (tbSelYear.options[i].value == iYear)
			tbSelYear.options[i].selected = true;
	  fUpdateCal(iYear, iMon);
	}

	function fPrevMonth(){
	  var iMon = tbSelMonth.value;
	  var iYear = tbSelYear.value;

	  if (--iMon<1) {
		  iMon = 12;
		  iYear--;
	  }

	  fSetYearMon(iYear, iMon);
	}

	function fNextMonth(){
	  var iMon = tbSelMonth.value;
	  var iYear = tbSelYear.value;

	  if (++iMon>12) {
		  iMon = 1;
		  iYear++;
	  }

	  fSetYearMon(iYear, iMon);
	}

	function fToggleTags(){
	  with (document.all.tags("SELECT")){
	 	for (i=0; i<length; i++)
	 		if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
	 			item(i).style.visibility = "hidden";
	 			goSelectTag[goSelectTag.length] = item(i);
	 		}
	  }
	}

	function fTagInBound(aTag){
	  with (VicPopCal.style){
	  	var l = parseInt(left);
	  	var t = parseInt(top);
	  	var r = l+parseInt(width);
	  	var b = t+parseInt(height);
		var ptLT = fGetXY(aTag);
		return !((ptLT.x>r)||(ptLT.x+aTag.offsetWidth<l)||(ptLT.y>b)||(ptLT.y+aTag.offsetHeight<t));
	  }
	}

	function fGetXY(aTag){
	  var oTmp = aTag;
	  var pt = new Point(0,0);
	  do {
	  	pt.x += oTmp.offsetLeft;
	  	pt.y += oTmp.offsetTop;
	  	oTmp = oTmp.offsetParent;
	  } while(oTmp.tagName!="BODY");
	  return pt;
	}

	//var gMonths = new Array("January","February","March","April","May","June","July","August","September","October","November","December");
	var gMonths = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

	with (document) {
	write("<Div id='VicPopCal' onclick='event.cancelBubble=true' style='POSITION:absolute;left:0;top:0;visibility:hidden;border:1px;width:10;z-index:100;'>");
	write("<table border='0' bgcolor='#c0c0c0'>");
	write("<TR>");
	write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:20;width:20;FONT:16 Fixedsys' onClick='fPrevMonth()'>");
	write("&nbsp;&nbsp;<select name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
	for (i=0; i<12; i++)
		write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
	write("</SELECT>");
	write("&nbsp;&nbsp;<SELECT name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
	for(i=2000;i<2021;i++)
		write("<OPTION value='"+i+"'>&nbsp;"+i+"&nbsp;</OPTION>");
	write("</SELECT>");
	write("&nbsp;&nbsp;<input type='button' name='PrevMonth' value='>' style='height:20;width:20;FONT:16 Fixedsys' onclick='fNextMonth()'>");
	write("</td>");
	write("</TR><TR>");
	write("<td align='center'>");
	write("<DIV style='background-color:#C0C0C0;'><table width='100%' border='0' cellpadding='1'>");
	fDrawCal(giYear, giMonth, 10, 10);
	write("</table></DIV>");
	write("</td>");
	write("</TR><TR><TD align='center'>");
	write("<div style='text-decoration:underline;cursor:hand' onclick='fSetDate(giYear,giMonth,giDay)'><font face='Verdana' size='1'><b>Today:</b>&nbsp;"+giDay+"&nbsp;"+gMonths[giMonth-1]+"&nbsp;"+giYear+"</font></div>");
	write("</TD></TR>");write("</TD></TR>");
	write("</TABLE></Div>");
}