<font face="華康少女文字W3(P)"> <!--在這設定您圖片擺放的位置--> <IMG height=110 id=hand1 src="羽毛筆圖片一" style="DISPLAY: none" width=94> <IMG height=110 id=hand2 src="羽毛筆圖片二" style="DISPLAY: none" width=94> </font> <DIV id=MsgText style="DISPLAY: none"> 在這裡輸入您想顯示的內容 </DIV> <DIV id=MsgArea></DIV> <SCRIPT language=VBScript> Delay = 8 Txt = MsgText.InnerHtml CharPos = 0 Msg = "" ImageTag1="<IMG id=Pen src=" & hand1.src & " style=position:absolute border=0>" ImageTag2="<IMG id=Pen src=" & hand2.src & " style=position:absolute border=0>" Sub Window_OnLoad() Document.Body.Scroll="no" ShowChar End Sub Sub ShowChar() CharPos=CharPos + 1 If CharPos <= Len(Txt) then CurrentChar = Mid(Txt,CharPos,1) If CurrentChar = "<" Then ' Process HTML tags without a delay Do Until CurrentChar = ">" Msg = Msg & CurrentChar CharPos = CharPos + 1 CurrentChar = Mid(Txt, CharPos, 1) Loop Msg = Msg & CurrentChar Else Msg = Msg & CurrentChar End If if CharPos mod 2 = 0 then ImageTag = ImageTag1 else ImageTag = ImageTag2 MsgArea.innerhtml = Msg & ImageTag document.body.scrollTop=600 d = Delay If CurrentChar = "、" or CurrentChar = "？" or CurrentChar = "﹗" or CurrentChar = "。"Then d =500 If CurrentChar = "," then d =200 TimerId = Window.SetTimeout("ShowChar",d,"VBScript") Else Document.Body.Scroll = "yes" End If End Sub </SCRIPT>