关于梅花雪日历控件3.0的问题

Question

http://www.adr.gov.cn/download/ddd.htm
http://www.adr.gov.cn/download/ccc.htm
两个时间输入界面，此外送给大家一个VBS版本的日历
<table border = 0 cellpadding = 0 cellspacing = 0>
<tr>
<td>
<table border = 0 cellpadding = 0 cellspacing = 0 width = 60 height = 70 style = 'position:absolute ;visibility:hidden' bgcolor = #FFFFE7>
<tr>
<td align = center>
<font style = 'cursor:hand ;color:#FF0000 ;font-family:宋体 ;font-size:14pt ;line-height:120%' >&nbsp;</font>
</td>
</tr>
<tr>
<td align = center>
<font style ='cursor:hand ;color:#2000FF ;font-family:宋体 ;font-size:9pt ;line-height:110%'>&nbsp;</font> 
</td>
</tr>
</table> 
<table border = 0 cellpadding = 0 cellspacing = 0 width = 61 bgcolor = #D6D3CE height = 70> 
<tr>
<td valign = top width = 100% height = 100%> 
<table border = 1 cellpadding = 0 cellspacing = 0 width = 58 bgcolor = #FFFFE7 height = 67> 
<tr>
<td align = center width = 100% height = 100%> 
<font id = C1 style = "font-family:宋体; font-size:7pt; line-height:120%">&nbsp;</font></br>
<font id = C2 style = "color:#FF0000; font-family:Arial ;font-size:14pt ;line-height:120%">&nbsp;</font></br> 
<font id = C3 style = "font-family:宋体 ;font-size:9pt ;line-height:120%">&nbsp;</font></br> 
<font id = C4 style = "color:#100080 ;font-family:宋体; font-size:8pt ;line-height:120%">&nbsp;</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
<SCRIPT language=vbs>
function YM() '年月
YM = "<font color = #3A6EA5>"
if Weekday(date) = 0 then YM = "<font color = #C00000>"
if Weekday(date) = 6 then YM = "<font color = #00C000>"
YM= YM & Year(date) & "年" & Month(date) & "月</font>"
end functionfunction DD() '日
DD= "<font color = #FF0000>"
if Weekday(date)=0 then DD = "<font color = #C00000>"
if Weekday(date)=6 then DD = "<font color = #00C000>"
DD= DD & day(date) & "</font>" 
end functionfunction HMS() '时分秒
HMS=Hour(Now) & ":"
dim mm:mm=Minute(Now)
dim ss:ss=Second(Now)  
if mm<10 then HMS=HMS & "0" & mm else HMS=HMS & mm
if ss<10 then HMS=HMS & "0" & ss else HMS=HMS & ss  
end functionfunction WW() '星期
WW= "<font color = #0000DF>"
Dim w:w=Weekday(date) 
if w = 0 then WW = "<font color = #C00000>"
if w = 6 then WW = "<font color = #00C000>"
WW= WW & WeekDayName(w,true) & "</font>" 
end functionsub CCC() '刷新时间
C1.innerHTML = YM()
C2.innerHTML = DD()
C3.innerHTML = WW()
C4.innerHTML = HMS()
end sub
CCC
window.setInterval "CCC", "1000" ,"vbs"
</SCRIPT>
个人认为VBS比JS的代码易读，短小，功能方便
我用JS只为了改别人的垃圾代码，如果自己开发，首选VBS
JS版本对照：
<SCRIPT language=javascript>
<!--
function Year_Month()
{
 var now = new Date();
 var yyyy = now.getYear();
 var mmmm = now.getMonth() + 1;
 var cl = '<font color = "#3A6EA5">';
 if ( now.getDay() == 0 )
  cl = '<font color = "#C00000">';
 if ( now.getDay() == 6 )
  cl = '<font color = "#00C000">';
 return( cl + yyyy + '年' + mmmm + '月</font>' );
}
function Date_of_Today()
{
 var now = new Date();
 var cl = '<font color = "#FF0000">';
 if ( now.getDay() == 0 )
  cl = '<font color = "#C00000">';
 if ( now.getDay() == 6 )
  cl = '<font color = "#00C000">';
 return( cl + now.getDate() + '</font>' );
}
function CurentTime()
{
 var now = new Date();
 var hh = now.getHours();
 var mm = now.getMinutes();
 var ss = now.getTime() % 60000;
 ss = ( ss - ( ss % 1000 ) ) / 1000;
 var clock = hh + ':';
 if( mm < 10 )
  clock += '0';
 clock += mm + ':';
 if( ss < 10 )
  clock += '0';
 clock += ss;
 return( clock );
}
function Day_of_Today()
{
 var day = new Array();
 day[0] = "星期日";
 day[1] = "星期一";
 day[2] = "星期二";
 day[3] = "星期三";
 day[4] = "星期四";
 day[5] = "星期五";
 day[6] = "星期六";
 var now = new Date();
 var cl = '<font color = "#0000DF">';
 if ( now.getDay() == 0 )
  cl = '<font color = "#C00000">';
 if ( now.getDay() == 6 )
  cl = '<font color = "#00C000">';
 return( cl +  day[ now.getDay() ] + '</font>' );
}
function refreshCalendarClock()
{
 document.all.calendarClock1.innerHTML = Year_Month();
 document.all.calendarClock2.innerHTML = Date_of_Today();
 document.all.calendarClock3.innerHTML = Day_of_Today();
 document.all.calendarClock4.innerHTML = CurentTime();
}
var
 webUrl = webUrl;
 document.write( '<table border = "0" cellpadding = "0" cellspacing = "0"><tr><td>' );
 document.write( '<table id = "CalendarClockFreeCode" border = "0" cellpadding = "0" cellspacing = "0" width = "60" height = "70" style = "position:absolute; visibility:hidden" bgcolor = "#FFFFE7">' );
 document.write( '<tr><td align = "center"><font style = "cursor:hand; color:#FF0000; font-family:宋体; font-size:14pt; line-height:120%"' );
 if( webUrl != 'netflower' )
 {
  document.write( '</td></tr><tr><td align = "center"><font style = "cursor:hand; color:#2000FF; font-family:宋体; font-size:9pt; line-height:110%"' );
 }
 document.write( '</td></tr></table>' );
 document.write( '<table border = "0" cellpadding = "0" cellspacing = "0" width = "61" bgcolor = "#D6D3CE" height = "70">' );
 document.write( '<tr><td valign = "top" width = "100%" height = "100%">' );
 document.write( '<table border = "1" cellpadding = "0" cellspacing = "0" width = "58" bgcolor = "#FFFFE7" height = "67">' );
 document.write( '<tr><td align = "center" width = "100%" height = "100%">' );
 document.write( '<font id = "calendarClock1" style = "font-family:宋体; font-size:7pt; line-height:120%"></font><br/>' );
 document.write( '<font id = "calendarClock2" style = "color:#FF0000; font-family:Arial; font-size:14pt; line-height:120%"></font><br/>' );
 document.write( '<font id = "calendarClock3" style = "font-family:宋体; font-size:9pt; line-height:120%"></font><br/>' );
 document.write( '<font id = "calendarClock4" style = "color:#100080; font-family:宋体; font-size:8pt; line-height:120%"></font>' );
 document.write( '</td></tr></table>' );
 document.write( '</td></tr></table>' );
 document.write( '</td></tr></table>' );
 refreshCalendarClock();
 setInterval( 'refreshCalendarClock()', 1000);
-->
</SCRIPT>