<head>
<title>Untitled</title>
</head>
<body bgcolor="Black">
<div id="myLightObject" style="position: relative; height: 400px; width: 400px; top: 10px; left: 0px;
color: White; filter: light">
<p align="center">
春花秋月何時了，往事知多少
</p>
<p align="center">
<br>
小樓昨夜又東風(fēng)
</p>
<p align="center">
<br>
故國不堪回首月明中。
</p>
<p align="center">
<br>
雕欄玉砌應(yīng)猶在，只是朱顏改。
</p>
<p align="center">
問君能有幾多愁，
</p>
<p align="center">
<br>
恰似一江春水向東流。<br>
</p>
</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>
