跑马灯不间断循环(网站首页)

跑马灯不间断循环(网站首页)

< TABLE  width ="96%"  border =0  align ="center"  cellPadding =0  cellSpacing =0 >
         < TBODY >
           < TR >
             < TD  >
                                 < div  id =demo  style ='overflow:hidden;height:135px;width:550px;' >

                 < TABLE  cellSpacing =0  cellPadding =0  border =0 >
                   < TBODY >
                     < TR >
                       < TD  id =demo1 >
                      
                       < TABLE  cellSpacing =0  cellPadding =0  border =0 >
                           < TBODY >
                             < TR >
                               <% ...
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from Product where Passed=True And Elite=True order by articleid desc"
rs_news.open sqltext4,conn,1,1
if rs_news.eof then
response.Write("没有新产品上架!")
end if
%>
                               <% ... i=0
do while not rs_news.eof %>
                               < TD  width =139 >< TABLE  cellSpacing =0  cellPadding =0  width =150 
                               align =center  border =0 >
                                   < TBODY >
                                     < TR >
                                       < TD >< div  align ="center" >< a  href =ArticleShow.asp?articleid=<% =rs_news("articleid")  % >  title=" <% = rs_news( " Title " ) %> "> < img  border =0  src ="<%=rs_news(" DefaultPicUrl")% > " width=72 height=96> </ a ></ div ></ TD >
                                     </ TR >
                                     < TR >
                                       < TD  height =23 >< DIV  align =center >< a  href ="ArticleShow.asp?ArticleID=<%=rs_news(" articleid")% > " title=" <% = rs_news( " Title " ) %> "> <% = cutstr(rs_news( " Title " ), 8 ) %> </ a >   </ DIV ></ TD >
                                     </ TR >
                                   </ TBODY >
                               </ TABLE ></ TD >
                               <% ...    rs_news.movenext
i=i+1
if i=8 then exit do
loop
rs_news.close  %>
                             </ TR >
                           </ TBODY >
                       </ TABLE >
                      
                       </ TD >
                       < TD  id =demo2 ></ TD >
                       
                     </ TR >
                   </ TBODY >
                 </ TABLE >
               </ div >
     
      < script > ...
   var speed=15
   demo2.innerHTML=demo1.innerHTML
   function Marquee()...{
   if(demo2.offsetWidth-demo.scrollLeft<=0)
   demo.scrollLeft-=demo1.offsetWidth
   else...{
   demo.scrollLeft++
   }
   }
   var MyMar=setInterval(Marquee,speed)
   demo.onmouseover=function() ...{clearInterval(MyMar)}
   demo.onmouseout=function() ...{MyMar=setInterval(Marquee,speed)}
</ script >
             </ TD >
           </ TR >
         </ TBODY >
       </ TABLE >