function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
var clnd_backcolor="#4466AA";
var clnd_forecolor="#FFFFFF";
var clnd_backcolor2="#C0F0FF";
var clnd_forecolor2="#0000AA";
var clnd_bordercolor="#4444AA";
var clnd_weekbackcolor="#C0D0F0";
var clnd_workdaycolor="#004488";
var clnd_suncolor="#FFFFFF";
var clnd_today_backcolor="#F0C0FF";
var clnd_today_forecolor="#0000AA";


function clnd(clndname,year,month,tag,lang,cw,ch,mode){
	if (!cw) cw=34;
	if (!ch) ch=18;
	
	var myDate=new Date(year,month-1,1);
	year=myDate.getFullYear();
	month=myDate.getMonth()+1
	var today=new Date();
	
	var tdY=today.getFullYear();
	var tdM=today.getMonth()+1;
	var tdD=today.getDate();
	
	var sClnd="";
	sClnd+="<table width='"+(cw*7+8)+"' border='0' align='left' cellpadding='0' cellspacing='1' bgcolor='"+clnd_bordercolor+"' ";
	sClnd+="style='font-family: Verdana;font-size:8pt;cursor:default;'>";
	sClnd+="<tr bgcolor='"+clnd_backcolor+"' align='center' height='"+ch+"'><td colspan='7'>";
	sClnd+="<table style='font-family: Verdana;font-size: 8pt;' border='0' cellspacing='0' cellpadding='0' height='100%' width='100%'><tr>";
	sClnd+="<td width='24' align='center' onclick="+"\"clnd('"+clndname+"',"+(year-1)+","+month+",'"+tag+"',"+lang+","+cw+","+ch+","+mode+")\""+"><b><font color='"+clnd_forecolor+"'>&lt;&lt;</font></b></td>";
	sClnd+="<td width='24' align='center' onclick="+"\"clnd('"+clndname+"',"+year+","+(month-1)+",'"+tag+"',"+lang+","+cw+","+ch+","+mode+")\""+"><b><font color='"+clnd_forecolor+"'>&lt;</font></b></td>";
	sClnd+="<td align='center'><b><font color='"+clnd_forecolor+"'>"+((lang==0)?(year+'年'+month+'月'):(getmonthname(month,0)+", " + year)) +"</font></b></td>";
	sClnd+="<td width='24' align='center' onclick="+"\"clnd('"+clndname+"',"+year+","+(month+1)+",'"+tag+"',"+lang+","+cw+","+ch+","+mode+")\""+"><b><font color='"+clnd_forecolor+"'>&gt;</font></b></td>";
	sClnd+="<td width='24' align='center' onclick="+"\"clnd('"+clndname+"',"+(year+1)+","+month+",'"+tag+"',"+lang+","+cw+","+ch+","+mode+")\""+"><b><font color='"+clnd_forecolor+"'>&gt;&gt;</font></b></td>";
	sClnd+="</tr></table></td></tr><tr align='center' bgcolor='"+clnd_weekbackcolor+"' height='"+ch+"'>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_suncolor+"'>"+(lang==0?"日":"Sun")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"一":"Mon")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"二":"Tue")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"三":"Wed")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"四":"Thu")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"五":"Thu")+"</font></b></td>";
	sClnd+="<td width='"+cw+"'><b><font color='"+clnd_workdaycolor+"'>"+(lang==0?"六":"Sat")+"</font></b></td></tr>";
	var fdm=myDate.getDay();
	var i=1;
	var stagtr="<tr align='center' bgcolor='"+clnd_backcolor+"' color='"+clnd_forecolor+"' height='"+ch+"'>";
			
	if (mode){
		if (fdm!=0)
			sClnd+=stagtr;
		for (i=0;i<fdm;i++)
			sClnd+="<td>&nbsp;</td>";
		do{
			if (fdm>6)
				fdm=0;
			if (fdm==0)
				sClnd+=stagtr;
			sClnd+="<td"+(tdY==myDate.getYear() && tdM==myDate.getMonth()+1 && tdD==myDate.getDate()?" bgcolor='"+clnd_today_backcolor+"'":"");
			sClnd+=" onclick='clnd_onclick(\"" +clndname+"\","+myDate.getYear()+","+(myDate.getMonth()+1)+","+myDate.getDate()+");'>";
			sClnd+="<font color='" + (tdY==myDate.getYear() && tdM==myDate.getMonth()+1 && tdD==myDate.getDate()?clnd_today_forecolor:clnd_forecolor) + "'>" +myDate.getDate()+"</font></td>";
			if (fdm==6)
				sClnd+="</tr>";
			myDate.setDate(myDate.getDate()+1);
			fdm++;
		}while(myDate.getDate()>1);
		
		if (fdm<7){
			while (fdm<7){
				sClnd+="<td>&nbsp;</td>";
				fdm++;
			}
			sClnd+="</tr>";
		}
	}else{
		var inmonth=0;
		myDate.setDate(myDate.getDate()-fdm);
		for (i=0;i<42;i++){
			if (myDate.getDate()==1)
				inmonth=~inmonth;
				
			if (i%7==0)
				sClnd+=stagtr;
			sClnd+="<td"+(tdY==myDate.getYear() && tdM==myDate.getMonth()+1 && tdD==myDate.getDate()?" bgcolor='"+clnd_today_backcolor+"'":(inmonth?"":" bgcolor='"+clnd_backcolor2+"'"));
			sClnd+=" onclick='clnd_onclick(\"" +clndname+"\","+myDate.getYear()+","+(myDate.getMonth()+1)+","+myDate.getDate()+");'>";
			sClnd+="<font color='" + (tdY==myDate.getYear() && tdM==myDate.getMonth()+1 && tdD==myDate.getDate()?clnd_today_forecolor:(inmonth?clnd_forecolor:clnd_forecolor2)) + "'>" +myDate.getDate()+"</font></td>";
			if (i%7==6)
				sClnd+="</tr>";
			myDate.setDate(myDate.getDate()+1);
		}
	}
	sClnd+="</table>";
	var tmpobj=MM_findObj(tag);
	if (tmpobj!="")
		tmpobj.innerHTML=sClnd;
}

function clnd_onclick(name,y,m,d){
	myform.DateAndTime.value=y+"-"+m+"-"+d;
	alert(y+"-"+m+"-"+d+" is selected!");
	//alert(name+":"+y+"-"+m+"-"+d);
}


function getmonthname(month,s){
	var sMonth="";
	switch (month){
		case 1:sMonth="January";break;
		case 2:sMonth="February";break;
		case 3:sMonth="March";break;
		case 4:sMonth="April";break;
		case 5:sMonth="May";break;
		case 6:sMonth="June";break;
		case 7:sMonth="July";break;
		case 8:sMonth="August";break;
		case 9:sMonth="September";break;
		case 10:sMonth="October";break;
		case 11:sMonth="November";break;
		case 12:sMonth="December";break;
		default:sMonth="January";break;
		}
		if (s==1)
			return sMonth.substr(0,3);
		else
			return sMonth;
}