多張圖片變幻
<script language="JavaScript">
var elady_step=3; //1:small, 3:middle, 5:big
var elady_speed=50; //20:fast, 50:middle, 80:slow
var e_tp=new Array();
var e_tplink=new Array();
var adNum_elady1=0;
var elady_stop_sh=0;
var elady_star_sh=1;
function elady1_moveImg(){
if ((!document.all&&!document.getElementById)||(elady_stop_sh==0)) return;
if (elady_star_sh==1){
document.all.elady1_divimg.style.pixelTop=parseInt(document.all.elady1_divimg.style.pixelTop)+elady_step;}
else if (elady_star_sh==2){
document.all.elady1_divimg.style.pixelLeft=parseInt(document.all.elady1_divimg.style.pixelLeft)+elady_step;}
else if (elady_star_sh==3){
document.all.elady1_divimg.style.pixelTop=parseInt(document.all.elady1_divimg.style.pixelTop)-elady_step;}
else{
document.all.elady1_divimg.style.pixelLeft=parseInt(document.all.elady1_divimg.style.pixelLeft)-elady_step;}
if (elady_star_sh<4) elady_star_sh++;
else elady_star_sh=1;
setTimeout("elady1_moveImg()",elady_speed);}
e_tplink[0]="
var currentimage=new Array(); 背景圖片隨機提取 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <body> 左右推動圖片 <TABLE cellSpacing=0 cellPadding=0 width="58%" //Presentational Slideshow Script- By Dynamic Drive var slideshow_width='124px' //SET SLIDESHOW WIDTH (set to largest image's width if multiple dimensions exist) var dropimages=new Array() var droplinks=new Array() var preloadedimages=new Array() var ie4=document.all if (ie4||dom) var curpos=parseInt(slideshow_width)*(-1) clearInterval(dropslide) function rotateimage(){ function rotatelink(){ function resetit(what){ function startit(){ if (ie4||dom) </SCRIPT> 表格變色 <script language="JavaScript" type="text/JavaScript"> <body onLoad="pviiW3Cbg(this, '#00CC99')"> 圖片左右動 <MARQUEE onmouseover=this.stop() onmouseout=this.start()
for (i=0;i<=3;i++){currentimage[i]=new Image();
currentimage[i].src=e_tp[i];
}
function elady1_set(){ if (document.all)
{ e_tprotator.filters.revealTrans.Transition=Math.floor(Math.random()*23);
e_tprotator.filters.revealTrans.apply(); }
}
function elady1_playCo()
{ if (document.all) e_tprotator.filters.revealTrans.play()
}function elady1_nextAd(){ if(adNum_elady1<e_tp.length-1)adNum_elady1++ ;
else adNum_elady1=0;
elady1_set();
document.images.e_tprotator.src=e_tp[adNum_elady1];
elady1_playCo();
theTimer=setTimeout("elady1_nextAd()", 4000);}
function elady1_linkurl(){ jumpUrl=e_tplink[adNum_elady1];
jumpTarget='_blank';
if (jumpUrl != ''){ if (jumpTarget != '')window.open(jumpUrl,jumpTarget);
else location.href=jumpUrl;
}}
function elady1_listMsg()
{ status=e_tplink[adNum_elady1];
document.returnValue = true;}
document.write("<div id='elady1_divimg' style='position:relative'>");
document.write('<a onMouseOver="elady1_listMsg();return document.returnValue" href="javascript:elady1_linkurl()" target="_self">');
document.write('<img style="FILTER: revealTrans(duration=2,transition=20)" src="javascript:elady1_nextAd()" border=0 width=552 height=65 name=e_tprotator onMouseover="elady_stop_sh=1" onMouseout="elady_stop_sh=0" ></a>');
document.write("</div>");
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
<SCRIPT language=JavaScript src="index.js.file/index.js"></SCRIPT>
<% Const IMGS_DIR = "images/"
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing
%>
</head>
<table width="372" height="157" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td><img src="<%= strImageSrcText %>" width="345" height="82" border=0></td>
</tr>
</table>
border=0>
<TBODY>
<TR>
<TD width=50 height=146> </TD>
<TD width=346>
<SCRIPT language=JavaScript1.2>
//For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
//This credit MUST stay intact for legal use
var slideshow_height='145px' //SET SLIDESHOW HEIGHT (set to largest image's height if multiple dimensions exist)
var pause=3000 //SET PAUSE BETWEEN SLIDE (2000=2 seconds)
var slidebgcolor="white"
//SET IMAGE PATHS. Extend or contract array as needed
dropimages[0]="images/01.jpg"
dropimages[1]="images/02.jpg"
dropimages[2]="images/03.jpg"
//SET IMAGE URLs. Use "" if you wish particular image to NOT be linked:
droplinks[0]=""
droplinks[1]=""
droplinks[2]=""
////NO need to edit beyond here/////////////
for (p=0;p<dropimages.length;p++){
preloadedimages[p]=new Image()
preloadedimages[p].src="/dropimages[p]"
}
var dom=document.getElementById
document.write('<div style="position:relative;width:'+slideshow_width+';height:'+slideshow_height+';overflow:hidden"><div id="canvas0" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div><div id="canvas1" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div></div>')
else
document.write('<a href="javascript:rotatelink()"><img name="defaultslide" src="'+dropimages[0]+'" border=0></a>')
var degree=10
var curcanvas="canvas0"
var curimageindex=linkindex=0
var nextimageindex=1
function movepic(){
if (curpos<0){
curpos=Math.min(curpos+degree,0)
tempobj.style.left=curpos+"px"
}
else{
nextcanvas=(curcanvas=="canvas0")? "canvas0" : "canvas1"
tempobj=ie4? eval("document.all."+nextcanvas) : document.getElementById(nextcanvas)
var slideimage='<img src="'+dropimages[curimageindex]+'" border=0>'
tempobj.innerHTML=(droplinks[curimageindex]!="")? '<a href="'+droplinks[curimageindex]+'">'+slideimage+'</a>' : slideimage
nextimageindex=(nextimageindex<dropimages.length-1)? nextimageindex+1 : 0
setTimeout("rotateimage()",pause)
}
}
if (ie4||dom){
resetit(curcanvas)
var crossobj=tempobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)
crossobj.style.zIndex++
var temp='setInterval("movepic()",50)'
dropslide=eval(temp)
curcanvas=(curcanvas=="canvas0")? "canvas1" : "canvas0"
}
else
document.images.defaultslide.src="/dropimages[curimageindex]"
linkindex=curimageindex
curimageindex=(curimageindex<dropimages.length-1)? curimageindex+1 : 0
}
if (droplinks[linkindex]!="")
window.location=droplinks[linkindex]
}
curpos=parseInt(slideshow_width)*(-1)
var crossobj=ie4? eval("document.all."+what) : document.getElementById(what)
crossobj.style.left=curpos+"px"
}
var crossobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)
crossobj.innerHTML='<a href="'+droplinks[curimageindex]+'"><img src="'+dropimages[curimageindex]+'" border=0></a>'
rotateimage()
}
window.onload=startit
else
setInterval("rotateimage()",pause)
</TD>
</TR>
</TBODY>
</TABLE>
<!--
function pviiW3Cbg(obj, pviiColor) { //v1.1 by Project VII
obj.style.backgroundColor=pviiColor
}
//-->
</script>
<table width="335" height="66" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td onMouseOver="pviiW3Cbg(this, '#0000FF')" onMouseOut="pviiW3Cbg(this, '#FFFFFF')">wq </td>
</tr>
</table>
</body>
scrollAmount=5 behavior=alternate width=514 height=70>
<TABLE cellSpacing=2 cellPadding=0 width=386 border=0>
<TBODY>
<TR>
<TD vAlign=top width=190 height=172><A
href=" <TD vAlign=top width=190 height=172><A
href=" </TR>
</TBODY>
</TABLE>
</MARQUEE>
您發布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權益;
二、不得發布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發布內容擁有處置權。
蘇公網安備 32070502010230號