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>
...全文
114 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ybfqlyq 2005-09-29
  • 打赏
  • 举报
回复
還可以這樣用的呀。。。。腳本那怎麼調用了ASP裡的變量啦??應該是在腳本裡定義吧。
zwrtv 2005-09-29
  • 打赏
  • 举报
回复
UP

28,404

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