|
源代码网推荐
/////////////////////////////////////////////////////////
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
tSave.innerHTML = "R"
tSave.style.color= "White"
End If
TimeAdd = FormatDateTime(Date, 1) & " " & FormatDateTime(TimeAdd,3)
End Function
"-->
</SCRIPT>
<STYLE>.todyaColor {
BACKGROUND-COLOR: aqua
}
</STYLE>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
<BODY onload=initialize() onunload=terminate()>
<SCRIPT language=JavaScript><!--
if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
document.write("<h1>你的浏览器无法执行此程序。</h1>此程序 在 IE4 以後的版本才能执行!!")
//--></SCRIPT>
<DIV id=detail
style="FILTER: shadow(color=#333333,direction=135); HEIGHT: 120px; POSITION: absolute; WIDTH: 140px"></DIV>
<CENTER>
<FORM name=CLD>
<TABLE border=0>
<TBODY>
<TR>
<TD align=middle vAlign=top width=240><FONT size=2
style="FONT-SIZE: 9pt">本地时间</FONT><BR><FONT color=#000080 face=Arial
id=Clock size=2 align="center"></FONT>
<P><FONT id=CITY
style="FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; HEIGHT: 28px; WIDTH: 150px"></FONT><BR><FONT
color=#000080 face=Arial id=Clock2 size=2 align="center"></FONT><BR>
<TABLE style="FONT-FAMILY: Wingdings; FONT-SIZE: 10pt">
<TBODY>
<TR>
<TD align=middle>ú
<DIV
style="BACKGROUND-COLOR: darkblue; HEIGHT: 120px; OVERFLOW: hidden; WIDTH: 240px"><FONT
id=world
style="COLOR: green; FONT-FAMILY: Webdings; FONT-SIZE: 185px; LEFT: 0px; POSITION: relative; TOP: -26px">??</FONT>
</DIV>ù </TD></TR></TBODY></TABLE><BR><!--时区 *表示自动调整为日光节约时间--><FONT
id=tSave
style="COLOR: white; FONT-FAMILY: Wingdings; FONT-SIZE: 18pt"></FONT><FONT
size=2 style="FONT-SIZE: 9pt"><SELECT name=TZ onchange=changeTZ()
style="FONT-SIZE: 9pt"> <OPTION selected
value="-1200 安尼威土克、瓜甲兰 ">国际日期变更线<OPTION
value="-1100 中途岛、萨摩亚群岛 ">萨摩亚<OPTION
value="-1000 夏威夷 ">夏威夷<OPTION
value="-0900*阿拉斯加 ">阿拉斯加<OPTION
value="-0800*太平洋时间(美加)、提亚纳 ">太平洋<OPTION
value="-0700*山区时间(美加) ">美加山区<OPTION
value="-0700 亚历桑那 ">美国山区<OPTION
value="-0600 中美洲 ">中美洲<OPTION
value="-0600*中部时间(美加) 查看
源代码网供稿. |
