DEMOhttp://163.22.51.2:8000/DiscuZ/viewthr...tachment&aid=426-------------------------------------------------------------------------------------------------------------
复制程式
<body bgcolor=#000000>
<script language="VBScript">
Option Explicit
sub window_OnLoad()
call myLightObject.filters.light(0).addambient(0,0,128,15)
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>
<div id="myLightObject" style="position: relative; height: 400px; width: 400px; top: 10px; left: 0px; color: White; filter: light">
<center>
<img src=http://163.22.51.2:8000/DiscuZ/images/z1.gif><br>
对你的思念 是一天又一天，<BR>
孤单的我 还是没有改变，<BR>
美丽的梦 何时才能出现，<BR>
亲爱的你 好想再见你一面。<BR>
<BR>
秋天的风 一阵阵地吹过，<BR>
想起了去年的这个时候，<BR>
你的心到底在想些什么，<BR>
为什么留下这个结局让我承受。<BR>
<BR>
最爱你的人是我，<BR>
你怎么舍得我难过，<BR>
在我最需要你的时候<BR>
没有一句话就走，<BR>
<BR>
最爱你的人是我，<BR>
你怎么舍得我难过，<BR>
对你付出了这么多<BR>
你却没有感动过<BR>
</center></div>
</body>
