沈阳协和集团:这个网址是怎样做的

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 12:07:39
网址如下:
http://www.xzss.com/kaixin/zhufu/story/1111.htm
问一下里面的文字播放是怎样做的,还有背影是不是图片来的.最好详细一点???????
还有音乐在那里插入播放呀

文字播放的关键就是
<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>

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 id=w0 style="display: none; width: 744; height: 2441"> <TABLE width="663" align=center border=0>
<TBODY> <TR> <TD width="655">
<P align=center><font face="华文行楷" size="6" color="#FF00FF"><br>
人的一生会遇上的四个人</font></P>
<P align=center><img border="0" src="0119.gif" width="320" height="214"></P>

<P align=center><font color="#FF00FF" face="华文行楷" size="4">人生就是为了找寻爱的过程,每个人的人生都要找到四个人。</font><FONT face=华文中宋 color=#ff99cc
size=3><img src="line.gif" width="600" height="30"></FONT></P><P align=left><FONT face=华文中宋 color=#3399ff><FONT
size=2>               </FONT></FONT><font size="2" face="华文中宋" color="#3399ff">          
</font><font color="#00FF00" face="隶书" size="4">第一个是自己,<BR>          
第二个是你最爱的人,<BR>           第三个是最爱你的人,<BR>          
第四个是共度一生的人.<BR>           首先会遇到你最爱的人,然后体会到爱的感觉;<BR>          
因为了解被爱的感觉,所以才能发现最爱你的人;<BR>          
当你经历过爱人与被爱,学会了爱,才会知道什么是你需要的,<BR>          
也才会找到最适合你,能够相处一辈子的人。<BR>          
但很悲哀的,在现实生活中,这三个人通常不是同一个人;<BR>          
你最爱的,往往没有选择你;<BR>          
最爱你的,往往不是你最爱的;<BR>          
而最长久的,偏偏不是你最爱也不是最爱你的,<BR>          
只是在最适合的时间出现的那个人。<BR>          
你,会是别人生命中的第几个人呢?<BR>          
没有人是故意要变心的,他爱你的时候是真的爱你,<BR>          
可是他不爱你的时候也是真的不爱你了,<BR>          
他爱你的时候没有办法假装不爱你;<BR>          
同样的,他不爱你的时候也没有办法假装爱你 。<BR>          
当一个人不爱你要离开你,<BR>           你要问自己还爱不爱他,<BR>          
如果你也不爱他了,千万别为了可怜的自尊而不肯离开;<BR>          
如果你还爱他,你应该会希望他过得幸福快乐,<BR>          
希望他跟真正爱的人在一起,绝不会阻止,<BR>          
你要是阻止他得到真正的幸福,就表示你已经不爱他了,<BR>          
而如果你不爱他,你又有什么资格指责他变心呢?<BR>          
爱不是占有,<BR>           你喜欢月亮,不可能把月亮拿下来放在脸盆里,<BR>          
但月亮的光芒仍可照进你的房间。<BR>          
换句话说,你爱一个人,也可以用另一种方式拥有,<BR>          
让爱人成为生命里的永恒回忆,<BR>          
如果你真爱一个人,就要爱他原来的样子—爱他的好,也爱他的坏:<BR>          
爱他的优点,也爱他的缺点,<BR>          
绝不能因为爱他,就希望他变成自己所希望的样子,<BR>          
万一变不成就不爱他了。<BR>           真正爱一个人是无法说出原因的,<BR>          
你只知道无论何时何地、心情好坏,你都希望这个人陪著你;<BR>          
真正的感情是两人能在最艰苦中相守,也就是没有丝毫要求。<BR>          
毕竟,感情必须付出,而不是只想获得;<BR>          
分开是一种必然的考验,<BR>           如果你们感情不够稳固,只好认输,<BR>          
真爱是不会变成怨恨的。<BR>          
你呢?找到了第几个?<BR>           茫茫人海中,你遇见了谁?谁又遇见了你?</font></P><P align=left>  
<img src="line.gif" width="600" height="30"></P><P>      
<FONT color=#ff0000>转给0-4人:你的生活会悄悄起变化</FONT>   <br>
           <FONT color=#ff0000>转给5-9人:生活如你所愿<br>
          转给9-14人:接下来的三个星期你会有惊喜的发现<br>
