动态阴影文字
加入如下代码到head区域 <style> .s1 {Width:100;filter:Shadow(Color=#0000e0,Direction=0)} .s2 {Width:100;filter:Shadow(Color=#0000e0,Direction=45)} .s3 {Width:100;filter:Shadow(Color=#0000e0,Direction=90)} .s4 {Width:100;filter:Shadow(Color=#0000e0,Direction=135)} .s5 {Width:100;filter:Shadow(Color=#0000e0,Direction=180)} .s6 {Width:100;filter:Shadow(Color=#0000e0,Direction=225)} .s7 {Width:100;filter:Shadow(Color=#0000e0,Direction=270)} .s8 {Width:100;filter:Shadow(Color=#0000e0,Direction=315)} --> </style> <script LANGUAGE=VBScript> <!-- i = 1 sub Effect( ) S1.className = "s" & i id = setTimeout("Effect( )",200) if i = 8 then i = 1 else i = i + 1 end if end sub --> </script>
2.把<body> 改为<body onLoad="Effect()">
加入如下代码到body区域 <DIV ID=S1 CLASS=s1><font color=#d0d0a0 size=4>特效千寻</font></DIV>
