滚动图片加载不了？？？？？
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>
<td width="185"><%call userlogin()%></td>
<td width="*" valign="top" background="img/txtLine1.gif" class="table-left"><div style="padding-top:8px;padding-bottom:8px;"><%call index_news()%></div></td>
<td width="165" align="center" height="150"><SCRIPT language=javascript>
var bannerAD=new Array();
var bannerADlink=new Array();
var bannerADtitle=new Array();
var adNum=0;
<%call index_newpic()%>
var preloadedimages=new Array();
for (i=1;i<bannerAD.length;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(); title.innerHTML='<A href=' +bannerADlink[adNum] + '>' + bannerADtitle[adNum] +'</a>'; theTimer=setTimeout('nextAd()', 5000);}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><TABLE cellSpacing='0' cellPadding='0' width='160' border='0'>
<TR><TD><table width=50 border=0 cellpadding=0 cellspacing=1 bgcolor=#d7d7d7><tr><td bgcolor=#ffffff><table width=50 border=0 cellspacing=2 cellpadding=0><tr><td><A onMouseOver="displayStatusMsg();return document.returnValue" href="javascript:jump2url()"><IMG style="FILTER: revealTrans(duration=2,transition=20)" width='150' height='112' border=0 src="img/xwtp.gif" name=bannerADrotator></A></td></tr></table></td></tr></table></td></tr><TR><TD id='title' colspan='2' align='center'></TD></TR></TABLE><SCRIPT language=javascript>title.innerHTML="<A href=" +bannerADlink[0] + ">" + bannerADtitle[0] +"</a>";setTimeout("nextAd()", 3000);//nextAd()</SCRIPT>
sub index_newpic()
'============================================================滚动新闻图片1
i=0
set rs=conn.execute("SELECT top 4 * FROM news where isimg=1 and images<>'' ORDER BY news_date DESC")
if not Rs.eof then
do while not rs.eof
i=i+1
Response.Write "imgUrl["&i&"]="""&rs("images")&""";" & vbCrLf
Response.Write "imgLink["&i&"]=""shownews.asp?news_id="&rs("news_id")&""";" & vbCrLf
rs.movenext
loop
else
response.write "目前尚无图片新闻！"
end if
rs.close
end sub
数据库的图片读不出来哦。。。数据库没问题。。
[此贴子已经被作者于2007-5-31 15:22:51编辑过]
