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

很久没有发技术性的了,今天发一个.以后会多发一些的.

<SCRIPT language=vbscript id=clientEventHandlersVBS>
<!--
Dim mySt(4)
mySt(0)=mySt(1)=mySt(2)=mySt(3)=mySt(4)=0

Sub myd1_onmouseover
myd1.style.color="white"
CALL changeimg(0)
End Sub

Sub myd2_onmouseover
myd2.style.color="white"
CALL changeimg(1)
End Sub

Sub myd3_onmouseover
myd3.style.color="white"
CALL changeimg(2)
End Sub

Sub myd4_onmouseover
myd4.style.color="white"
CALL changeimg(3)
End Sub

Sub myd5_onmouseover
myd5.style.color="white"
CALL changeimg(4)
End Sub
-->
</SCRIPT>
<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 5 * from product where elite=true order by updatetime desc"
rs.open sql,conn,1,1%>

<SCRIPT language=javascript>
<!--
var cpAD=new Array();
var cpADlink=new Array();
var adNum=5;
var coll=0;

//bookpic/20068723591570655.jpg

//
<%i=-1'因为要从0计数
do while not rs.eof
i=i+1
%>
cpAD[<%=i%>]="<%=rs("bookpic")%>";//图片路径
cpADlink[<%=i%>]="productshow.asp?articleid=<%=rs("articleid")%>";//链接地址
<%

rs.movenext
loop
rs.close
set rs=nothing%>

var preloadedimages=new Array();
for (i=1;i<cpAD.length;i++){
preloadedimages[i]=new Image();
preloadedimages[i].src=cpAD[i];
}

function nextAd(){
coll++;

if(adNum<cpAD.length-1)
{
adNum++ ;
}
else
{
adNum=0;
}
setAllcolor();
if(adNum==0)
myd1.background="http://www.huachu.com.cn/images/a+.gif";//当前的文字层背景
if(adNum==1)
myd2.background="http://www.huachu.com.cn/images/a+.gif";
if(adNum==2)
myd3.background="http://www.huachu.com.cn/images/a+.gif";
if(adNum==3)
myd4.background="http://www.huachu.com.cn/images/a+.gif";
if(adNum==4)
myd5.background="http://www.huachu.com.cn/images/a+.gif";

setTransition();
document.images.cpADrush.src=cpAD[adNum];
playTransition();
theTimer=setTimeout("nextAd()", 8000); //每个图象显示时间
}

function setAllcolor()
{
  myd1.background="http://www.huachu.com.cn/images/a.gif";//非当前的文字所在背景
  myd2.background="http://www.huachu.com.cn/images/a.gif";
  myd3.background="http://www.huachu.com.cn/images/a.gif";
  myd4.background="http://www.huachu.com.cn/images/a.gif";
  myd5.background="http://www.huachu.com.cn/images/a.gif";
}

function setTransition(){
if (document.all){
cpADrush.filters.revealTrans.Transition=23;
cpADrush.filters.revealTrans.apply();
}

}
function playTransition(){
if (document.all)
cpADrush.filters.revealTrans.play()
}

//-->
</SCRIPT>
            <TABLE height=150 cellSpacing=0 cellPadding=0 border=0>
              <TBODY>
              <TR>
                <TD>
    <A href="javascript:jump2url()"><IMG
                  style="FILTER: revealTrans(duration=2,transition=23)"
                  height=150
                  src=""
                  width=550 border=0 name=cpADrush></A></TD></TR>
              <TR>
                <TD height=1></TD></TR>
              <TR>
                <TD>
                  <TABLE id=T1 height=22 cellSpacing=0 cellPadding=0 width=550
                  bgColor=#ffffff border=0 name="T1">
                    <TBODY>
                    <TR bgColor=#ce0408>
                      <TD bgColor=#291018> </TD>
                      <TD width=1 bgColor=#ffffff></TD>
<%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open sql,conn,1,1%>
<%
j=0
Do While Not rs2.eof
j=j+1
myid="myd"&j%>
                      <TD id=<%=myid%>
                      style="FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: "
                      onclick=changeimg(0) width="16%"
                      background="808/a.gif"
                      height=10 name="<%=myid%>"><DIV align=center><%=rs2("product_id")%></DIV></TD>
                      <TD width=1 bgColor=#ffffff></TD>
<%rs2.movenext
Loop
rs2.close%>
                      <TD bgColor=#291018> </TD></TR></TBODY></TABLE>
                  <SCRIPT language=JavaScript>nextAd()</SCRIPT>
                </TD></TR></TBODY></TABLE>