</FONT>      <FONT color=#ff0000>    
转给15人以上:你的梦想终会成真.</FONT></P><P> <font color="#FF00FF">这是一个朋友转发给我的信。常常收到类似的让我继续转发的邮件,号称如果这样做了就会怎么样之类,通常我会把自己作为终点,但是这封信打动了我,因为它说:"收到了这封信,是因为有人在默默的祝福,因为你也爱你身边的一些人"。带着爱的,一切将如愿以偿。<br>
这是一封给你送上好运的信,它始于新英格兰。此信的复制由南非教区主教索尔安东尼起草并由维尼乌拉发出,已经绕地球转了十次。现在好运已降临到你身上,只要你照办,将此信复制2O份分别寄给亲朋好友,使它在界各地周转,你将在四天内交到好运,这不是在开玩笑,不需要寄钱,因为幸运是无代价的。</font></P><P align="center"><font color="#FF00FF">"<font color="#FFFFFF" size="2">
</font></font><B><font face="宋体" color="#FFFF00">你看到了吗?我在默默的祝福你。<SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体">*^_^*<br>
</SPAN></font>

</B></P>
<P align="center">
<B><SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体"><a href="/index.asp" target="_blank">
<font face="宋体" color="#00FF00" size="2">因为有爱<br>
来吧!走进自然<br>
我们一起去看晴朗的天、温柔的山<br>
一起去探险、一起去野营<br>
女孩的眼睛在丛林中更加妩媚<br>
男孩的个性在悬崖上愈显张扬</font></a></SPAN></B></P><P align="center">
<img border="0" src="2222.jpg" width="418" height="82"><B><SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体"><FONT FACE="宋体" COLOR="#FFFFFF"><br>
</FONT>
</SPAN></B></P></TD></TR></TBODY></TABLE></DIV><DIV id=w1></DIV><P align=center> </P><BR><BR>
<script language="JavaScript">
<!--

if (window.Event)
document.captureEvents(Event.MOUSEUP);

function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}

<HTML><HEAD><TITLE>《给你一个爱故事》</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
type=text/css rel=stylesheet>
<STYLE type=text/css>TD {
FONT-SIZE: 14px; LINE-HEIGHT: 28px
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR><BGSOUND balance=0 src="ilove.mid"
volume=0 loop="-1"> <style>
<!--
BODY {SCROLLBAR-FACE-COLOR: #FB7C7C; SCROLLBAR-HIGHLIGHT-COLOR: #FFFFFF; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR: #FFD4D4; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #FFD4D4; SCROLLBAR-DARKSHADOW-COLOR: #FFFFFF; }
-->
</style> <style type="text/css">
<!--
p, td, select { font-size: 9pt }
a { color: black; font-size: 9pt; text-decoration: none }
a:hover { color: red; text-decoration: underline overline }
.drop { filter: dropshadow(color=000000, offx=1, offy=1, positive=1) }
.drop2 { filter: dropshadow(color=FFFFFF, offx=1, offy=1, positive=1) }
-->
</style> </HEAD>
<BODY bgProperties=fixed background=back.jpg>
<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 id=w0 style="display: none; width: 744; height: 2441"> <TABLE width="663" align=center border=0>
<TBODY> <TR> <TD width="655">
<P align=center><font face="华文行楷" size="6" color="#FF00FF"><br>
人的一生会遇上的四个人</font></P>
<P align=center><img border="0" src="0119.gif" width="320" height="214"></P>

<P align=center><font color="#FF00FF" face="华文行楷" size="4">人生就是为了找寻爱的过程,每个人的人生都要找到四个人。</font><FONT face=华文中宋 color=#ff99cc
size=3><img src="line.gif" width="600" height="30"></FONT></P><P align=left><FONT face=华文中宋 color=#3399ff><FONT
size=2>               </FONT></FONT><font size="2" face="华文中宋" color="#3399ff">          
</font><font color="#00FF00" face="隶书" size="4">第一个是自己,<BR>          
第二个是你最爱的人,<BR>           第三个是最爱你的人,<BR>          
第四个是共度一生的人.<BR>           首先会遇到你最爱的人,然后体会到爱的感觉;<BR>          
因为了解被爱的感觉,所以才能发现最爱你的人;<BR>          
当你经历过爱人与被爱,学会了爱,才会知道什么是你需要的,<BR>          
也才会找到最适合你,能够相处一辈子的人。<BR>          
但很悲哀的,在现实生活中,这三个人通常不是同一个人;<BR>          
你最爱的,往往没有选择你;<BR>          
最爱你的,往往不是你最爱的;<BR>          
而最长久的,偏偏不是你最爱也不是最爱你的,<BR>          
只是在最适合的时间出现的那个人。<BR>          
你,会是别人生命中的第几个人呢?<BR>          
没有人是故意要变心的,他爱你的时候是真的爱你,<BR>          
可是他不爱你的时候也是真的不爱你了,<BR>          
他爱你的时候没有办法假装不爱你;<BR>          
同样的,他不爱你的时候也没有办法假装爱你 。<BR>          
当一个人不爱你要离开你,<BR>           你要问自己还爱不爱他,<BR>          
如果你也不爱他了,千万别为了可怜的自尊而不肯离开;<BR>          
如果你还爱他,你应该会希望他过得幸福快乐,<BR>          
希望他跟真正爱的人在一起,绝不会阻止,<BR>          
你要是阻止他得到真正的幸福,就表示你已经不爱他了,<BR>          
而如果你不爱他,你又有什么资格指责他变心呢?<BR>          
爱不是占有,<BR>           你喜欢月亮,不可能把月亮拿下来放在脸盆里,<BR>          
但月亮的光芒仍可照进你的房间。<BR>          
换句话说,你爱一个人,也可以用另一种方式拥有,<BR>          
让爱人成为生命里的永恒回忆,<BR>          
如果你真爱一个人,就要爱他原来的样子—爱他的好,也爱他的坏:<BR>          
爱他的优点,也爱他的缺点,<BR>          
绝不能因为爱他,就希望他变成自己所希望的样子,<BR>          
万一变不成就不爱他了。<BR>           真正爱一个人是无法说出原因的,<BR>          
你只知道无论何时何地、心情好坏,你都希望这个人陪著你;<BR>          
真正的感情是两人能在最艰苦中相守,也就是没有丝毫要求。<BR>          
毕竟,感情必须付出,而不是只想获得;<BR>          
分开是一种必然的考验,<BR>           如果你们感情不够稳固,只好认输,<BR>          
真爱是不会变成怨恨的。<BR>          
你呢?找到了第几个?<BR>           茫茫人海中,你遇见了谁?谁又遇见了你?</font></P><P align=left>  
<img src="line.gif" width="600" height="30"></P><P>      
<FONT color=#ff0000>转给0-4人:你的生活会悄悄起变化</FONT>   <br>
           <FONT color=#ff0000>转给5-9人:生活如你所愿<br>
          转给9-14人:接下来的三个星期你会有惊喜的发现<br>
</FONT>      <FONT color=#ff0000>    
转给15人以上:你的梦想终会成真.</FONT></P><P> <font color="#FF00FF">这是一个朋友转发给我的信。常常收到类似的让我继续转发的邮件,号称如果这样做了就会怎么样之类,通常我会把自己作为终点,但是这封信打动了我,因为它说:"收到了这封信,是因为有人在默默的祝福,因为你也爱你身边的一些人"。带着爱的,一切将如愿以偿。<br>
这是一封给你送上好运的信,它始于新英格兰。此信的复制由南非教区主教索尔安东尼起草并由维尼乌拉发出,已经绕地球转了十次。现在好运已降临到你身上,只要你照办,将此信复制2O份分别寄给亲朋好友,使它在界各地周转,你将在四天内交到好运,这不是在开玩笑,不需要寄钱,因为幸运是无代价的。</font></P><P align="center"><font color="#FF00FF">"<font color="#FFFFFF" size="2">
</font></font><B><font face="宋体" color="#FFFF00">你看到了吗?我在默默的祝福你。<SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体">*^_^*<br>
</SPAN></font>

</B></P>
<P align="center">
<B><SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体"><a href="/index.asp" target="_blank">
<font face="宋体" color="#00FF00" size="2">因为有爱<br>
来吧!走进自然<br>
我们一起去看晴朗的天、温柔的山<br>
一起去探险、一起去野营<br>
女孩的眼睛在丛林中更加妩媚<br>
男孩的个性在悬崖上愈显张扬</font></a></SPAN></B></P><P align="center">
<img border="0" src="2222.jpg" width="418" height="82"><B><SPAN lang=EN-US
style="FONT-FAMILY: PMingLiU; mso-bidi-font-family: 宋体"><FONT FACE="宋体" COLOR="#FFFFFF"><br>
</FONT>
</SPAN></B></P></TD></TR></TBODY></TABLE></DIV><DIV id=w1></DIV><P align=center> </P><BR><BR>
<script language="JavaScript">
<!--

if (window.Event)
document.captureEvents(Event.MOUSEUP);

function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}

document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
//-->
</script>
</BODY></HTML>

代码中的祝福文字可以随便改
背景是图片来得

背景音乐
<BGSOUND balance=0 src="ilove.mid" volume=0 loop="-1">

在网页上右击,查看源文件可以看到源码.

背景是图片