vbscript制作的滤镜效果-JS特效-爱易网页

vbscript制作的滤镜效果

日期：2014-05-18　浏览次数：20154 次

以下是程序代码

<html>
<head>
<meta http-equiv="content-Type" content="text/html;charset=gb2312">
<meta name="keywords" content="站长,网页特效,网页特效代码,js特效,js脚本,脚本,广告代码,zzjs,zzjs.net,www.zzjs.net,站长特效 网" />
<meta name="description" content="www.zzjs.net,站长特效网，站长必备js特效及广告代码。大量高质量js特效，提供高质量广告代码下载,尽在站长特效网" />
<title>网页特效 VBScript锥光滤镜效果 站长特效网欢迎您。</title>
</head>
<body>
<a href="http://www.zzjs.net/">站长特效网</a>,站长必备的高质量网页特效和广告代码。zzjs.net，站长js特效。<hr>

<div id="myLightObject" style="position: relative; height: 400px; width: 400px;color: White; filter: light">
白狐 
我是一只修行千年的狐 
千年修行 千年孤独 
夜深人静时 可有人听见我在哭 
灯火阑珊处 可有人看见我跳舞 
我是一只等待千年的狐 
千年等待 千年孤独 
滚滚红尘里 谁又种下了爱的蛊 
茫茫人海中 谁又喝下了爱的毒 
我爱你时 你正一贫如洗寒窗苦读 
离开你时 你正金榜题名洞房花烛 
能不能为你再跳一支舞 
我是你千百年前放生的白狐 
站长特效网，专注网页特效及广告代码 
你看衣袂飘飘 衣袂飘飘 
海誓山盟都化做虚无 
能不能为你再跳一支舞 
只为你挥别时的那一次回顾 
你看衣袂飘飘 衣袂飘飘 
天长地久都化做虚无 
</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>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

vbscript制作的滤镜效果

相关资料更多>

推荐阅读更多>