帮我改代码,网页

& lt脚本语言= VBScript & gt

& lt!-

= = = =计算世界时间

函数TimeAdd(UTC,T)

Dim PlusMinus,DST,y,tSave

如果Left(T,1)="-"那么PlusMinus = -1否则PlusMinus = 1

UTC=Right(UTC,Len(UTC)-5)

UTC=Left(UTC,Len(UTC)-4)

y =年份(UTC)

TimeAdd=DateAdd("n ",,(Cint(Mid(T,2,2))*60 + Cint(Mid(T,4,2))) * PlusMinus,UTC)

美国夏令时:4月第一个星日00:00至6月最后一个周日00:00 10。

If Mid(T,6,1)="* "和DateSerial(y,4,(9 - Weekday(DateSerial(y,4,1))mod 7))& lt;= TimeAdd和DateSerial(y,10,31 -工作日(DateSerial(y,10,31)))>;= TimeAdd然后添加

TimeAdd=CStr(DateAdd("h ",1,TimeAdd))& amp;“& ltFONT STYLE = ' FONT-size:18pt;字体系列:Wingdings颜色:红色' & gtR & lt/FONT >

其他

如果…就会结束

TimeAdd = CStr(TimeAdd)

结束功能

-& gt;

& lt/SCRIPT & gt;

& ltSTYLE & gt。todyaColor {

背景色:浅绿色

}

& lt/STYLE & gt;

& ltMETA content = " MSHTML 6 . 00 . 2800 . 1505 " name = GENERATOR & gt;& lt/HEAD & gt;

& ltBODY left margin = 0 top margin = 0 onload = initial()& gt;

& lt脚本语言= JavaScript & gt

& lt!-

if(navigator . appname = = " Netscape " | | parse int(navigator . appversion)& lt;4)

document . write(" & lt;h 1 & gt;您的浏览器无法执行此程序。& lt/h 1 & gt;这个程序只能在IE4之后执行!!")

//-& gt;

& lt/SCRIPT & gt;

& lt脚本语言= JavaScript & gt

lck = 0;

函数r(hval)

{

if ( lck == 0)

{

document.bgColor = hval

}

}

& lt/SCRIPT & gt;

& ltDIV id = detail style = " POSITION:absolute " & gt;& lt/DIV & gt;

& lt中心& gt

& ltFORM name = CLD & gt;

& lt表& gt

& ltTBODY & gt

& ltTR & gt

& ltTD vAlign=top align=middle>。& ltBR & gt

& ltFONT id = Clock face = Arial color = # 000080 size = 4

align="center " >& lt/FONT & gt;

& ltP & gt& lt!-时区*表示自动调整为夏令时-& gt;& ltFONT style = " FONT-SIZE:9pt " SIZE = 2 & gt。& lt挑选

style = " FONT-SIZE:9pt " onchange = changeTZ()name = TZ & gt;& lt选择权

Value="-1200 Anniwetuk和Guajialan " selected & gt国际交换日期

Value="-1100中途和萨摩亚">萨摩亚夏威夷

Value=-0900*阿拉斯加>阿拉斯加太平洋

Value=-0700* Arizona >美国山脉美国和加拿大的山区< OPTION

Value=-0600* Sackvan(加拿大) >加拿大中部墨西哥<选项

Value=-0600*中部时间(美国和加拿大) >中美洲和加拿大< OPTION value=-0500*波哥大,利马>南美太平洋

Value=-0500*东部时间(美国和加拿大) >美国东部和加拿大< OPTION value=-0500*印第安纳州(东部) >梅冬< OPTION

Value=-0400*加拉卡斯,lapaz >南美洲西部大西洋< OPTION

Value="-0330新岛(加拿大东海岸) ">纽芬兰< OPTION value="-0300波西纳">美国东南部

Value="-0300 Bruno Alice,乔治敦">南美洲东部中大西洋

Value=-0100*亚速尔群岛,cap vert >亚速尔群岛<选项

Value="+0000 GMT,都柏林,爱丁堡,伦敦">英国夏令时

Value="+0000莫洛维亚(利比里亚),卡萨布兰卡">格林威治标准时间

Value="+0100巴黎、马德里">罗马< OPTION value="+0100布拉格、华沙、布达佩斯">中欧< OPTION

