function getNowDate()
{
   var nn=new Date();
   year1=nn.getYear();
   mon1=nn.getMonth()+1;
   date1=nn.getDate();
   var monstr1;
   var datestr1;
   monstr1=""+mon1;
   datestr1=""+date1;
   return year1+"-"+monstr1+"-"+datestr1;
}

function getlastweekDate()
{
   var nn=new Date();
   year1=nn.getYear();
   mon1=nn.getMonth()+1;
   date1=nn.getDate();
   
   var mm=new Date(year1,mon1-1,date1);
   var tmp1=new Date(2000,1,1);
   var tmp2=new Date(2000,1,15);
   var ne=tmp2-tmp1;
   var mm2=new Date();
   mm2.setTime(mm.getTime()-ne);
   
   
   year2=mm2.getYear();
   mon2=mm2.getMonth()+1;
   date2=mm2.getDate();
   monstr2=""+mon2;
   datestr2=""+date2;
 
   
    return year2+"-"+monstr2+"-"+datestr2;
}



var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray   = "#808080";
var gcToggle = "#FB8664";
var gcBG = "#e5e6ec";
var previousObject = null;

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

function fSetDate(iYear, iMonth, iDay,i){
  VicPopCal.style.visibility = "hidden";
  showSelect();
  if(flag==1&&window.opener==null){
    parent.document.all("main").rows=rows;
  }else{
	  if(flag==1&&window.name!="DetailName")
	    window.resizeTo(allwidth+10, allheight+28);
  }			  
  if ((iYear == 0) && (iMonth == 0) && (iDay == 0)){
  	gdCtrl.value = "";
  }else{
  	if(gdCtrl.type == "INPUT"){
  	  	gdCtrl.value = iYear+"-"+iMonth+"-"+iDay;
  	}else{
  			mblank = "0";
  			dblank = "0";
  			if (iMonth > 9)
  				mblank = "";
  			if (iDay > 9)
  				dblank = "";
  	  	gdCtrl.innerText = iYear+"/"+mblank+iMonth+"/"+dblank+iDay;
  	}
  }
  if(gdCtrl.XmlSrc!=null)
  {
	gdCtrl.Change_Xml_Value();
  }
  for (i in goSelectTag)
  	goSelectTag[i].style.visibility = "visible";
  goSelectTag.length = 0;
  
  window.returnValue=gdCtrl.value;
}

function HiddenDiv()
{
	var i;
  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, sFont) {
  var WeekDay = new Array("日","一","二","三","四","五","六");
  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='10' style='"+sFont+" cursor:hand'";            //Coded by Liming Weng(Victor Won) email:victorwon@sina.com

  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";
		  if(flag==1&&window.opener==null)
		    parent.document.all("main").rows=rows;
		  if(flag==1&&window.name!="DetailFrame")
		    window.resizeTo(allwidth+10, allheight+20);
 			//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;
}

function docmentclick() 
{ 
  with(window.event.srcElement)
  { 
    //alert("dddd"+getAttribute("Author"));
  if (getAttribute("Author")==null ){
  //  if (tagName=="BODY"){
       VicPopCal.style.visibility = "hidden";
       showSelect();
    }
    
  }
  return;
}

//document.onclick = docmentclick;

function getToday(){
	
  return;
}

function putcal(openerformName, openeritemName, j){
	
	flag=j;
	if (VicPopCal.style.visibility == "hidden"){
		allwidth=document.body.clientWidth;  
		allheight=document.body.clientHeight; 
	}
	try{
	  var t = window.opener.name;
	}catch(e){
	  window.opener=null;
	}

	var tmppoint = new Point(0,0);
	tmppoint = fGetXY(eval("document." + openerformName + "." + openeritemName));
	var tmp=eval("document."+openerformName+"."+openeritemName);

	fPopCalendar(tmp, tmp);
}

// Main: 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.
function fPopCalendar(popCtrl, dateCtrl,strDate){
	
  if(popCtrl == previousObject){
	
	  	if (VicPopCal.style.visibility == "visible"){
			  if(flag==1&&window.opener==null){
			    parent.document.all("main").rows=rows;
			  }else{
				  if(flag==1&&window.name!="DetailName")
				    window.resizeTo(allwidth+10, allheight+28);
			  }			  
 	
 		    VicPopCal.style.visibility = "hidden";
			  showSelect();
  		  return true;
  	  }  	
  }

  if(popCtrl != previousObject&&VicPopCal.style.visibility == "visible"){
    
    //VicPopCal.style.visibility = "hidden";
	  if(flag==1&&window.opener==null){
	    parent.document.all("main").rows=rows;
	  }else{
		  if(flag==1&&window.name!="DetailName")
		    window.resizeTo(allwidth+10, allheight+28);
	  }			  
  }

  previousObject = popCtrl;
  gdCtrl = dateCtrl;
  strDate = transDate(dateCtrl.value);
  fInitialDate(strDate);
    
  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); 	
  }
  
  var strtmptop=VicPopCal.style.top +"px";
  var tmptop=new Number(strtmptop.substring(0,strtmptop.indexOf("px")));
  var strtmpheight=VicPopCal.style.height+"px";
  var tmpheight=new Number(strtmpheight.substring(0,strtmpheight.indexOf("px")));
  var strtmpleft=VicPopCal.style.left +"px";
  var tmpleft=new Number(strtmpleft.substring(0,strtmpleft.indexOf("px")));
  var strtmpwidth=VicPopCal.style.width+"px";
  var tmpwidth=new Number(strtmpwidth.substring(0,strtmpwidth.indexOf("px")));
  allleft=tmpleft;
  alltop=tmptop;
  allx=tmpleft+tmpwidth;
  ally=tmptop+tmpheight;
  
  if(flag==1&&window.opener==null){
    rows=parent.document.all("main").rows;
    parent.document.all("main").rows=(tmpheight+tmptop)+",*";
  }else{
	if(flag==1&&window.name!="DetailFrame"){
    if(window.name!="DetailFrame"){
      if(allwidth<tmpleft+tmpwidth)
        window.resizeTo(tmpleft+tmpwidth+ 10,allheight+28); 
      var width=document.body.clientWidth;  
      if(allheight<tmptop+tmpheight)
        window.resizeTo(width+ 10,tmptop+tmpheight+28);
    }
   }
  }
  
  hiddenSelect();
  
  VicPopCal.style.visibility = 'visible';
  
}


