最完美的JS万年历（三）

/////////////////////////////////////////////////////////
function changeTZ() {
     CITY.innerHTML = CLD.TZ.value.substr(6);
     var pos = Math.floor(CLD.TZ.value.substr(0,3));
     if(pos<0) pos+=24;
     pos*=-10;
     world.style.left = pos;
}
function tick() {
     var today;
     today = new Date();
     Clock.innerHTML = today.toLocaleString();
     Clock2.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value);
     window.setTimeout("tick()", 1000);
}
//-->
</SCRIPT>
<SCRIPT language=VBScript>
<!--
'===== 算世界时间
Function TimeAdd(UTC,T)
     Dim PlusMinus, DST, y
     If Left(T,1)="-" Then PlusMinus = -1 Else PlusMinus = 1
     UTC=Right(UTC,Len(UTC)-5)
     UTC=Left(UTC,Len(UTC)-4)
     y = Year(UTC)
     TimeAdd=DateAdd("n", (Cint(Mid(T,2,2))*60 + Cint(Mid(T,4,2))) * PlusMinus, UTC)
     '美国日光节约期间: 4月第一个星日00:00 至 10月最後一个星期日00:00
     If Mid(T,6,1)="*" And DateSerial(y,4,(9 - Weekday(DateSerial(y,4,1)) mod 7) ) <= TimeAdd And DateSerial(y,10,31 - Weekday(DateSerial(y,10,31))) >= TimeAdd Then
        TimeAdd=DateAdd("h", 1, TimeAdd)
        tSave.innerHTML = "R"
        tSave.style.color= "Red"
     Else

补充：asp教程,客户端相关打印