⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 图片魔幻变化.txt

📁 全部是制作动态网页的源代码
💻 TXT
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0042)http://www.616bbs.com/picture/xx/222/1.htm -->
<HTML><HEAD><TITLE>网页特效</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>BODY {
	BORDER-RIGHT: #c58757 5px inset; BORDER-TOP: #c58757 5px outset; FONT-SIZE: 14pt; MARGIN: 0px; BORDER-LEFT: #c58757 5px outset; COLOR: #f0f0f0; BORDER-BOTTOM: #c58757 5px inset; FONT-FAMILY: "ariel"
}
IMG.apic {
	FILTER: progid:DXImageTransform.Microsoft.fade()progid:DXImageTransform.Microsoft.Shadow(color=#9CB7A6, Direction=40, Strength=20); LEFT: -1800px; POSITION: absolute; TOP: -1800px
}
IMG.apic2 {
	FILTER: progid:DXImageTransform.Microsoft.fade(); POSITION: absolute
}
DIV.atx1 {
	PADDING-RIGHT: 10px; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #61b5ed; FONT-SIZE: 11px; FILTER: progid:DXImageTransform.Microsoft.Chroma(color=#61B5ED); LEFT: -1805px; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #61b5ed; OVERFLOW: auto; WIDTH: 200px; SCROLLBAR-SHADOW-COLOR: #183333; COLOR: #f0f0f0; SCROLLBAR-3DLIGHT-COLOR: #224645; SCROLLBAR-ARROW-COLOR: #5b8176; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #61b5ed; FONT-FAMILY: temp sans itc; SCROLLBAR-DARKSHADOW-COLOR: #61b5ed; LETTER-SPACING: 5px; POSITION: absolute; TOP: -1805px; HEIGHT: 80px; TEXT-ALIGN: left
}
DIV.atx2 {
	PADDING-RIGHT: 2px; PADDING-LEFT: 2px; SCROLLBAR-FACE-COLOR: #61b5ed; Z-INDEX: 9; FILTER: progid:DXImageTransform.Microsoft.fade() progid:DXImageTransform.Microsoft.Alpha(opacity=89); LEFT: -1800px; VISIBILITY: hidden; PADDING-BOTTOM: 9px; FONT: 12pt 'ariel'; SCROLLBAR-HIGHLIGHT-COLOR: #61b5ed; OVERFLOW: auto; WIDTH: 400px; SCROLLBAR-SHADOW-COLOR: #183333; COLOR: #f0f0f0; SCROLLBAR-3DLIGHT-COLOR: #224645; SCROLLBAR-ARROW-COLOR: #5b8176; PADDING-TOP: 9px; SCROLLBAR-TRACK-COLOR: #61b5ed; SCROLLBAR-DARKSHADOW-COLOR: #61b5ed; LETTER-SPACING: 10pt; POSITION: absolute; TOP: -1800px; HEIGHT: 300px; TEXT-ALIGN: center
}
</STYLE>

<META content="MSHTML 6.00.2900.2144" name=GENERATOR></HEAD>
<BODY bgColor=#000000 scroll=no>

<DIV class=atx1 
style="FONT-SIZE: 11px; LEFT: 5px; WIDTH: 200px; COLOR: #f0f0f0; FONT-FAMILY: temp sans itc; POSITION: absolute; TOP: 5px; HEIGHT: 50px; TEXT-ALIGN: left"><A 
href="http://www.7stk.com/" target=_blank><FONT 
color=#ff0000>点击右边小图进入第二页</FONT></A><BR></DIV><IMG class=apic2 id=apic2 
style="Z-INDEX: 5; VISIBILITY: hidden; POSITION: absolute" 
src="sto/3d_chiar.jpg"> 
<DIV class=atx2 id=atx2>亲爱的!我爱你……</DIV><IMG class=apic2 id=nailin 
style="Z-INDEX: 6; RIGHT: 20px; WIDTH: 100px; CURSOR: hand; POSITION: absolute; TOP: 30px; HEIGHT: 145px" 
src="sto/button2.jpg"> 
<DIV id=topics style="DISPLAY: none">
<DIV 
style="Z-INDEX: -10; FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorstr=#000000,endColorstr=#CE4208,GradientType=1); LEFT: 0px; WIDTH: 50%; POSITION: absolute; TOP: 0px; HEIGHT: 100%"><FONT 
face="Bradley Hand ITC"></FONT></DIV>
<DIV 
style="Z-INDEX: -10; FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorstr=#CE4208,endColorstr=#000000,GradientType=1); LEFT: 50%; WIDTH: 51%; POSITION: absolute; TOP: 0px; HEIGHT: 100%"><FONT 
face="Bradley Hand ITC"></FONT></DIV>
<STYLE id=PupStyle>IMG.pic1 {
	BORDER-RIGHT: #ffffff 3px dotted; BORDER-TOP: #ffffff 3px dotted; FILTER: progid:DXImageTransform.Microsoft.fade(); LEFT: -1800px; VISIBILITY: hidden; BORDER-LEFT: #ffffff 3px dotted; BORDER-BOTTOM: #ffffff 3px dotted; POSITION: absolute; TOP: -1800px
}
DIV.ddd {
	BORDER-RIGHT: #ce4208 3px ridge; BORDER-TOP: #ce4208 3px ridge; FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorstr=#807041,endColorstr=#"5D4217",GradientType=0,enabled=1); LEFT: -1800px; BORDER-LEFT: #ce4208 3px ridge; BORDER-BOTTOM: #ce4208 3px ridge; POSITION: absolute; TOP: -1800px
}
DIV.tx1 {
	PADDING-RIGHT: 20px; PADDING-LEFT: 20px; SCROLLBAR-FACE-COLOR: #61b5ed; FONT-SIZE: 18px; FILTER: progid:DXImageTransform.Microsoft.fade()
                 progid:DXImageTransform.Microsoft.Alpha(opacity=99); LEFT: 430px; PADDING-BOTTOM: 20px; SCROLLBAR-HIGHLIGHT-COLOR: #61b5ed; OVERFLOW: auto; WIDTH: 400px; SCROLLBAR-SHADOW-COLOR: #183333; COLOR: #f0f0f0; SCROLLBAR-3DLIGHT-COLOR: #224645; SCROLLBAR-ARROW-COLOR: #5b8176; PADDING-TOP: 20px; SCROLLBAR-TRACK-COLOR: #61b5ed; FONT-FAMILY: ariel; SCROLLBAR-DARKSHADOW-COLOR: #f0f0f0; POSITION: absolute; TOP: 15px; HEIGHT: 300px; TEXT-ALIGN: left
}
IMG.rolov {
	LEFT: -1800px; POSITION: absolute; TOP: -1800px
}
IMG.txfs2 {
	FILTER: progid:DXImageTransform.Microsoft.RevealTrans(); POSITION: absolute; TOP: -1800px; leftz-1800: 
}
IMG.pp3 {
	LEFT: -1800px; POSITION: absolute; TOP: -1800px
}
SPAN.holder {
	LEFT: -1800px; VISIBILITY: hidden; POSITION: absolute; TOP: -1800px
}
</STYLE>
<IMG class=pp3 id=pupbgdfs 
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px" 
src="sto/null.gif"> 
<DIV class=ddd id=fhold src="null.gif"><IMG language=vbs id=nail 
style="Z-INDEX: 56; RIGHT: 10px; WIDTH: 55px; CURSOR: hand; POSITION: absolute; TOP: 10px; HEIGHT: 90px" 
onclick=parent.nailout src="sto/button.jpg"> </DIV>
<DIV><IMG class=rolov id=rolov src="sto/scroll1_A.gif"></DIV><!--slide show, set as many pics as you like--><SPAN 
class=holder id=tulder><IMG src="sto/ix-girl.jpg"> <IMG 
src="sto/bat_R2.jpg"> <IMG src="sto/ix-snake.jpg"> </SPAN><!--slide show, set as many pics as you like--><SPAN class=holder 
id=holder><IMG src="sto/SpaceViking.jpg"> <IMG 
src="sto/ix-Cndls.jpg"> <IMG src="sto/wpaper.jpg"> 
</SPAN></DIV>
<SCRIPT language=vbscript>

SetLocale("en-gb")
Dim scw, sch, winX, winY,winW,winH,tha1,tha2,a,b,c,i,ii,num

'*==============================================================================
stream="yes"   'or "no"
prea= "http://bbs.616bbs.com/picture/xx/120/1.wma"
preb=90    'volumn of sound in % of 100
prec=2     'how often shall the sound track play?
pred=1     'start the sound after opening of prepage in sec. 
'*==============================================================================
apic2W=400                       'image width in pre page       
apic2H=280                       'image height in pre page
atxboxW=400                      'text box  on pre page width
atxboxH=40                       'text box  on pre page height
'*==============================================================================
yscw=1024   'this is your screen-resolution width you wish to show in any larger then 1024 px screen resolution
ysch=768    'this is your screen-resolution height you wish to show in any larger then 1024 px screen resolution
scrn="N"    'show your screen size at the center of a large resolution "Y"  or "N"
popbgd_tile="yee"    'set the tile on popup FS on "yes" or "yoo" or "yee" or "color" 
                     '"yes" use of prebgd pic - yee use of fullscreen pic 
                     '- "yoo" use of tiled seamless pic - color use of color
'*==============================================================================								 
holdW=950  'empty holder width in your screen set the border at the style area
holdH=713  'empty holder height in your screen set the border at the style area
picW=360   'picture width, hold all pictures the same size
picH=500   'picture height
txfsW=370  'textbox width
txfsH=30   'textbox bord height
'==============================================================================*
'*-----don't change any things behinde this line it might create trouble  -----*
'==============================================================================*
scw=document.body.ClientWidth
sch=document.body.ClientHeight
'*set the prepicture, pretext box and open button here -----------------------------------------------*
gapT=sch/2-atxboxH/2-apic2H/2:apic2L=scw/2-apic2W/2:apic2T=gapT:apic2.style.posleft=apic2L:
apic2.style.postop=apic2T:apic2.style.width=apic2W:apic2.style.height=apic2H:apic2.style.visibility="hidden":apic2.style.border="1 #ff0000 ridge"
atx2L=apic2L+apic2W-atxboxW:atx2T=gapT+apic2H+10:atx2.style.visibility="hidden":
atx2.style.posleft=atx2L:atx2.style.postop=atx2T:atx2.style.width=atxboxW+4:atx2.style.height=atxboxH:atx2.style.border="1 #ff0000 ridge"
'*-----music stream by Steve Mac     ------------------------------------------*
if stream="yes" then
document.write"<OBJECT id=player1 CLASSID='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6'style='position:absolute;top:-1800'><PARAM name='URL' value='"&prea&"'><PARAM name='playCount' value="&prec&"><PARAM name='volume' value="&preb&"><PARAM name='autoStart' value='true'><PARAM name='uiMode' value='invisible'></object>"
clearInterval(thi3)
thi3=setInterval("bufferwma1",50)
end if
Sub bufferwma1()
on error resume next
if document.player.controls.currentPosition>0 then
clearInterval(thi3):document.player1.controls.stop()
else:document.player1.controls.play()
End if
End sub
'*-----the first page starts here    ------------------------------------------*
Sub Window_OnLoad() 
window.status="网页特效":
thi9=SetTimeOut("startmusic",1000):
tha1=SetTimeOut("fadein",500)
End Sub
sub startmusic():
cleartimeout(tha9):if stream="yes" then:clearInterval(thi1):player1.controls.play():end if:
end sub

'atx2.style.visibility="hidden"

Sub fadein()
ClearTimeOut(tha1):
apic2.filters(0).Apply():
apic2.style.visibility="visible":
apic2.filters(0).Play(4.00):
atx2.filters(0).Apply():
atx2.style.visibility="visible":
atx2.filters(0).Play(4.00):
end sub

'+------start of FS section----------------------------------------------------*
winW=window.parent.screen.width
winH=window.parent.screen.height
winL=0
winT=0
if winW>1024 then
fsff=winW/yscw
else
fsff=1
end if
'*------set your screen into any larger parent screen to the center------------*
if scrn="N" then
yscw=winW:ysch=winH
end if
if winW>1024 then
winL=winW/2-yscw/2:
winT=winH/2-ysch/2
winW=yscw:
winH=ysch
end if
Set Popup=window.createPopup()
'Set popupBody=Popup.Document.body
Set kputto=Popup.document.body 
Set kbale=kputto.all 
kputto.style.border="4px #ff0000 ridge"  
kputto.style.backgroundcolor="#000000"
kputto.innerHTML="<div style='display:none'>"+PupStyle.innerHTML+"</div>"+topics.innerHTML

if popbgd_tile="yoo"  then: kputto.background=pupbgdfs.src:end if
if popbgd_tile="yes"  then: kputto.background=pupbgd.src: end if
if popbgd_tile="yee"  then :kbale.pupbgdfs.style.width=winW:kbale.pupbgdfs.style.height=winH:kbale.pupbgdfs.style.posleft=0:kbale.pupbgdfs.style.postop=0:kbale.pupbgdfs.style.visibility="visible":end if

sub nailin_onclick()
Popup.show winL,winT,winW,winH
tha2=SetTimeOut("hide",4000)
end sub

'*------free holder (Main Frame)-----------------------------------------------*
W=holdw*fsff:
H=holdh*fsff:
L=winW/2-W/2:
T=(winH/2-H/2)+10:
kbale.fhold.style.width=W:
kbale.fhold.style.height=H:
kbale.fhold.style.posleft=L:
kbale.fhold.style.postop=T:
'kbale.fhold.style.backgroundcolor=
kbale.fhold.style.zindex="0":
kbale.fhold.style.visibility="visible":

'*------changing images in center----------------------------------------------*
picw=picw*fsff:picH=picH*fsff:gapL=(Winw-picW-txfsW*fsff)/3:picL=gapL:picT=H/2-picH/2+T:
kbale.rolov.style.width=txfsW*fsff:kbale.rolov.style.height=txfsH:kbale.rolov.style.left=gapL+gapL+picW:kbale.rolov.style.top=picT:kbale.rolov.style.zindex=99:
txfs2L=picL+picW+gapL+39:txfs2T=picT+txfsH:txfs2W=txfsW*fsff-78:txfs2H=picH-txfsH:

dim nr(4)
nr(0)="progid:DXImageTransform.Microsoft.RadialWipe (wipeStyle='clock')"
nr(1)="progid:DXImageTransform.Microsoft.Iris(irisStyle='STAR', motion='out')"
nr(2)="progid:DXImageTransform.Microsoft.Iris(irisStyle='CROSS', motion='out')"
nr(3)="progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=50)"
nr(4)="progid:DXImageTransform.Microsoft.Stretch(stretchStyle='push')"

dim nm(1)
nm(0)="progid:DXImageTransform.Microsoft.RevealTrans()"
nm(1)="progid:DXImageTransform.Microsoft.RevealTrans()"

iv=0:iii=0:ii=0:i=0:

set pic=holder.all.tags("img")
set puc=tulder.all.tags("img")
num=pic.length
num=puc.length
'*------set the images "insertAdjacent" ---------------------------------------*
KSC= "<IMG id=polder src='' style='border:2 #CE4208 solid; top:"&picT&"px; left:"&picL&"px; position:absolute; height:"&picH&" px; width:"&picW&"px;z-index=9 '>"+"<IMG id=kolder src='' style=' top:"&txfs2T&"px; left:"&txfs2L&"px; position:absolute; height:"&txfs2H&" px; width:"&txfs2W&"px;z-index=199 '>"
kputto.insertAdjacentHTML"BeforeEnd", KSC
kbale.polder.src=pic(i).src
kbale.kolder.src=puc(iii).src
kbale.kolder.style.filter=nm(iv)
kbale.polder.style.filter=nr(ii)

'*------start the subs here ---------------------------------------------------*
Sub show()
ClearTimeOut(tha1)
kbale.polder.src=pic(i).src
kbale.polder.style.filter=nr(ii)
kbale.polder.filters(0).Apply()
kbale.polder.style.visibility="visible"
kbale.polder.filters(0).Play(8.000)
kbale.kolder.src=puc(iii).src
kbale.kolder.filters(0).Apply()
kbale.kolder.filters(0).transition=5:
kbale.kolder.style.filter=nm(iv)
kbale.kolder.style.visibility="visible"
kbale.kolder.filters(0).Play(8.000)
tha2=SetTimeOut("hide",15000)
End Sub

Sub hide()
ClearTimeOut(tha2)
kbale.kolder.filters(0).Apply()
kbale.kolder.filters(0).transition=4:
kbale.kolder.style.visibility="hidden"
kbale.kolder.filters(0).Play(11.000)
kbale.polder.filters(0).Apply()
kbale.polder.style.visibility="hidden"
kbale.polder.filters(0).Play(11.000)
iv=iv+1
iii=iii+1
ii=ii+1
i=i+1
if iii=num then iii=0
if i=num then i=0
if iv=Ubound(nm) then iv=0
if ii=Ubound(nr) then ii=0
tha1=SetTimeOut("show",12000)
End Sub

'*sub to hide the popup -------------------------------------------------------*
sub nailout()
ClearTimeOut(tha1):
tha1=SetTimeOut("stopit",1000):
end sub
sub stopit()
popup.hide
end sub
Sub Window_Onresize()                  
		window.location.reload() 
End Sub
</SCRIPT>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -