廣告輪換代碼

<%
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
%>