shad_word.htm
来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 50 行
HTM
50 行
<html><head><title>闪烁的文字</title><script LANGUAGE="VBScript">times=0filterA=1sub window_OnLoad call divTextchangeallend subsub divTextchangeall divfilterchange Window.SetTimeout"divTextchangeall",100end subsub divfilterchange if filterA=0 Then divfilter.style.filter="glow(strength=6 color=yellow)" elseif filterA=1 Then divfilter.style.filter="shadow(color=blue)" elseif filterA=2 Then divfilter.style.filter="glow(strength=7 color=palevioletred)" elseif filterA=3 Then divfilter.style.filter="shadow(color=Gold)" elseif filterA=4 Then divfilter.style.filter="glow(strength=8 color=ForestGreen)" elseif filterA=5 Then divfilter.style.filter="shadow(color=SpringGreen)" end if if filterA=5 Then filterA=0 else filterA=filterA+1 end ifend sub</script></head><body bgcolor="#C0C0C0"><div ID="divfilter" style="position:absolute;text-align:center;font-size:50;font-weight:boldcolor:golden"><center><br><br><p>闪烁的文字</p><center></div></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?