function hiddenSelect(){
	var n=0;
  for(var i=allleft;i<=allx;i+=9){
    for(var j=alltop;j<=ally;j+=9){
       var obj=document.elementFromPoint(i,j);
       try{
	       if(obj.type=="select-one"){
	       	 selectObj[n]=obj;
	       	 n++;
	         obj.style.visibility="hidden";
	       }
       }catch(e){
         continue;
       }
    }
  }
}

function showSelect(){
	try{
	  for(var i=0; i<=9;i++){
	    if(selectObj[i]!=null)
	      selectObj[i].style.visibility="visible";
	  }
	}catch(e){
	  return;	
	}
}

function transDate(inDate){	
	var newDate = null;
	var reDate = "";
	newDate = inDate.split("-");
	for (var i = 0;i< newDate.length;i++){
		if (i ==1){
			if (newDate[i].length ==1)
				newDate[i] = 0+newDate[i];
		}else if (i ==2){
			if (newDate[i].length ==1)
				newDate[i] = 0+newDate[i];
		}
		var splitf="-";
		if(reDate=="")
		  splitf="";
		reDate = reDate+splitf+newDate[i];
	}	
	 return reDate;  		 
}


function fInitialDate(strDate){
	if( strDate == null || strDate.length != 10 )
		return false;

	var sYear  = strDate.substring(0,4);
	var sMonth = strDate.substring(5,7);
	var sDay   = strDate.substring(8,10);

	if( sMonth.charAt(0) == '0' ) { sMonth = sMonth.substring(1,2); }
	if( sDay.charAt(0)   == '0' ) { sDay   = sDay.substring(1,2);   }

	var nYear  = parseInt(sYear );
	var nMonth = parseInt(sMonth);
	var nDay   = parseInt(sDay  );
	
	if ( isNaN(nYear ) )	return false;
	if ( isNaN(nMonth) )	return false;
	if ( isNaN(nDay  ) )	return false;

	var arrMon = new Array(12);
	arrMon[ 0] = 31;	arrMon[ 1] = (((nYear%4)==0 &&(nYear%100)!=0)||nYear%400) == 0 ? 29:28;
	arrMon[ 2] = 31;	arrMon[ 3] = 30;
	arrMon[ 4] = 31;	arrMon[ 5] = 30;
	arrMon[ 6] = 31;	arrMon[ 7] = 31;
	arrMon[ 8] = 30;	arrMon[ 9] = 31;
	arrMon[10] = 30;	arrMon[11] = 31;

	if ( nYear  < 1900 || nYear > 2100 )			return false;
	if ( nMonth < 1 || nMonth > 12 )				return false;
	if ( nDay < 1 || nDay > arrMon[nMonth - 1] )	return false;

	giYear  = nYear;
	giMonth = nMonth;
	giDay   = nDay;
	return true;
}

var gMonths = new Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月");
var flag=0;
var rows;
var allwidth;  
var allheight;
var alltop;
var allleft;
var allx;
var ally;
var selectObj = new Array(10);

with (document) {
write("<Div id='VicPopCal' style='OVERFLOW:hidden;POSITION:absolute;VISIBILITY:hidden;border:2px ridge;z-index:100;'>");
write("<table bgcolor='#cccccc' border=1 cellspacing=0 cellpadding=0>");
write("<TR VALIGN='TOP'>");
write("<td valign='TOP' align='center'><input type='button' Author=meizz name='PrevMonth' value='<' style='height:25;width:18;FONT:bold;color: #FFD700' onClick='fPrevMonth()'>");
write("<SELECT Author=meizz name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' style='height:16px;width:80px'>");
for(i=0;i<2;i++)
	write("<OPTION value='"+(giYear-i)+"'>"+(giYear-i)+"年</OPTION>");
write("</SELECT>");
write("<select Author=meizz name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' style='height:16px;width:65px'>");
for (i=0; i<12; i++)
	write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("<input type='button' Author=meizz name='PrevMonth' value='>' style='height:25;width:18;FONT:bold' onclick='fNextMonth()'>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV style='background-color:teal'><table width='100%' border='0'>");
fDrawCal(giYear, giMonth, 20, 'font: 8pts 宋体;');
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD align='center'>");
write("<TABLE width='100%'><TR><TD align='center'>");
//write("<B style='cursor:hand;font:  8pts 宋体;' onclick='fSetDate(0,0,0)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>清空</B>");
write("</td><td algin='center'>");
write("<B style='cursor:hand;font:  8pts 宋体;' onclick='fSetDate("+giYear+","+giMonth+","+giDay+");' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>今天: "+giYear+"-"+giMonth+"-"+giDay+"</B>");
write("</td></tr></table>");
write("</TD></TR>");
write("</TABLE></Div>");
}