变换显示数据库图片(1/3)

<!--#include file="inc/conn.asp"-->
<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 5 * from product order by updatetime desc"
rs.open sql,conn,1,1%>
<DIV id=oTransContainer
style="FILTER: progid:DXImageTransform.Microsoft.Wipe(GradientSize=1.0, wipeStyle=0, motion='forward'); WIDTH: 154px; HEIGHT: 213px">
<%
i=0
Do While Not rs.eof
i=i+1
%>
<%id1="oDIV"&i'大小写敏感%>
<a href=""><img id=<%=id1%> style="DISPLAY: none" height=250 src="<%=rs("bookpic")%>" width=451
border=0 alt="<%=rs("product_id")%>"></a>
<%rs.movenext
loop%></DIV>
<SCRIPT>
var NowFrame = 1; //当前开始的图象
var MaxFrame = 5; //最多允许得图象
var bStart = 0;

function fnToggle() {
var next = NowFrame + 1;

if(next == MaxFrame+1)
{
NowFrame = MaxFrame;
next = 1;
}

if(bStart == 0)
{
bStart = 1;

setTimeout('fnToggle()', 1000);

return;
}
else
{
oTransContainer.filters[0].Apply();
document.images['oDIV'+NowFrame].style.display = "none";
document.images['oDIV'+next].style.display ="";

oTransContainer.filters[0].Play(duration=2);

if(NowFrame == MaxFrame)
NowFrame = 1;
else
NowFrame++;
} setTimeout('fnToggle()', 5000); //每个图象显示时间
}

fnToggle();
</SCRIPT>