<html>
<head>
<title>asdf</title>
<script language="vbscript">
<!--
dim x
sub goother(x)
if x=1then
location.replace "b.htm"
end if
end sub
id=settimeout ("goother(x)",3000)
-->
</script>
</head>
<body>
3秒后自动转到b.htm
<script language="vbscript">
<!--
x=1
-->
</script>
</body>
</html>