探照灯页面特效__脚本特效_后台技术飞飞Asp技术乐园

探照灯

时间： 2007-10-02 16:31:43　阅读次数：2292

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网页特效|www.ffasp.com 飞飞Asp乐园|---页面的探照灯</title>

</head>

<p align="left"><font face="文鼎中特广告体" size="4" color="#FFFF00">    
在漆黑的夜幕下，一道雪白的</font><font 
size="4" color="#FFFF00">探照灯光照来，随着灯光的来回扫射，地面上的一切暴露无余......这是在战争文学中经常见到的情景，现在，在和平时代的网页上也出现了。</font></p> 
 
<p align="left"><font size="4" color="#FFFF00">   如果调整程序代码，还可以作成灯光沿单方向360度旋转的</font><font 
face="文鼎中特广告体" size="4" color="#FFFF00">雷达扫描效果</font></p> 
 
<p align="center">　</p> 
 
</div><script language="vbscript"> 
dim red,gre,blu 
dim tx,ty,degree 
degree=0 
dim pi,i 
i=1 
pi=3.14 
sub change1() 
select case i 
case 1 
tx=240+100*Cos(degree*Pi/180) 
ty=240+100*sin(degree*Pi/180) 
call myp.filters.light.movelight(0,tx,ty,0,1) 
window.settimeout "change1()",10 
degree=degree+4 
case 0 
tx=240+100*Cos(degree*Pi/180) 
ty=240+100*sin(degree*Pi/180) 
call myp.filters.light.movelight(0,tx,ty,0,1) 
window.settimeout "change1()",10 
degree=degree-4 
end select 
select case degree 
case 0 
i=1 
case 180 
i=0 
end select 
end sub 
sub change() 
tx=240+100*Cos(degree*Pi/180) 
ty=240+100*sin(degree*Pi/180) 
call myp.filters.light.movelight(0,tx,ty,0,1) 
window.settimeout "change()",50 
degree=degree+4 
end sub 
sub window_onload() 
red=0 
gre=255 
blu=255 
call myp.filters.light.addcone(100,50,0,10,10,red,gre,blu,10,10) 
change1() 
end sub 
</script> 
<div 
style="position: absolute; top: 88; left: 437; width: 63; height: 257"> 
</div> 
</body> 
</html>

提示：您可以先修改部分代码再运行