<html>
<head>
<script language=vbscript>
dim temp
temp=0
function refreshit()
id=settimeout("refreshit",1000)
temp=temp+1
select case temp
case n 'n为你设定的时间间隔
'do refresh yourself
cleartimeout id
end select
</script>
</head>
<body onload="refreshit()">
...
</body></html>