标题: asp vbscript 实现打字效果 感兴趣的来看看 [打印本页] 作者: tearlight 时间: 2010-10-28 12:28 标题: asp vbscript 实现打字效果 感兴趣的来看看
<HTML>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
rel=stylesheet type=text/css>
<STYLE type=text/css>TD {
FONT-SIZE: 14px; LINE-HEIGHT: 28px
}
</STYLE>
<BODY >
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr
Set w=document.body
sub tp()
m=mid(t,p,1)
if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1 '当遇到代码中的"<"时，执行该行语句,如:<font>'
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1 '当遇到代码中的"&"时，执行该行语句，如: '
tmp=100:if m="。" then tmp=700 else if m="，" then tmp=500 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm & m
w1.innerHTML=mm & c
p=p+1
if p<=len(t)+1 then SetTimeOut "tp()",30+tmp else w.scroll="yes"'setTimeout(code,millisec)方法用于在指定的毫秒数后调用函数或计算表达式'
end sub
sub window_onload()
w.scroll="yes"
t=w0.innerHTML '将id为w0的innerHTML赋予t,innerHTML--HTML代码,w0.innerHTML--w0层包含的代码'
tp()
end sub
</SCRIPT>
