本文采用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〉
|
|
