欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

settimeout,该如何解决

更新时间: 2014-01-05 01:52:33 责任编辑: Author_N1

 

settimeout
HTML code

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>ZIPBar</title>
</head>
<body style="background-color:Black">
<div id="Flash">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
 WIDTH="640" HEIGHT="480">
 <PARAM NAME=movie VALUE="Default.swf">
 <PARAM NAME=quality VALUE=best>
 <PARAM NAME=bgcolor VALUE=#FFFFFF>
</OBJECT>
</div>

<script language="vbscript">
'========设置Flash播放置中
flash.style.position="absolute"
flash.style.marginLeft="-320"
flash.style.marginTop="-240"
flash.style.left="50%"
flash.style.top="50%"
flash.style.zIndex="9999"

'========初始化
dim number as integer
number=1'第一个背景动画
call createdbg()

sub createdbg()'创建背景动画
if number>200 then'如果已创造背景动画>4就不继续
document.writeln("<table background='number1.gif' id='b"& number &"' style='width:118px; height:8px'><tr><td></td></tr></table>")'写入带背景动画的表格,并定义
movebg(number)'移动表格函数
number=number+1'已创造数+1
settimeout "createdbg(i)",5'5毫秒后再创造下一个
end if
end sub

sub movebg(id)'移动表格函数
'设定表格Style
document.getElementById("b" & id).style.position="absolute"
document.getElementById("b" & id).style.left=GetX()
document.getElementById("b" & id).style.top=GetY()
document.getElementById("b" & id).style.marginLeft="-118"
document.getElementById("b" & id).style.marginTop="-8"
settimeout "movebg(id)",3100'3.1秒后再次移动表格(因为一个动画周期为3.1秒)
end sub

function GetX()'随机X
Rnds=int(rnd*100)
GetX=Rnds & "%"
end function

function GetY()'随机Y
Rnds=int(rnd*100)
GetY=Rnds & "%"
end function
</script>
</body>
</html>



为什么行不通?
没有任何错误提示。
而且Flash也不居中了!
求助!

--参考方法--
try
HTML code


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >

<head>
    <title>ZIPBar</title>
</head>
<body style="background-color:Black">
<div id="Flash">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
 WIDTH="640" HEIGHT="480">
 <PARAM NAME=movie VALUE="Default.swf">
 <PARAM NAME=quality VALUE=best>
 <PARAM NAME=bgcolor VALUE=#FFFFFF>
</OBJECT>
</div>
<div id=ttt ></div>
<script language="vbscript">
'========设置Flash播放置中
flash.style.position="absolute"
flash.style.marginLeft="-320"
flash.style.marginTop="-240"
flash.style.left="50%"
flash.style.top="50%"
flash.style.zIndex="9999"

'========初始化
'dim number as integer
number=1'第一个背景动画
call createdbg()

sub createdbg()'创建背景动画
if number<=200 then'如果已创造背景动画>4就不继续
ttt.innerhtml= ttt.innerhtml & "<table background='number1.gif' id='b"& number &"' style='width:118px; height:8px;border:1px red solid'><tr><td></td></tr></table>"'写入带背景动画的表格,并定义
setbg(document.getElementById("b"& number))'定位表格
number=number+1'已创造数+1
settimeout "createdbg()",5'5毫秒后再创造下一个
else
settimeout "movebg()",3100'3.1秒后移动表格
end if
end sub

sub movebg()'移动表格函数
dim i
for i=1 to 200
setbg(document.getElementById("b"& i))'定位表格函数
next
settimeout "movebg()",3100'3.1秒后再次移动表格(因为一个动画周期为3.1秒)
end sub


sub setbg(id)'定位表格函数
'设定表格Style
id.style.position="absolute"
id.style.left=GetX()
id.style.top=GetY()
id.style.marginLeft="-118"
id.style.marginTop="-8"
end sub

function GetX()'随机X
Rnds=int(rnd*100)
GetX=Rnds & "%"
end function

function GetY()'随机Y
Rnds=int(rnd*100)
GetY=Rnds & "%"
end function
</script>
</body>
</html> 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:33
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2370/
本文WWW.DOC100.NET DOC100.NET版权所有。