免费领取QB教程>>
　　〈body bgcolor="Black"〉

　　〈div id="myLightObject" style="position: relative; height: 500px; width: 500px; top: 10px; left: 0px;color: White; filter: light"〉

　　〈p〉我们知道，利用Flash动画制作软件可以制作出生动的鼠标光照效果。〈br〉

　　〈br〉其实，我们利用FrontPage同样可以在网页中实现鼠标的光照效果，而且制作出来的文件存储容量还要比Flash要小。〈br〉

　　〈br〉其中，用FrontPage制作鼠标光照效果的具体编码如下：

　　〈/p〉

　　〈/div〉

　　〈script language="VBScript"〉

　　Option Explicit

　　sub window_OnLoad()

　　call myLightObject.filters.light(0).addambient(0,250,125,30)

　　//设置光照文字颜色

　　call myLightObject.filters.light(0).addcone(400,150,200,100,100,200,200,200,80,10)

　　//设置光环形状与范围

　　sub

　　sub document_onMouseMove()

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

　　end sub

　　〈/script〉

　　〈/body〉