<HTML>
<HEAD>
<TITLE>测试</TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript"> 
<!--

    dim myhore , mymini , mysecond
    dim myhores , myminis , myseconds
    myhore=8
    mymini=59
    mysecond=10

setinterval "showmyclock" , 1000

sub showmyclock()
        mysecond=mysecond+1  
        myhores=cstr(myhore)
        myminis=cstr(mymini)
        myseconds=cstr(mysecond)
        myclock.innertext=myhores & ":" & myminis ":" & ":" myseconds
end sub
-->

</SCRIPT>
<BODY>
<p id="myclock">
showtime
</p>
</BODY>
</HTML>