อยากได้ code calendar ภาษา asp ค่ะ ใครมีบ้างค่ะ code calendar ( ปฏิทินค่ะ ) ค่ะ ขอด้วยนะค่ะ

/*firefox พอได้*/

var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#FFFFCC";
var gcToggle = "#FFFF99";
var gcBG = "#CCCCFF";

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

function lpad(str,fill,leng) 
{ 
    var n = leng - str.length; 
    var out =""; 
    for (i =0; i < n; i++)  out = out + fill; 
    out=out+str; 
    return out; 
} 

function fSetDate(iYear, iMonth, iDay){
  VicPopCal.style.display = "none";
  iDay=iDay.toString();
  iDay=lpad(iDay,0,2);
  iMonth=iMonth.toString();
  iMonth=lpad(iMonth,0,2);
  gdCtrl.value = iDay+"/"+iMonth+"/"+iYear; //Here, you could modify the locale as you need !!!!
  for (i in goSelectTag)
  	goSelectTag[i].style.display = "inline";
  goSelectTag.length = 0;
}

function closeCal(){
  VicPopCal.style.display = "none";
}

function close(){
  VicPopCal.style.display = "none";
}

function fSetSelected(aCell){
  var iOffset = 0;
  var tbSelYear = document.getElementsByName('tbSelYear')[0];
  var tbSelMonth = document.getElementsByName('tbSelMonth')[0];
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);
  //self.event.cancelBubble = true;
  aCell.bgColor = gcBG;  
  with (aCell.children["cellText"]){
  	var iDay = parseInt(innerHTML);
  	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:bold "+iDateTextSize+" Courier;'";            //Coded by Liming Weng(Victor Won)  email:[email protected]
  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) {
  iYear=iYear;
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  var at = 0;
  var at2 = 0;
  //var cellText = document.getElementsByName('cellText');
  //alert(cellText.length);
  var cellText = window.document.getElementsByTagName("font");
  //alert(cellText.length);
  for (w = 0; w < 6; w++){
	for (d = 0; d < 7; d++){
		at = ((7*w)+d);
		with (cellText[at]) {
			Victor = i++;
			at2 = w+1;
			if (myMonth[at2][d]<0) {
				color = gcGray;
				innerHTML = -myMonth[at2][d];
			}else{
				color = ((d==0)||(d==6))?"red":"black";
				innerHTML = myMonth[at2][d];
			}
		}
	}
  }
}

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

function fPrevMonth(){
  var iMon = document.getElementsByName('tbSelMonth')[0].value;
  var iYear = document.getElementsByName('tbSelYear')[0].value;
  if (--iMon<1) {
	  iMon = 12;
	  iYear--;
  }
  fSetYearMon(iYear, iMon);
}

function fNextMonth(){
  var iMon = document.getElementsByName('tbSelMonth')[0].value;
  var iYear = document.getElementsByName('tbSelYear')[0].value;
  if (++iMon>12) {
	  iMon = 1;
	  iYear++;
  }
  fSetYearMon(iYear, iMon);
}

function fToggleTags(){
  //with (document.all.tags("SELECT")){ 
  with (document.getElementsByTagName("SELECT")){
 	for (i=0; i<length; i++){
 		if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
 			item(i).style.display = "none";
 			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;
}

// 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.
// 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(dateCtrl){
	//alert(dateCtrl);
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(dateCtrl);
  with (VicPopCal.style) {
  	left = point.x;
	top  = point.y+dateCtrl.offsetHeight+1;
	width = VicPopCal.offsetWidth;
	height = VicPopCal.offsetHeight;
	//fToggleTags(point);
	display = 'inline';
  }
  VicPopCal.focus();
}

function fHideCal(){
  var oE = window.event;
  if ((oE.clientX>0)&&(oE.clientY>0)&&(oE.clientX<document.body.clientWidth)&&(oE.clientY<document.body.clientHeight)) {
	var oTmp = document.elementFromPoint(oE.clientX,oE.clientY);
	while ((oTmp.tagName!="BODY") && (oTmp.id!="VicPopCal"))
		oTmp = oTmp.offsetParent;
	if (oTmp.id=="VicPopCal")
		return;
  }
  VicPopCal.style.display = "none";
  for (i in goSelectTag)
	goSelectTag[i].style.display = "inline";
  goSelectTag.length = 0;
}

var gMonths = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

with (document) {
write("<Div id='VicPopCal' onblur='fHideCal()' onclick='focus()' style='POSITION:absolute;display:none;border:2px ridge;width:10;z-index:100;'>");
write("<table border='0' bgcolor='#FFFFFF' style='border: thin solid;'>");
write("<TR>");
write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:20;width:20;FONT:16 Fixedsys' onClick='fPrevMonth()' onblur='fHideCal()'>");
write("&nbsp;&nbsp;<select name='tbSelMonth' id='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' onclick='self.event.cancelBubble=true' onblur='fHideCal()'>");
for (i=0; i<12; i++)
	write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("&nbsp;&nbsp;<SELECT name='tbSelYear' id='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' onclick='self.event.cancelBubble=true' onblur='fHideCal()'>");
for(i=giYear-60;i<giYear+1;i++)
	write("<OPTION value='"+(i)+"'>&nbsp;&nbsp;"+(i)+"&nbsp;&nbsp;</OPTION>");
write("</SELECT>");
write("&nbsp;&nbsp;<input type='button' name='PrevMonth' value='>' style='height:20;width:20;FONT:16 Fixedsys' onclick='fNextMonth()' onblur='fHideCal()'>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV style='background-color:#FFFFFF; width: 210px;'><table width='100%' border='0'>");
fDrawCal(giYear, giMonth, 18, 16);
write("</table></DIV>");
write("</td>");
write("</TR>");
/*
write("<TR><TD align='center'>");
write("<B style='cursor:hand' onclick='fSetDate(giYear,giMonth,giDay); self.event.cancelBubble=true' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>today:&nbsp;&nbsp;"+giDay+"&nbsp;"+gMonths[giMonth-1]+"&nbsp;&nbsp;"+(giYear)+"</B>");
write("</TD></TR>");write("</TD></TR>");
*/
write("<TR><TD align='center'>");
write("<B style='cursor:hand' onclick='closeCal(); self.event.cancelBubble=true' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>close</B>");
write("</TD></TR>");write("</TD></TR>");
write("</TABLE></Div>");
}

window.onload = function() {

	tbSelYear.onchange = function() {
		fUpdateCal(tbSelYear.value, document.getElementById('tbSelMonth').value);
	}	
	tbSelMonth.onchange = function() {
		fUpdateCal(tbSelYear.value, tbSelMonth.value);
	}
}