<BODY> </BODY> タグの中を以下の様にする。
<BODY bgcolor="#000000" text="#fed801" link="#ff0000" vlink="#ff0000"><SCRIPT LANGUAGE="VBScript"> <!--// Dim counter, txt, txt_len, timerID Sub Window_onLoad() txt = TextBox.innerHTML txt_len = Len(txt) counter = 1 timerID = Window.SetInterval("typewriter()", 50) End Sub Sub typewriter() Dim cur If counter > txt_len Then cur = "" Window.ClearInterval(timerID) Else cur = "<FONT COLOR='red'> »</FONT>" End If TextBox.innerHTML = Left(txt, counter) & cur counter = counter + 1 End Sub --> </SCRIPT> <DIV ID="TextBox" STYLE="width:300;"> ここのページはとても重たいのですが、その分だいたい一度に見る事が出来ます。スペースの関係 JavaScript も含まれています。 </DIV> <P><BR><BR><BR><BR> </P> </BODY>