使用下拉列表显示邮件联系列表

dn001 2009-06-21 08:22:45

<head> <title>网页教学网-特效代码->>舞台光柱效果</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> 小楼昨夜又东风 </p> <p align="center"> <br> 故国不堪回首月明中。 </p> <p align="center"> <br> 雕栏玉砌应犹在，只是朱颜改。 </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>