本文采用vbscript脚本语言编程实现动态时间按钮，其原理就是调用定时函数settimeout()每隔一秒钟获取一次系统时间，并及时改变网页中按钮的value值，从而实现时间的动态显示。当鼠标在时间按钮上单击时，程序将计算从打开网页到当前的停留时间，并显示给用户。本例在ie4.0以上通过。

源代码如下：

〈html〉〈head〉

〈title〉时间按钮示例〈/title〉

〈script language=vbscript〉

dim stt,edt

′－－－| 显示动态时间按钮 |－－－

sub disp—clock()

dim hr,sx,hrs,curtime

hr=hour(time)

if hr〈12 then

hrs=cstr(hr)

sx=″ am″

else 

hrs=cstr(hr－12)

sx=″ pm″

end if

curtime=hrs＋right(cstr(time),6)

yt.value=curtime＋sx

call settimeout(″disp—clock()″,1000)

end sub

′－－－| 显示停留时间数 |－－－

sub disp—msg()

dim hr,mn,sc,hrs,mns

edt=time

hr=hour(edt)

mn=minute(edt)

sc=second(edt)－second(stt)

if sc〈0 then

sc=60＋sc

mn=mn－1

end if

mn=mn－minute(stt)

if mn〈0 then

mn=60＋mn

hr=hr－1

end if

hr=hr－hour(stt)

if hr〈0 then hr=24＋hr

hrs=″ ″＋cstr(hr)＋″小时″

if hr=0 then hrs=″″

mns=cstr(mn)＋″分钟″

if mn=0 then mns=″″ 

msgbox ″你在本网页已停留了″＋hrs＋mns＋cstr(sc)＋″秒!″

end sub

〈/script〉

〈/head〉

〈body〉

〈center〉

〈br〉〈br〉〈p〉〈font color=red〉〈b〉〈h3〉时间按钮〈/h3〉〈/b〉〈/font〉〈/p〉

〈input type=″button″ value=″″ name=″yt″ onclick=″disp_msg()″ style=″cursor:hand; font－family: 黑体; font－size: 16pt; font－weight: bold; color:blue″〉

〈p〉〈h5〉提示：鼠标单击按钮会显示停留时间！〈/h5〉〈/p〉

〈script language=vbscript〉

stt=time

disp—clock

〈/script〉〈/center〉

〈/body〉

〈/html〉