网站中图片=类似sports.sina.com.cn中的flash动画效果代码……

<%@ codepage ="936" %>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/classcount.asp"-->
<!--#include file="inc/safe.asp"-->

<script  language="javascript" type="text/javascript">
<!--
var bannerAD=new Array();
var bannerADlink=new Array();
var adNum=0;

<%
sql="select top 5 * from news where picture<>'nopicture.gif'and homehot=1 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write" 暂无图片资讯"
else
dim i1
i1=0
do while not rs.eof
response.write"bannerADlink["&i1&"]=""/info/detail/"&rs("typeid")&"-"&rs("newsid")&".html"";"&vbCrlf
response.write"bannerAD["&i1&"]=""/UploadFile/"&rs("picture")&""";"&vbCrlf
rs.movenext
i1=i1+1
loop
end if
%>


var preloadedimages=new Array();
for (i1=1;i1<6;i1++){
preloadedimages[i1]=new Image();
  preloadedimages[i1].src=bannerAD[i1];
}

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()", 6000);
}

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>
=div align="center">
=table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
  =tr>
    =td width="200" height="69" valign="middle" style="BORDER-RIGHT: #2D72D2 1px solid;BORDER-top: #2D72D2 1px solid; BORDER-LEFT: #2D72D2 1px solid; BORDER-BOTTOM: #2D72D2 1px solid">
    =a onMouseOver="displayStatusMsg();return document.returnValue" href="javascript:jump2url()">
=img class="black-border" style="FILTER: revealTrans(duration=2,transition=20)" height="180" src="javascript:nextAd()" width="200" border="0" name="bannerADrotator" alt="图片新闻" /></a>
    =/td>
    =/tr>
=/table>
=/div>

最后表格中的=号全部换回<符号…… 代码需认真的看……