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

<%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>