<!--#include file="conn.asp"-->
<%
Dim vertigo1,vertigo2
set vertigo2=server.CreateObject("adodb.recordset")
vertigo1="select top 6 * from [good_info] where check='yes' order by id desc"
vertigo2.open vertigo1,conn,1,1
IF not vertigo2.eof and not vertigo2.bof then
ist=0
do while not vertigo2.eof
%>
document.write("<td width='200' align='center' ><a href='good_info.asp?id=<%=vertigo2("id")%>' target=_blank><img src='<%=vertigo2("pic")%>' width=50 height=50 border=0 style='border: 1px solid #000000'><br><%=left((vertigo2("id")),6)%></a></td>")
<%
ist=ist+1
if ist>0 and ist mod%3=0 then
response.write("</tr>")
end if
vertigo2.movenext
loop
end if
conn.Close
Set conn=Nothing
%>
这是我学着写的程序，请问各位大哥我哪里不对了？

这个我也急知道!

如果你是用DW做的话，网上可以找到一个横向重复的插件，应用就可以了！

谢谢

再问一下,在这基础上如何实行分页?

将分页的程序加大重复区域两头就可以了!