asp 动态切换图片的问题(急急急!!!待会就结帖)
lubii 2005-09-29 03:38:51 从数据库中选出5张图片根据一定的时间变换,但是每次都是显示同一张图片,请大虾帮帮忙!!!
代码如下:
<% set rs=server.createobject("adodb.recordset")
sql="select top 5 "
sql=sql & " ArticleID,ClassID,Title,Key,Author,CopyFrom,UpdateTime,Editor,TitleFontColor,TitleFontType,"
sql=sql & " Hits,OnTop,Hot,Elite,Passed,IncludePic,Stars,PaginationType,ReadLevel,ReadPoint,DefaultPicUrl from Article "
sql=sql & " where DefaultPicUrl<>''"
rs.open sql,conn ,1,1
dim j,i
j=5
if j>rs.recordcount then
j=rs.recordcount
end if
'bannerAD[i]
'bannerADlink[i]
'if rs.bof and rs.eof then
'else
'do while not rs.eof
'bannerAD[i]=rs("DefaultPicUrl")
'bannerADlink[i]=rs("DefaultPicUrl")
'rs.movenext
'loop
' rs.close
%>
<script language=JavaScript>
<!--
var adNum=0;
var bannerAD=new Array()
var bannerADlink=new Array()
for (i=1;i<<%=j%>;i++){
bannerAD[i]="<%=rs("DefaultPicUrl") %>"
bannerADlink[i]='newsdetail.asp?ArticleID='+"<%=rs("ArticleID") %>"
}
var preloadedimages=new Array();
for (i=1;i<<%=j%>;i++){
preloadedimages[i]=new Image();
preloadedimages[i].src=bannerAD[i];
}
function setTransition(){
if (document.all){
bannerADrotator.filters.revealTrans.Transition=Math.floor(Math.random()*23);
bannerADrotator.filters.revealTrans.apply();
}
}
function playTransition(){
if (document.all)
bannerADrotator.filters.revealTrans.play()
}
function nextAd(){
if(adNum<bannerAD.length-1)adNum++ ;
else adNum=0;
setTransition();
document.images.bannerADrotator.src=bannerAD[adNum];
playTransition();
theTimer=setTimeout("nextAd()", 600);
}
function jump2url(){
jumpUrl=bannerADlink[adNum];
jumpTarget='_blank';
if (jumpUrl != ''){
if (jumpTarget != '')window.open(jumpUrl,jumpTarget);
else location.href=jumpUrl;
}
}
function displayStatusMsg() {
status=bannerADlink[adNum];
document.returnValue = true;
}
//-->
</script>