特效预览区
谁娶了多愁善感的你 谁安慰爱哭的你 谁把你的长发盘起 谁给你做的嫁衣
代码复制区
<!--52600/--> <DIV ID=myLightObject STYLE="position:relative; height:150; width:400; top:10; left:0; filter:light; color:white"> <div align="left">今天你是否会想起<br> 昨天你写的日记<br> 明天你是否还想起,<br> 曾经最爱哭的你</div> <p> 谁娶了多愁善感的你<br> 谁安慰爱哭的你<br> 谁把你的长发盘起<br> 谁给你做的嫁衣 <p> </DIV> <p> <SCRIPT LANGUAGE="VBScript"> <!-- Dim CurrentZPos Sub window_OnLoad Call myLightObject.Filters.light(0).addAmbient(255,204,255,70) Call myLightObject.Filters.light(0).addPoint(400,400,200,200,204,0,80) CurrentZPos = 0 doMoveLight End Sub Sub doMoveLight() If CurrentZPos < 500 Then CurrentZPos = CurrentZPos + 8 call myLightObject.Filters.light(0).MoveLight(1,20,20,CurrentZPos,-1) call setTimeout("doMoveLight", 200) End If End Sub --> </SCRIPT>
特效制作：52600 版权所有