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 + -
显示快捷键?