VBScript 实现文字遮罩

答案：如果打开后没见到效果，请等待一会儿。
<title>VBScript实现文字遮罩</title> 
<div id="myLightObject" style="position: relative; height: 336px; width: 336px; top: 10px; left: 0px; color: White; filter: light"> 
<center> 
脚本之家（zhaoxi.net）提供各类编程源码、书籍教程、JavaScript/CSS特效代码以及常用软件下载等，做有质量的学习型源码下载站。提供各类编程源码、JavaScript/CSS特效代码以及常用软件下载等，做有质量的学习型源码下载站。 
</center>      
</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>

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

上一个：LazyForm jQuery plugin 定制您的CheckBox Radio和Select
下一个：JavaScript 炫彩的文字