|
签到天数: 36 天 [LV.5]常住居民I - UID
- 335
- 帖子
- 104
- 精华
- 1
- 积分
- 1122
- 软件
- 143 套
- 稻币
- 170 元
- 贡献
- 163
- 违规
- 0 次
- 注册时间
- 2009-10-20
 
|
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>
<DIV id=w0 style="DISPLAY: none">
<TABLE align=center border=0 width="100%">
<TBODY>
<TR><FONT >给你一个故事，希望你能喜欢并给你带来不一样的精彩人生。</FONT>
<P><FONT > 从前，有一个脾气很坏的男孩。他的爸爸给了他一袋钉子，告诉他，每次发脾气或者跟人吵架的时候，就在院子的篱笆上钉一根。第一天，男孩钉了37根钉子。后面的几天他学会了控制自己的脾气，每天钉的钉子也逐渐减少了。他发现，控制自己的脾气，实际上比钉钉子要容易的多。终于有一天，他一根钉子都没有钉，他高兴的把这件事告诉了爸爸。
</FONT></P>
<P><FONT > 爸爸说：“从今以后，如果你一天都没有发脾气，就可以在这天拔掉一根钉子。”日子一天一天过去，最后，钉子全被拔光了。爸爸带他来到篱笆边上，对他说："儿子，你做得很好，可是看看篱笆上的钉子洞，这些洞永远也不可能恢复了。就象你和一个人吵架，说了些难听的话，你就在他心里留下了一个伤口，像这个钉子洞一样。"插一把刀子在一个人的身体里，再拔出来，伤口就难以愈合了。无论你怎么道歉，伤口总是在那儿。要知道，身体上的伤口和心灵上的伤口一样都难以恢复。</FONT></P>
</TR></TBODY></TABLE></DIV>
<DIV id=w1></div>
</BODY>
</HTML> |
|
