请教一个幻灯片效果播放图片的问题

binngo 2004-06-29 04:38:47

各位高手，小弟下了一个幻灯片效果播放图片的脚本，不知道怎么将数据库里的图片读出，放置到该效果中？

程序如下：

<HTML>
<HEAD>
<TITLE>夜雨休闲 - 幻灯片播放</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK HREF="Images/Style.css" REL="stylesheet">
</HEAD>

<SCRIPT language="VBScript">

'***************************************************
' 模拟幻灯片播放脚本程序
' 夜雨休闲 By 2003-11
'***************************************************

Dim FileList,FileListArr
FileList = "001.jpg,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg,009.jpg,010.jpg"
FileListArr = Split(FileList,",")

Dim CanPlay
CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5

Dim FilterStr
FilterStr = "RevealTrans(duration=2,transition=23)"
FilterStr = FilterStr + ";BlendTrans(duration=2)"

If CanPlay Then
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2,gradientSize=0.25,motion=forward )"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(duration=2)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duration=2,bands=1,slideStyle=SWAP)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK)"
Else
Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64
End If

Dim FilterArr
FilterArr = Split(FilterStr,";")

Dim PlayImg_M
PlayImg_M = 5 * 500 //切换时间（毫秒）

Dim I
I = 1

Sub ChangeImg
Do While FileListArr(I)=""
I = I + 1
If I>UBound(FileListArr) Then I = 0
Loop
Dim J
If I>UBound(FileListArr) Then I = 0
Randomize
J = Int(Rnd * (UBound(FilterArr)+1))
Img.style.filter = FilterArr(J)
Img.filters(0).Apply
Img.Src = FileListArr(I)
Img.filters(0).play
I = I + 1
If I>UBound(FileListArr) Then I = 0
TempImg.Src = FileListArr(I)

SetTimeout "ChangeImg",PlayImg_M
End Sub
</SCRIPT>

<BODY BGCOLOR="#000000">
<TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR ID="NoScript">
<TD Align="Center" Style="Color:White">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</TD>
</TR>
<TR Style="Display:none" ID="CanRunScript">
<TD HEIGHT="100%" Align="Center" vAlign="Center">
<Img ID="Img" Border="0" >
</TD>
</TR>
<TR Style="Display:none">
<TD><Img ID="TempImg" Border="0"></TD>
</TR>

</TABLE>

<Script Language="VBScript">
NoScript.Style.Display = "none"
CanRunScript.Style.Display = ""
Img.Src = FileListArr(0)
SetTimeout "ChangeImg", PlayImg_M
</Script>

...全文

176 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

sn12345678 2004-06-30

打赏
举报

img_size = rs_img("img_data").ActualSize
Response.BinaryWrite rs_img("img_data").getChunk(img_size)
从数据库里读取图片并显示

binngo 2004-06-30

打赏
举报

如果这也是一个幻灯片效果播放图片的程序，请教大侠怎样将将ACCESS数据库中的图片字段读出赋值给ImgUrl[]？

binngo 2004-06-30

打赏
举报

大侠，您这个程序什么意思啊，请稍作解释，谢谢！！

gjd111686 2004-06-30

打赏
举报

<body onload="NextImg()">
<script>
var ImgUrl=new Array();
var ImgLink=new Array();
var iCount=0;
ImgUrl[1]="参加补给训练的海军167驱逐舰.jpg";
ImgLink[1]="#";
ImgUrl[2]="中国的航母.jpg";
ImgLink[2]="#";
ImgUrl[3]="中国自行火炮系列.jpg";
ImgLink[3]="#";
ImgUrl[4]="中国人民警察警种分辨99式警服的警监警衔.jpg";
ImgLink[4]="#";
ImgUrl[5]="中国人民警察警种分辨99式警服的专业胸徽.jpg";
ImgLink[5]="#";

var ImgPre=new Array();
var kCount=0;
for(iIndex=1;iIndex<=5;iIndex++)
{
if((ImgUrl[iIndex]!="")&&(ImgLink[iIndex]!=""))
{
kCount++;
}
else
{
break;
}
}
function PlayTran()
{
if(document.all)
ImgInit.filters.revealTrans.play();
}

var iKey=0;
function NextImg()
{
if(iCount<kCount)iCount++;
else iCount=1;

if(iKey==0)
{
iKey=1;
}
else if(document.all)
{
ImgInit.filters.revealTrans.Transition=6;
ImgInit.filters.revealTrans.apply();
PlayTran();

}
document.images.ImgInit.src=ImgUrl[iCount];
TheTimer=setTimeout("NextImg()",3000);
}

function GoUrl()
{
JumpUrl=ImgLink[iCount];
JumpTarget='_blank';
if(JumpUrl!='')
{
if(JumpTarget!='')
window.open(JumpUrl,JumpTarget);
else
location.href=JumpUrl;
}
}
</script>
<a href="javascript:GoUrl()"><img style="border-left-color:black;filter:revealTrans(duration=2,transition=20);border-bottom-color:black;color:#000000;border-top-color:black;border-right-color:black;" height=400 width=500 src="歼10.jpg" border=1 name=ImgInit></a>

binngo 2004-06-30