ホームページを作ろう！

文字をタイピングのように
表示できます
いかがですか？

↓タグです
<HEAD>～</HEAD>の間に

<SCRIPT LANGUAGE="VBScript">
<!--//
Dim counter, txt, txt_len, timerID

Sub Window_onLoad()
txt = Typing.innerHTML
txt_len = Len(txt)
counter = 1
timerID = Window.SetInterval("typewriter()", 文字を表示する速さ【サンプルでは200になってます】)
End Sub

Sub typewriter()
Dim cur
If counter > txt_len Then
cur = ""
Window.ClearInterval(timerID)
Else
cur = "<font color='#文字の色'>文字の後につける文字【サンプルでは_になってます】</font>"
End If
Typing.innerHTML = Left(txt, counter) & cur
counter = counter + 1
End Sub
-->
</SCRIPT>

<BODY>～</BODY>の間の
表示させたいところに

<SPAN id="Typing">表示したい文字</SPAN>