Web Lighting effects
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Page Lights </title>
<meta name= "GENERATOR" content= "Microsoft FrontPage 5.0" >
<body id= "Mybody" style= "Filter:light (enabled=1)," bgcolor= "#ffffff" text= "#000000" >
<div
Id= "Layer1" style= "HEIGHT:32; left:66; Position:absolute; top:41; Width:52 ">
<dd>
<div align= "Right" >
</div>
</dd>
</div>
<p align= "center" ><b><font size= "5" > Website Production Learning </font></b>
</p>
<table border= "0" width= "100%" >
<tr>
<TD width= "82%" ><font face= "song Body" color= "#FF00FF" style= "font-size:9pt" >
</font><span style= "Font-size:9pt" >
<br><br><br><br><br><br><br><br><br><center> Website Production Learning
</center><br><br><br><br><br><br><br><br><br>< Br><br>
</span></td>
</tr>
</table>
<script language= "VBScript" >
Dim Red,gre,blu
Dim x, Y
red=255
gre=255
Blu=0
z=100
Sub Window_onload ()
Call Mybody.filters.light.addPoint (0,0,z,red,gre,blu,100)
Mybody.style.cursor= "Hand"
End Sub
Sub Document_onmousemove ()
X=window.event.x
Y=window.event.y
Call Mybody.filters.Light.MoveLight (0, X, y, 100, 1)
End Sub
</script>
<script language= "JavaScript" >
This is the function that makes the layer move
function Move_layer ()
{
layer1.style.left=event.clientx+document.body.scrollleft-50;
layer1.style.top=event.clienty+document.body.scrolltop-20;
}
This means that the "Move_layer" function is called when the mouse moves
Document.onmousemove =move_layer;
</script>
</body>
This article from: Web Site Production Learning Network (http://www.forasp.cn), detailed source reference: http://www.forasp.cn/html/904.html