打字文字
Never我要的自由Never我要的自由
<SCRIPT LANGUAGE="VBScript"> <!--// Dim counter, txt, txt_len, timerID Sub Window_onLoad() txt = Text.innerHTML txt_len = Len(txt) counter = 1 timerID = Window.SetInterval("typewriter()", 150) End Sub Sub typewriter() Dim cur If counter > txt_len Then cur = "" Window.ClearInterval(timerID) Else cur = "<font color='deepskyblue'>��</font>" End If Text.innerHTML = Left(txt, counter) & cur counter = counter + 1 End Sub --> </SCRIPT>
複製程式碼至<head>~</head>之間
<SPAN id="Text">文字</SPAN>
複製程式碼至<body>~</body>之間
按ctrl+c複製 -->