`
daweijsp
  • 浏览: 22199 次
  • 性别: Icon_minigender_1
  • 来自: 中山
最近访客 更多访客>>
社区版块
存档分类
最新评论

网页特效代码------舞台照射

VBScriptHTML 
阅读更多 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>

<body link="#FF00FF">

<body bgcolor="#000000" link="#FF00FF"> 
<div id="myLightObject" style="position: relative; height: 100px; width: 400px; top: 10px; left: 10px;  
color: White; filter: light">  
<p align="center">  
<font size="6"><a href="http://www.iteye.com">欢迎访问我们的博客</a>
</div>  
<script language="VBScript">  
Option Explicit  
sub window_OnLoad()  
call myLightObject.filters.light(0).addambient(0,0,255,30)  
call myLightObject.filters.light(0).addcone(400,400,200,100,100,200,204,200,80,10)  
end sub  

sub document_onMouseMove()  
call myLightObject.filters.light(0).MoveLight(1,window.event.x,window.event.y,0,1)  
end sub  


</script> 
</body>

</html>

<a href="http://www.iteye.com">欢迎访问我们的博客</a>

 

分享到：
| SQL Server 2000触发器
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics