33、图片魔幻变化 代码3

33、图片魔幻变化  代码3

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>欢迎光临</TITLE>

<META http-equiv=Content-Type content="text/html; charset=gb2312">

<META content="MSHTML 6.00.2900.2144" name=GENERATOR></HEAD>

<BODY bgColor=#000000 scroll=no></EMBED>

 <SCRIPT language=vbs>

 

Set bs0 = document.all.tags("BASE")

on error resume next

bs0(0).removeAttribute "href",0

</SCRIPT><STYLE>BODY {

       BORDER-RIGHT: #9753a5 8px inset; BORDER-TOP: #9753a5 8px outset; BORDER-LEFT: #9753a5 8px outset; BORDER-BOTTOM: #9753a5 8px inset

}

DIV.rlkdv {

       FONT-SIZE: 24pt; VISIBILITY: hidden; WIDTH: 600px; FONT-FAMILY: "BlackChancery"; POSITION: absolute; HEIGHT: 200px; BACKGROUND-COLOR: transparent; TEXT-ALIGN: center

}

DIV.rlkdv2 {

       BORDER-RIGHT: #589516 6px double; BORDER-TOP: #589516 6px double; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr="#FFDDBBFF", EndColorStr="#FF5700AE"); VISIBILITY: hidden; BORDER-LEFT: #589516 6px double; WIDTH: 625px; BORDER-BOTTOM: #589516 6px double; POSITION: absolute; HEIGHT: 301px

}

IMG.rlkig {

       BORDER-RIGHT: #9753a5 2px double; BORDER-TOP: #9753a5 2px double; LEFT: 26px; BORDER-LEFT: #9753a5 2px double; WIDTH: 555px; BORDER-BOTTOM: #9753a5 2px double; POSITION: absolute; TOP: 16px; HEIGHT: 251px

}

</STYLE><META content="MSHTML 6.00.2800.1106" name=GENERATOR><DIV class=rlkdv id=rlkdv>

<P style="COLOR: #589516">点击花儿进入第二页</P></DIV>

<DIV class=rlkdv id=rlkdv1 style="visibility: visible">

<P style="COLOR: #589516">欢迎光临</P></DIV>

<DIV class=rlkdv2 id=rlkdv2>

       <div style="position: absolute; width: 100px; height: 100px; z-index: 1" id="layer1">

              <div style="position: absolute; width: 100px; height: 100px; z-index: 1" id="layer2">

 </div>

              <p> </div>

       <IMG class=rlkig src="sto03/12.jpg"></DIV>

<DIV language=vbScript id=obtn

style="BORDER-RIGHT: #edd5ac 0px groove; BORDER-TOP: #edd5ac 0px groove; FONT-WEIGHT: bold; FONT-SIZE: 16px; Z-INDEX: 50; LEFT: -1800px; VISIBILITY: hidden; BORDER-LEFT: #edd5ac 0px groove; CURSOR: hand; COLOR: #000000; POSITION: absolute; TOP: -1800px; HEIGHT: 183px; BACKGROUND-COLOR: transparent; edd5ac: "

onclick=PopOpen()><IMG alt=open src="sto03/flower.gif"></DIV>

<DIV id=rob style="DISPLAY: none">

<STYLE id=popupStyle>DIV.lyrics {

       FONT-SIZE: 24pt; WIDTH: 600px; COLOR: #589516; FONT-FAMILY: "BlackChancery"; POSITION: absolute; HEIGHT: 100px; TEXT-ALIGN: center

}

</STYLE>

 

<DIV class=lyrics id=lyrics style="position: absolute; left: 113px; top: 3px; width: 216px">

<p style="text-align: left"><font size="3" color="#FFFFFF">难忘的回忆 <br>

我真的害怕 <br>

有一天会突然爱上你 <br>

那样 <br>

我就会更加迷失自己 <br>

原本游荡是为了更好的忘记<br>

又怎能再次踏入多情的痴迷 <br>

让无休止的烦恼困扰我和你 <br>

想逃避怕来不及 <br>

又怕再次触痛黑夜的回忆 <br>

于是执着的想忘记 <br>

却不知你已在我眼中找到自己 </font></DIV>

<SPAN id=hold

style="Z-INDEX: 1; LEFT: -1800px; WIDTH: 0px; POSITION: absolute; TOP: -1800px; HEIGHT: 0px"><IMG

src="sto03/9.jpg"> <IMG src="sto03/7.jpg"> <IMG

src="sto03/8.jpg"> <IMG src="sto03/1.jpg"> <IMG

src="sto03/10.jpg"> <IMG src="sto03/2.jpg"> <IMG

src="sto03/6.jpg"> <IMG src="sto03/3.jpg"> <IMG

src="sto03/11.jpg"> <IMG src="sto03/4.jpg"> <IMG

src="sto03/5.jpg"> </SPAN>

<DIV id=Holder style="Z-INDEX: 3; POSITION: absolute"></DIV><IMG id=frame

style="Z-INDEX: 5; LEFT: -1800px; POSITION: absolute; TOP: -1800px" height=455

src="sto03/1.gif" width=333>

<DIV language=VBScript id=ebtn

style="BORDER-RIGHT: #6c6c6c 0px ridge; BORDER-TOP: #6c6c6c 0px ridge; FONT-WEIGHT: bold; FONT-SIZE: 18px; Z-INDEX: 50; LEFT: 15px; BORDER-LEFT: #6c6c6c 0px ridge; WIDTH: 94px; CURSOR: hand; COLOR: #e14900; BORDER-BOTTOM: #b9d3ee 0px ridge; FONT-FAMILY: BlackChancery; POSITION: absolute; TOP: 87%; HEIGHT: 110px; BACKGROUND-COLOR: transparent"

onclick=parent.closepopup()><IMG height=110 alt=close

src="sto03/flower1.gif" width=94></DIV></DIV>

<SCRIPT language=vbscript>

  '~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~ *

  '

  ' ///,        ////        Date

  ' \  /,      /  >.      01-14-05

  '  \  /,   _/  /.

  '   \_  /_/   /.

  '    \__/_   <   

  '    /<<< \_\_      The Phoenix Connection

  '   /,)^>>_._ \       Out of the Ashes

  '   (/   \\ /\\\

  '        // //```     Script by RLK

  ' ======((`((====   Thank you SteveMac for

  '                      VBS sync script  

  '                  Thank you Craig for Arrays

  '                  Got around to doing them

  '        Thank you Uncle Gus for the easy encoding tut

  '~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~/

dim  sun(7), Ashes, poprlk

SetLocale("en-us")

 

scw=document.body.ClientWidth

sch=document.body.ClientHeight

 

winx=window.parent.screen.width

winy=window.parent.screen.height

 

lyricsw=600

lyricsh=100

rlkdv1w=600

rlkdv1h=200

rlkdv2w=625

rlkdv2h=301

 

gaph=(sch-(rlkdv1h+rlkdv2h))/3

obtn.style.posLeft=(scw-obtn.offsetwidth)/2

obtn.style.posTop=(sch-obtn.offsetheight)/2

obtn.style.visibility="visible"

rlkdv.style.posLeft=(scw-rlkdv.offsetwidth)/2

rlkdv.style.posTop=40

rlkdv.style.visibility="visible"

 

'images and frame heights

imgh=440

imgw=323

frameh=465

framew=333

 

 

musicpath="http://computer.bisu.edu.cn/04_2/yinyan/sound/woyuanyi.wma"

 

document.write"<OBJECT id=player CLASSID='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6'style='position:absolute;top:-1800'><PARAM name='URL' value='"&musicpath&"'><PARAM name='playCount' value=1><PARAM name='volume' value=100><PARAM name='autoStart' value='false'><PARAM name='uiMode' value='invisible'></object>"

 

Sub player_ScriptCommand(ct,lyric)

ClearTimeOut

if ct = "CAPTION" then blue.lyrics.innerHTML = lyric

end sub

 

'Set  popup

Set Popup=window.createPopup()

Set PopupBody=Popup.document.body

Set window.parent.PopUpBody.OnUnload=GetRef("closepopup")

Set blue=PopupBody.all

PopupBody.innerHTML="<div style='display:none'>"&popupStyle.innerHTML&"</div>"&rob.innerHTML

PopupBody.style.border="8px inset #9753A5"

PopupBody.style.backgroundcolor="#000000"

 

 

blue.Holder.style.width=imgw

blue.Holder.style.height=imgh

blue.frame.style.posTop=(winy-(frameh+10))/2

blue.frame.style.Left=(winx-framew)/2

blue.Holder.style.Top=(winy-(imgh+20))/2

blue.Holder.style.Left=(winx-imgw)/2

 

 

sun(0)="progid:DXImageTransform.Microsoft.Iris(irisStyle=star,duration=3, motion=in)"

sun(1)="progid:DXImageTransform.Microsoft.Iris(irisStyle=star,duration=3, motion=out)"

sun(2)="progid:DXImageTransform.Microsoft.Slide(slideStyle='HIDE', bands=20,duration=3)"

sun(3)="progid:DXImageTransform.Microsoft.RadialWipe(wipeStyle='wedge',duration=3)"

sun(4)="progid:DXImageTransform.Microsoft.Wheel(spokes=20,duration=3,)"

sun(5)="progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=30,duration=3)"

sun(6)="progid:DXImageTransform.Microsoft.RadialWipe(wipeStyle='radial',duration=3)"

 

count1=0

 

Set Ashes=blue.hold.All.Tags("IMG")

count2=0

 

 

Sub PopOpen()

ClearTimeOut(poprlk)

 

popup.show 1,1, winx, winy

blue.lyrics.style.posLeft=(winx-lyricsw)/2

blue.lyrics.style.posTop=(winy-(lyricsh+40))

obtn.style.visibility="hidden"

rlkdv.style.posLeft=-1800

rlkdv.style.posTop=-1800

player.controls.play()

poprlk=SetTimeOut ("newDay", 500)

End Sub

 

 

Sub newDay()

ClearTimeOut(poprlk)

blue.Holder.style.filter=sun(count1)

blue.Holder.filters(0).Apply()

blue.Holder.style.visibility="visible"

blue.Holder.style.backgroundImage="URL("&Ashes(count2).src&")"

blue.Holder.filters(0).Play ()

count2=count2+1

If count2=Ashes.length Then count2=0

count1=count1+1

If count1=UBound(sun) Then count1=0

poprlk=SetTimeOut("newDay",5000)

End Sub

 

sub window_onresize()

window.location.reload

end sub

 

Sub closepopup()

parent.Popup.hide()

ClearTimeOut(poprlk)

rlkdv1.style.posLeft=(scw-rlkdv2w)/2

rlkdv1.style.posTop=gaph

rlkdv1.style.visibility="visible"

rlkdv2.style.posLeft=(scw-rlkdv2w)/2

rlkdv2.style.posTop=(2*gaph)+rlkdv1h

rlkdv2.style.visibility="visible"

 

End Sub

 

</SCRIPT>

</BODY></HTML>

 

Write a comment

Comments: 0