Value="+0100柏林、斯德哥尔摩、罗马、伯恩、布鲁塞尔、维也纳">西欧

Value="+0200 Israel " >以色列东欧

Value=+0200*开罗>埃及GFT & lt;选择权

Value=+0200* Herare,Pitori >南非

Value=+0300*巴格达、科威特、内罗毕(肯尼亚)、利雅得(沙特阿拉伯) >沙特阿拉伯

Value=+0300*莫斯科、圣彼得堡、何战、瓦瓦格拉德>俄罗斯<选项value=+0330*德黑兰>伊朗<选项

Value=+0400*阿布扎比(东阿拉伯),莫斯奎克,大不里士(格鲁吉亚* * *和) >阿拉伯

Value=+0430*喀布尔>阿富汗西亚<选项

Value="+0530孟买,加尔各答,马蒂亚斯,新德里,科伦坡">印度<选项

Value="+0600 Amati,达卡">中亚曼谷< OPTION

Value="+0800北京、重庆和黑龙江">中国< OPTION value="+0800台湾省、香港和新加坡">台北< OPTION

Value="+0900东京,大阪,札幌,首尔,山口组(东西伯利亚) ">东京

Value="+0930 Darwin " >澳大利亚中部悉尼

value = "+1000 Hobart "> Tus Megna < OPTION value = "+1000关岛、莫斯比港和海威" >西太平洋

Value=+1100*迈腾,所罗门群岛,新卡鲁多>中太平洋

Value="+1200惠灵顿,奥克兰">新西兰

Value="+1200斐济、肯加塔和马绍尔群岛">斐济

id = clock 2 face = Arial color = # 000080 size = 4 align = " center " >& lt/FONT & gt;& ltBR & gt

& ltBR & gt

& lt字体

id =城市

style = " FONT-SIZE:9pt;宽度:150 px;颜色:蓝色;FONT-FAMILY:'新的好的风格' " > & lt/FONT & gt;& lt/P & gt;& lt/TD & gt;

& ltTD align = middle & gt

& ltDIV style = " Z-INDEX:-1;位置:绝对;TOP: 30px " >& ltFONT id=YMBG

style = " FONT-SIZE:90pt;颜色:# f0f0f0FONT-FAMILY: 'Arial Black'">。?0000 & ltBR & gt?JUN & lt/FONT & gt;

& lt/DIV & gt;

& lt表格边框= 0 & gt

& ltTBODY & gt

& ltTR & gt

& ltTD bgColor=#000080 colSpan=7>。& ltFONT style="FONT-SIZE: 9pt "

color = # ffffff size = 2 & gt公历< SELECT style="FONT-SIZE: 9pt "

onchange = change CLD()name = SY & gt;

& lt脚本语言= JavaScript & gt& lt!-

for(I = 1900;我& lt2050;i++)document . write(' & lt;选项>;'+i)

//-& gt;& lt/SCRIPT & gt;

& lt/SELECT & gt;year < SELECT style = " FONT-SIZE:9pt " onchange = change CLD()

name = SM & gt

& lt脚本语言= JavaScript & gt& lt!-

for(I = 1;我& lt13;i++)document . write(' & lt;选项>;'+i)

//-& gt;& lt/SCRIPT & gt;

& lt/SELECT & gt;月份

size = 3 & gt& lt/FONT & gt;& ltBR & gt& lt/TD & gt;& lt/TR & gt;

& lt脚本语言= JavaScript & gt& lt!-

巨大变种

for(I = 0;我& lt6;i++) {

document . write(' & lt;' tr align = center & gt')

for(j = 0;j & lt7;j++) {

gNum = i*7+j

document . write(' & lt;TD id = " GD '+gNum+' " onMouseOver = " mOvr('+gNum+')" onMouseOut = " mOut()" & gt;& ltfont id = " SD '+gNum+' " size = 5 face = " Arial Black " ')

if(j = = 0)document . write(' color = red ')

如果(j == 6)

if(I % 2 = = 1)document . write(' color = red ')

else document . write(' color = green ')

document . write(' TITLE = " " & gt;& lt/font & gt;& ltbr & gt& ltfont id = " LD '+gNum+' " size = 2 style = " font-size:9pt " & gt。& lt/font & gt;& lt/TD & gt;')

}

document . write(' & lt;/tr & gt;')

}

//-& gt;& lt/SCRIPT & gt;