var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#83E9B8";
var gcToggle = "#E983E3";
var gcBG = "#C193BE";

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
var giHour = gdCurDate.getHours();
var giMinute = gdCurDate.getMinutes();
var giSecond = gdCurDate.getSeconds();

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,iHour,iMinute,iSecond)
{
    var sYear = "";
    var sMonth = "";
    var sDay = "";
    var sHour = "";
    var sMinute = "";
    var sSecond = "";

    sYear = iYear;
    if(iMonth < 10)
        sMonth = "0" + iMonth;
    else
        sMonth = iMonth;
    if(iDay < 10)
        sDay = "0" + iDay;
    else
        sDay = iDay;
    if(iHour < 10)
        sHour = "0" + iHour;
    else
        sHour = iHour;
    if(iMinute < 10)
        sMinute = "0" + iMinute;
    else
        sMinute = iMinute;
    if(iSecond < 10)
        sSecond = "0" + iSecond;
    else
        sSecond = iSecond;            
    gdCtrl.value = sYear+"-"+sMonth+"-"+sDay; 
    //Here, you could modify the locale as you need !!!!
    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, giHour,giMinute,giSecond);
}

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("日","一","二","三","四","五","六");
    var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font:bold "+iDateTextSize+" 宋体;";
    
    with (document)
    {
        write("<tr>");
        for(i=0; i<7; i++)
        {
            write("<td "+styleTD+"color:#990099' >" + 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(" 一月"," 二月"," 三月"," 四月"," 五月"," 六月"," 七月"," 八月"," 九月"," 十月","十一月","十二月");

with (document)
{
    write("<Div id='VicPopCal' onclick='event.cancelBubble=true' style='POSITION:absolute;visibility:hidden;border:2px ridge;width:10;z-index:100;'>");
    write("<table border='0' bgcolor='#6699cc'>");
    write("<TR>");
    write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:20;width:20;FONT:bold' onClick='fPrevMonth()'>");
    write(" <Select name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
    for(i=2007;i<2020;i++)
    {
        write("<OPTION  value='"+i+"'>"+i+"年</OPTION>");
    }
    write("</Select>");
    write(" <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(" <input type='button' name='PrevMonth' value='>' style='height:20;width:20;FONT:bold' onclick='fNextMonth()'>");
    write("</td>");
    write("</TR><TR>");
    write("<td align='center'>");
    write("<DIV style='background-color:teal'><table width='100%' border='0' cellpadding='2'>");
    fDrawCal(giYear, giMonth, 12, 12);
    write("</table></DIV>");
    write("</td>");
    write("</TR><TR><TD align='center'>");
    write("<B style='cursor:hand;font:bold 16 宋体' onclick='fSetDate(giYear,giMonth,giDay,giHour,giMinute,giSecond)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>今天："+giYear+"年"+giMonth+"月"+giDay+"日</B>");
    write("</TD></TR>");
    write("</TABLE></Div>");
    write("<SCRIPT event=onclick() for=document>fHideCalendar()</SCRIPT>");
}