VBScript實現打字效果

來源:互聯網
上載者:User

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0034)http://www.cye.com.cn/2009/zhexue/ -->
<HTML><HEAD><TITLE>給你一個故事-人生哲學--讀者文摘推薦</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
rel=stylesheet type=text/css>
<STYLE type=text/css>TD {
 LINE-HEIGHT: 28px; FONT-SIZE: 14px
}
</STYLE>

<META name=GENERATOR content="MSHTML 8.00.6001.19120"></HEAD>
<BODY background=給你一個故事-人生哲學--讀者文摘推薦_files/IMAGE001.gif><BGSOUND balance=0
volume=0 loop=infinite src="">
<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
 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/vs else dy=1
 mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub

sub window_onload()
 w.scroll="yes"
 w.bgcolor="#A8A8A8"
 w.style.cursor="crosshair"
 '-------------------
 t=w0.innerHTML:tp
end sub
</SCRIPT>

<DIV style="DISPLAY: none" id=w0>
<TABLE border=0 width="90%" align=center>
  <TBODY>
  <TR>
    <TD>
      <P><FONT size=3 face=宋體><SPAN
      style="FONT-SIZE: 12pt; mso-bidi-font-family: 宋體"
      lang=EN-US></SPAN></FONT></P>
      <P><B>Hi 大家好。。。給你一個故事,希望你能喜歡這個故事並希望它能為你帶來好運。 <FONT color=red face=DFKai-SB><SPAN
      style="FONT-FAMILY: DFKai-SB; COLOR: red; mso-bidi-font-family: 宋體"
      lang=EN-US></SPAN></FONT></B></P>
      <P>一天,一個盲人帶著他的導盲犬過街時,一輛大卡車失去控制,直衝過來,盲人當場被撞死,他的導盲犬為了守衛主人,也一起慘死在車輪底下。</P>
      <P>主人和狗一起到了天堂門前。</P>
      <P>一個天使攔住他倆,為難地說:“對不起,現在天堂只剩下一個名額,你們兩個中必須有一個去地獄。”</P>
      <P>主人一聽,連忙問:“我的狗又不知道什麼是天堂,什麼是地獄,能不能讓我來決定誰去天堂呢?”</P>
      <P>天使鄙視地看了這個主人一樣,皺起了眉頭,她想了想,說:“很抱歉,先生,每一個靈魂都是平等的,你們要通過比賽決定由誰上天堂。”</P>
      <P>主人失望地問:“哦,什麼比賽呢?”</P>
      <P>天使說:“這個比賽很簡單,就是賽跑,從這裡跑到天堂的大門,誰先到達目的地,誰就可以上天堂。不過,你也別擔心,因為你已經死了,所以不再是瞎子,而且靈魂的速度跟肉體無關,越單純善良的人速度越快。”</P>
      <P>主人想了想,同意了。</P>
      <P>天使讓主人和狗準備好,就宣布賽跑開始。她滿心以為主人為了進天堂,會拚命往前奔,誰知道主人一點也不忙,慢吞吞地往前走著。更令天使吃驚的是,那條導盲犬也沒有奔跑,它配合著主人的步調在旁邊慢慢跟著,一步都不肯離開主人。天使恍然大悟:原來,多年來這條導盲犬已經養成了習慣,永遠跟著主人行動,在主人的前方守護著他。可惡的主人,正是利用了這一點,才胸有成竹,穩操勝券,他只要在天堂門口叫他的狗停下就可以了。</P>
      <P>天使看著這條忠心耿耿的狗,心裡很難過,她大聲對狗說:“你已經為主人獻出了生命,現在,你這個主人不再是瞎子,你也不用領著他走路了,你快跑進天堂吧!”</P>
      <P>可是,無論是主人還是他的狗,都像是沒有聽到天使的話一樣,仍然慢吞吞地地往前走,好像在街上散步似的。</P>
      <P>果然,離終點還有幾步的時候,主人發出一聲口令,狗聽話地坐下了,天使用鄙視的眼神看著主人。</P>
      <P>這時,主人笑了,他扭過頭對天使說:“我終於把我的狗送到天堂了,我最擔心的就是它根本不想上天堂,只想跟我在一起……所以我才想幫它決定,請你照顧好它。”</P>
      <P>天使愣住了。</P>
      <P>主人留戀地看著自己的狗,又說:“能夠用比賽的方式決定真是太好了,只要我再讓它往前走幾步,它就可以上天堂了。不過它陪伴了我那麼多年,這是我第一次可以用自己的眼睛看著它,所以我忍不住想要慢慢地走,多看它一會兒。如果可以的話,我真希望永遠看著它走下去。不過天堂到了,那才是它該去的地方,請你照顧好它。”</P>
      <P>說完這些話,主人向狗發出了前進的命令,就在狗到達終點的一刹那,主人像一片羽毛似的落向了地獄的方向。他的狗見了,急忙掉轉頭,追著主人狂奔。滿心懊悔的天使張開翅膀追過去,想要抓住導盲犬,不過那是世界上最純潔善良的靈魂,速度遠比天堂所有的天使都快。</P>
      <P>所以導盲犬又跟主人在一起了,即使是在地獄,導盲犬也永遠守護著它的主人。</P>
      <P>天使久久地站在那裡,喃喃說道:“我一開始就錯了,這兩個靈魂是一體的,他們不能分開……”<BR>  <BR>  最後,我要說:這個世界上,真相只有一個,可是在不同人眼中,卻會看出不同的是非曲直。這是為什麼呢?其實,道理很簡單,因為每個人看待事物,都不可能站在絕對客觀公正的立場上,而是或多或少地戴上有色眼鏡,用自己的經驗、好惡和道德標準來進行評判,結果就是——我們看到了假象。
      <BR>  <BR>"友誼的幸福之一,是知道了可以向誰傾吐秘密。"如果你收到了這封信,是因為有人在默默的祝福你,因為你也愛你身邊的一些人。如果你總說太忙,不能將這封信轉寄出去,老是說:"改天再寄。"你將永遠都不會去做這件事的。所以,不要找借口,靜心的看看這篇古老印度來的故事,然後決定為你的朋友們作一些事,從傳寄這封信開始。當你說:"你是我的好朋友"時,請認真的說出來。當你道歉時請看著對方的眼睛。</P>
      <P></P>
      <P>  <FONT color=#ff0000>永遠不要嘲笑別人的夢想。不要隨便給一個人定性。說話時要慢,思想時要快。</FONT></P>
      <P>  <FONT color=#ff0000>打電話的時候請你微笑,對方一定感覺得到。</FONT> </P>
      <P>  <FONT
