下面的VBScript在中JavaScript应该怎么写?

来源：百度知道 编辑：UC知道 时间：2024/05/18 10:05:18
<script type="text/vbscript">
Dim DY,DM,DD,TH,TM,TS

DY = <%=DY%>
DM = <%=DM%>
DD = <%=DD%>
TH = <%=TH%>
TM = <%=TM%>
TS = <%=TS%>

Call Time()

Public Sub Time()
Dim WD,POT

If TS <= 59 Then TS = TS + 1
If TS > 59 Then TS = 0:TM = TM + 1
If TM > 59 Then TM = 0:TH = TH + 1
If TH > 23 Then TH = 0:DD = DD + 1
If (DM = 1 Or DM = 3 Or DM = 5 Or DM = 7 Or DM = 8 Or DM = 10 Or DM = 12) And DD > 31 Then DD = 1:DM = DM + 1
If (DM = 4 Or DM = 6 Or DM = 9 Or DM = 11) And DD > 30 Then DD = 1:DM = DM + 1
If DY Mod 4 = 0 And DM = 2 And DD > 29 Then DD = 1:DM = DM + 1
If DY Mod 4 <> 0 And DM = 2 And DD > 28 Then DD = 1:DM = DM + 1
If DM

全部改成Javascript吧，VBScript我不知道怎么实现settimeout，等下一位吧。

<script type="text/JavaScript">
var DY,DM,DD,TH,TM,TS ;

DY = <%=DY%> ;
DM = <%=DM%> ;
DD = <%=DD%> ;
TH = <%=TH%> ;
TM = <%=TM%> ;
TS = <%=TS%> ;

function Time(){
var WD,POT;
if(TS <= 59){
TS = TS + 1 ;
}

//中间的一些，你按照上面的格式改下就行了
……
……
……

Clock.InnerHTML= DY + "年" + DM + "月" + DD + "日" + WD + POT + TH + "时" + TM + "分" + TS + "秒" ;

SetTimeOut("Time()",1000);

</script>

}