高手帮我看看这段代码,怎样才可以实现图片无缝滚动

高手帮我看看这段代码,怎样才可以实现图片无缝滚动.下面的代码是有缝滚动的,请帮忙给改改,感谢




<table align=center bgcolor=#b0c6ea border=0 cellpadding=0 cellspacing=1
width="100%">
<tbody>
<tr>
<td background="01.16/body_di.jpg" height=150>
<script name="Javascript">
<!--
var Toggle =1;
function DWtop(chk)
{
Toggle = 0;
switch(chk) {
case 1:
pf.stop();
break;
case 2:
pf.stop();
break;
}
}

function DWstart(chk)
{
Toggle = 1;
switch(chk) {
case 1:
pf.start();
break;
case 2:
pf.start();
break;
}
}
-->
</script>
<marquee direction=left height=120 id=pf onMouseOut=DWstart(1)
onMouseOver=DWtop(1) scrollamount=2>
<table align=center border=0 cellpadding=0 cellspacing=3 width=760 height="96">
<tr>
<td align=middle bgcolor=#FFB74A height=31>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0 and picname is not null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and picname is not null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and picname is not null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and picname is not null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname is not null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then%>
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
<%
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<td align='center' width=160>
<table border=0 align=center cellpadding=0 cellspacing=0>
<tr height=100>
<td width="10">　</td>
<td align="center" width="140"> <a href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=rs3("title")%>">
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
<img width="140" height="96" src="uploadfile/<%=rs3("picname")%>" border=0>
<%end if%>
</a> </td>
<td width="10">　</td>
</tr>
<tr height=20>
<td width="10">　</td>
<td align=center width="140"> <a href='ReadNews.asp?NewsID=<%=rs3("NewsID")%>' target=_blank title='<%=rs3("title")%>'>
<%if len(rs3("title"))>10 then%>
<%=left(rs3("title"),10)%>...
<%else%>
<%=trim(rs3("title"))%>
<%end if%>
</a></td>
<td width="10">　</td>
</tr>
</table>
</td>
<%
rs3.MoveNext
wend
%>
</tr>
</table>
<%else
Response.Write "暂无"
end if
rs3.close
set rs3=nothing

%>
</td>
</tr>
<tbody></tbody>
</table>
</marquee></td>
</tr>
</tbody>
</table>