弄了一段代码 可是他不是连续滚动 我想实现图片连续滚动 请各位高手帮忙给看看 怎么弄啊 谢谢


<div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
        <tr>
            <td></td>
        </tr>
    </table>
</div>

<div align="center">
    <center><MARQUEE scrollAmount=1 scrollDelay=1 direction=left width=550 height=120>
<DIV align=center><table border="0" cellpadding="0" cellspacing="0" width="98%" height="120">
<%
    set RsPic=server.createobject("adodb.recordset")
    sql="select top 10 * from News where Ispic=1 ORDER BY id DESC"
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    Call NoPic("<tr><td>暂无图文新闻</td></tr>")
    end if
    
    dim col
    dim ci
    col=10
    ci=1
    do while not RsPic.eof
        If ci = 1 Then
            response.Write("<tr>")
        End If
        response.Write("<td width='" & Fix(100 / col) & "%'  valign='top' > ")
        Call Gaobei_NewsShowPic(RsPic("Pic"),RsPic(0),RsPic("Title"),130,100,18)
         response.Write("</td>")
        If ci = col Then
            response.Write("</tr>")
            ci = 1
        Else
            ci =ci + 1
        End If
                    
    RsPic.movenext
    loop
   
    RsPic.CLOSE
    SET RsPic=Nothing
%>  
                    
                </table>
</DIV>
</MARQUEE></center>
</div>

<div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
        <tr>
            <td></td>
        </tr>
    </table>
</div>



<div align="center">

<%
   dim sqlsort,RsSort,hangpicnum
   sqlsort="select * from Sort where B_id=0 and setting < 4 and Indexshow=True order by S_order"
   Set RsSort=conn.execute (sqlsort)
   RsSort.Open sql,Conn,1,1
   Response.Write"<table border='0' cellspacing='0'>"
   if RsSort.eof and RsSort.bof then
   response.write "<div align=center>还没有任何栏目</div>"
   else
   response.write"<tr>"
   do while not rs.eof
   for hangpicnum=1 to 2
   if RsSort.eof then exit for
   Response.Write"<td>"
%>