经过大鸟哥的指导已做全面的修改，本人能力有限只能做到下面这步了：

ASP/VisualBasic代码
复制代码 代码如下:
<%
Constp=6'每页2条
setrs=server.createobject("adodb.recordset")
sql="Select*fromshoworderbyidDesc"
rs.Opensql,conn,1

i=0
dowhilenotrs.eof
%><tdalign="center"height="98">
<ahref="show.asp?id=<%=rs("id")%>">
<imgsrc="<%=rs("pic")%>"width="150"height="98"alt="<%=rs("name")%>"/></a>
</td>
<%
If(i+1)Mod3=0Then
Response.Write"</tr>"
Ifi<(p-1)ThenResponse.Write"<tr>"
EndIf
i=i+1
ifi>pthenexitdo
rs.movenext
Loop
IfiMod3<>0Then
Form=3-(iMod3)To1Step-1
response.write"<td></td>"
Next
response.write"</tr>"
EndIf
Ifi=3Then
response.write"<td></td><td></td><td></td></tr>"
Endif
rs.close
setrs=nothing
%>



之前的代码未更改

复制代码 代码如下:
<%
Constp=6'每页2条
setrs=server.createobject("adodb.recordset")
sql="Select*fromshoworderbyidDesc"
rs.Opensql,conn,1

i=1
dowhilenotrs.eof
%><tdalign="center"height="98">
<ahref="show.asp?id=<%=rs("id")%>">
<imgsrc="<%=rs("pic")%>"width="150"height="98"alt="<%=rs("name")%>"/></a>
</td>
<%
ifimod3=0then
Response.Write("</tr><tr>")
endif
i=i+1
ifi>pthenexitdo
rs.movenext
Loop
rs.close
setrs=nothing
%>