变换显示数据库图片(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>