广告轮换代码

来源：互联网发布：一级永久域名注册编辑：程序博客网时间：2024/04/28 19:19

<%
sqlad="select top 5 * from ad where bigclassName='顶部广告' order by id desc"
Set rsad= Server.CreateObject("ADODB.Recordset")
rsad.open sqlad,conn,1,1
%>

<SCRIPT LANGUAGE="JavaScript">
var   showtime=4000
var   url=new   Array()
var   art=new   Array()
var   banner=new   Array()

          <%

        n = 0
        do while not rsad.eof
  %>

      url[<%=n%>]="<%=rsad("content")%>"       //连接地址
banner[<%=n%>]="<%=rsad("DefaultPicUrl")%>"
    <%
        n= n + 1
        rsad.movenext
        loop
        rsad.close
        %>
//尽管填加更多的。
//////以下不要修改////////////////
   i=0
function   autoshow()
{
adshow.innerHTML='<a   href='+url[i]+'   target=_blank><img   src=../'+banner[i]+'   width=950   height=130   border=0></a>'
if   (i==url.length-1)
i=0
else
i++
var   timer=setTimeout("autoshow()",showtime)
}
document.write   ('<div   id=adshow   name=adshow></div>')
autoshow();
//-->
</script>
<%
rsad.close
set rsad=nothing
%>