有没有日历程序的源码?

第一部分：
calendardlg.html
<HTML><HEAD><TITLE>日期选择</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#94c885 onload=fload()>
<SCRIPT language=javascript src="calendar.js">
</SCRIPT><SCRIPT>
function fload()
{
fPopCalendar(document.all.txt1, document.all.txt1);
}function fkeydown()
{
if(event.keyCode==27){
event.returnValue = null;
window.returnValue = null;
window.close();
}
}document.onkeydown=fkeydown;
</SCRIPT>
<INPUT id=txt1 style="DISPLAY: none"> </BODY></HTML>

第二部分：
calendar.jsvar 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();var gCalMode = "";
var gCalDefDate = "";var CAL_MODE_NOBLANK = "2";function fSetDate(iYear, iMonth, iDay){
  //VicPopCal.style.visibility = "hidden";
  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;
  }

  for (i in goSelectTag)
   goSelectTag[i].style.visibility = "visible";
  goSelectTag.length = 0;

  window.returnValue=gdCtrl.value;
  window.close();
}function HiddenDiv()
{
var i;
  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; /*** below temp patch by maxiang ***/
if( color == gcGray ){
iOffset = (iDay < 15 )?1:-1;
}
/*** above temp patch by maxiang ***/ 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, sDateTextSize) {
  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-size:12px; ";
  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 ><b> </b></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{
// Modified by maxiang for we need
// Saturday displayed in blue font color.
//color = ((d==0)||(d==6))?"red":"black";
if( d == 0 ){
color = "red";
}else if( d == 6 ){
color = "blue";
}else{
color = "black";
}
// End of above maxiang
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;
}// 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(popCtrl, dateCtrl, mode, defDate){
gCalMode = mode;
gCalDefDate = defDate;

  if (popCtrl == previousObject){
   if (VicPopCal.style.visibility == "visible"){
   //HiddenDiv();
   return true;
   }

  }
  previousObject = popCtrl;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(popCtrl); if( gCalMode == CAL_MODE_NOBLANK ){
document.all.CAL_B_BLANK.style.visibility = "hidden";
}else{
document.all.CAL_B_BLANK.style.visibility = "visible";
}   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;width:100%;height:100%;top:0;left:0;z-index:100;overflow:hidden'>");
write("<table border='0' bgcolor='#94c885'>");
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=1900;i<2100;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:#6499b9'><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("<B ID=\"CAL_B_BLANK\" style='color:"+gcBG+"; visibility:visible; cursor:hand; font-size:12px' onclick='fSetDate(0,0,0)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=gcBG'>清空</B>");
write("</td><td algin='center'>");
write("<B style='color:"+gcBG+";cursor:hand; font-size:12px' onclick='fSetDate(giYear,giMonth,giDay)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=gcBG'>选择: "+giYear+"/"+giMonth+"/"+giDay+"</B>");
write("</td></tr></table>");
write("</TD></TR>");
write("</TABLE></Div>");
}

try:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>萬年歷</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
</head><body onLoad="init();show();">
<script language="JavaScript">
var i=0,mDay=[],newD=new Date();
var year,month;
function init()
{
year=newD.getYear();
month=newD.getMonth();
mDay=[31,28,31,30,31,30,31,31,30,31,30,31];
}
function show()
{
if(month>11)
{
month=0;
year++;
}
else if(month<0)
{
month=11;
year--;
}
if(year%(year%100==0?400:4)==0)mDay[1]=29;
indexDay=(new Date(year,month,1)).getDay();
yy1.value=year;
mm1.value=(month>8?month+1:"0"+(month+1));
for(i=0;i<42;i++)
if(i>=indexDay && i<mDay[month]+indexDay)
d1(i).innerText=i-indexDay+1
else
d1(i).innerText="";
if(year==newD.getYear()&&month==newD.getMonth())
d1(newD.getDate()+indexDay-1).innerHTML="\<font color='#ff0000'\>"+"\<strong\>"+newD.getDate()+"\<\/strong\>\<\/font\>"
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="12">
  <tr>
    <td align="center" style="font-size:24px;color:#000033;letter-spacing:3px">時間機器</td>
  </tr>
</table>
<table width="460" border="0" align="center" cellpadding="6" cellspacing="1" style="font-size:12px;color:#000033;border:3px dotted #1D7AB4">
  <tr align="center" bgcolor="1D7AB4" style="color:#ffffff">
    <td colspan="7" id="j1" style="font-size:20px;font-weight:bold">
        <input name="yy1" type="text" id="yy1" size="4" onBlur="javascript:year=yy1.value;show();" style="vertical-align:bottom;color:#ffffff;font-size:18px;letter-spacing:3px;font-weight:bold;border:0px;background-color:transparent">
        年
<input name="mm1" type="text" id="mm1" onBlur="javascript:month=Math.floor(mm1.value)-1;show();" style="width:24px;vertical-align:bottom;color:#ffffff;font-size:18px;letter-spacing:3px;font-weight:bold;border:0px;background-color:transparent">
        月 </td>
  </tr>
  <tr align="center" bgcolor="1D7AB4" style="color:#ffffff">
    <td>星期日</td>
    <td bgcolor="1D7AB4">星期一</td>
    <td>星期二</td>
    <td>星期三</td>
    <td>星期四</td>
    <td>星期五</td>
    <td>星期六</td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="#E9E9E9">
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
    <td id="d1"> </td>
  </tr>
  <tr align="center" bgcolor="DAE6F3">
    <td colspan="2" onMouseOver="this.style.cursor='hand'" onMouseUp="javascript:month--;show();">上一個月</td>
    <td colspan="2" onMouseOver="this.style.cursor='hand'" onMouseUp="init();show();" id="today">回到今天</td>
    <td colspan="2" onMouseOver="this.style.cursor='hand'" onMouseUp="javascript:month++;show();">下一個月</td>
    <td>關閉</td>
  </tr>
</table>
</body>
</html>

调试易

有没有日历程序的源码?

解决方案 »