color=#ff0000>這封信應該在你收到的96小時候轉寄,你會發現4天后,生活起了變化。這不是迷信。</FONT></P>
      <P>  <FONT color=#ff0000>轉給0-4人:你的生活會悄悄起變化</FONT></P>
      <P>  <FONT color=#ff0000>轉給5-9人:生活如你所願</FONT></P>
      <P>  <FONT color=#ff0000>轉給9-14人:接下來的三個星期你會有驚喜的發現</FONT></P>
      <P>  <FONT color=#ff0000>轉給15人以上:你的夢想終會成真.</FONT> </P>
      <P>  這是一個朋友轉寄給我的信。常常收到類似的讓我繼續轉寄的郵件,號稱如果這樣做了就會發財之類,通常我會把自己作為終點,但是這封信打動了我,因為它說:"收到了這封信,是因為有人在默默的祝福你,因為你也愛你身邊的一些人"。帶著愛的,一切將如願以償。</P>
      <P>  這是一封給你送上好運的信,它始於新英格蘭。此信的複製由南非教區主教索爾安東尼起草並由維尼烏拉發出,已經繞地球轉了十次。現在好運已降臨到你身上,只要你照辦,將此信網址複製2O份分別寄給親朋好友或QQ上的朋友,使它在界各地周轉,你將在四天內交到好運,這不是在開玩笑,不需要寄錢,因為幸運是無代價的。</P>
      <P>  <B>你看到了嗎?我在默默的祝福你。<SPAN
      style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋體" lang=EN-US><FONT
      face=PMingLiU>*^_^* </FONT></SPAN></B></P></TD></TR></TBODY></TABLE></DIV>
<DIV id=w1></DIV>
<P><SPAN class="p9"><BR><BR><BR></SPAN></P></BODY></HTML>

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.