注册
登录
设施
搜索
俱乐部
论坛
私人消息 (0)
公共消息 (0)
论坛任务 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
稻草软件论坛
»
软件应用综合交流
» asp vbscript 实现打字效果 感兴趣的来看看
返回列表
回复
发帖
‹‹ 上一主题
|
下一主题 ››
asp vbscript 实现打字效果 感兴趣的来看看
发短消息
加为好友
tearlight
当前离线
顶级会员(MacOS X10.6)
转到楼层
»
倒序看帖
打印
字体大小:
t
T
楼主(1 楼):tearlight
发表于 2010-10-28 12:28
|
只看该作者
asp vbscript 实现打字效果 感兴趣的来看看
asp
,
vbscript
,
打字效果
分享到:
QQ空间
新浪微博
开心网
人人网
<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>
收藏
分享
大家互帮互助,来这里,你问我答,有问必答!
返回列表
回复
发帖
‹‹ 上一主题
|
下一主题 ››
论坛闲聊区(水区)
稻草站务区
论坛公告、使用帮助
使用帮助
论坛公告
论坛事务
稻币发放
友情链接
给我提建议
新人报到
综合广场
电脑诊所(答疑区)
小技巧专区
共享上网论坛
数字校园山寨拨号器
论坛闲聊区(水区)
交易场
娱乐休闲
影音美图
游戏专区
系统之家
Windows讨论区
Win 8/Win8 RT讨论区
Windows Server系统
Win7、Vista专区
WinXP专区
Linux讨论区
Debian|Ubuntu发行版
Redhat|衍生版本
谷歌Google Chrome OS展望台
苹果Mac OS讨论区
Show Leopard专区
黑苹果ForPC
其它操作系统
系统光盘下载
扮靓电脑
美化资源发布(美化包/主题等)
晒桌面
软件世界
软件应用综合交流
磁盘应用区
安全软件论坛
杀毒交流区
软件资源发布区
原创软件发布区
稻草软件工作室
稻草电脑钥匙
程序发布
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]
道具
每日签到
稻草语音聊天室
网速测试
全国城市地图
勋章
社区银行
发帖际遇