'定义变量

dim w,t,p,mm,c,mr,dy,tmp,vs

'变量初始化

vs=5

dy=1

p=1

mr="

"

c="|"&mr

Set w = document.body

'建立子程序

sub tp

'从字符串t中P位置处查找1个字符

m=mid(t,p,1);

if m="" then c=mr '如果没找到测让变量mr赋给c

if m="`" then m="" '如果找到的是 ` 测让m为空

mm=mid(mm,1,len(mm)-1)'从mm的第一个字符位置取出mm总字符数减1个字符并赋给mm

if m="")'如果m是的位置并赋给av

m=mid(t,p,av)'从字符串t中P位置处取出av个字符赋给m

p=p+av-1 '赋予P新值

if m="&" then av=instr(mid(t,p),";")

m=mid(t,p,av):p=p+av-1

tmp=100

if m="." then tmp=400

else if m="," then tmp=200

else if m=" " then tmp=200

if w.scrollHeight-w.scrollTop> w.offsetHeight then w.scrollTop=w.scrollTop+int(dy)'如果全文的高度减去网页被卷进去的高度大于可见区的高度就将网页卷进去的高度增加dy，就是设置滚动

dy=dy+dy/vs

else dy=1

mm=mm&m

w1.innerHTML=mm&c'设置w1里的内容

p=p+1

if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes" ' SetTimeOut在16+tmp时间之后执行一次tp，否则显示滚动条

end sub

sub window_onload()

w.scroll="yes"‘显示滚动条

w.bgcolor="#A8A8A8" '背景色

w.style.cursor="crosshair" '鼠标样式

t=w0.innerHTML 'w0之间的内空

t=ww0.innerHTML + t

tp

end sub

window_onload()