文字探照燈

Home Home
引用 | 編輯 toidi
2005-01-09 00:51
樓主
推文 x0
DEMO
http://163.22.51.2:8000/DiscuZ/viewthread.php?action=attachment&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>


獻花 x0