SetTimeOut "SpareTime()",1000
sub SpareTime()
if sec=0 and min=0 and hou=0 then
usetime.value="时间结束~"
else
sec=sec-1
if sec=-1 then
sec=59
min=min-1
end if
if min=-1 then
min=59
hou=hou-1
end if
if len(hou)<2 then
hou="0"&hou
end if
if len(min)<2 then
min="0"&min
end if
if len(sec)<2 then
sec="0"&sec
elseif len(sec)<1 then
sec=00
end if
usetime.value=hou&":"&min&":"&sec
SetTimeOut "SpareTime()",1000
end if
end sub
</script>