<!--
'copyright 2003 by fmben (fmben.com)
SetTimeOut "Clock",1000
nowtime1=cdate(document.thetimeform.thetime.value)
pagetitle=parent.document.title
Sub Clock()
	H=Hour(nowtime1)
	M=Minute(nowtime1)
	S=Second(nowtime1)
	NowTime ="&nbsp;北京时间：" & H & "时" & M & "分" & S & "秒"
	NowTime0 =D&"现在是北京时间：" & H & "时" & M & "分" & S & "秒"
	NowT.InnerHtml = NowTime
	parent.document.title=pagetitle & NowTime0
	SetTimeOut "Clock",1000
	nowtime1=dateadd("s",1,nowtime1)
end sub
-->