急!!!asp分列问题 在线等

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:51:35
<%
FOR j=0 TO i %>
<td><a href='display.asp?HID=<%=rs("HID")%>&wz=<%=j%>'><img src="../pic/<%="small_" &trim(arr(j))%>"></a></td>
<%if i mod 4=0 then %>
<% Response.write "<tr>" %>
<%
end if
i=i+1
rs.movenext
next
%>
我这样分的列(数据库有5张图片) 为什么是上行显示一张 下行显示4张(不是要上行显示4张 下行显示1张的吗) 而且这样还丢失了ID 只有第一张能取到HID 其他都不能了...

还有个问题就是 假如我只要一行显示4张图 其他的不要了.. 要怎么弄?
<%IF NOT rs.eof THEN
result = Left(rs("wzimg"),len(rs("wzimg"))-1)
arr =str_replace(result)
i = UBound(arr)
%>
<tr>
<%
h=1
FOR j=0 TO i %>
<td><a href='display.asp?HID=<%=rs("HID")%>&wz=<%=j%>'><img src="../pic/<%="small_" &trim(arr(j))%>"></a></td>

<%
Dim j,i,m
j=0
i=1
do while not rs.eof %>
<td><a href='display.asp?HID=<%=rs("HID")%>&wz=<%=j%>'><img src="../pic/<%="small_" &trim(arr(j))%>"></a></td>
<%if i mod 4=0 then %>
<% Response.write "<tr>" %>
<%
end if
i=i+1
j=j+1
rs.movenext
Loop
%>

你这个i没有初始值呀。j第一次循环几次呢？
我做的列循环，控制参数实现列和行数
<table border="0" cellspacing="1" width="904" id="table1" bgcolor="#800000">
<%for i=1 to 5%>
<tr>
<%
n=0
do while not rs.eof
n=n+1
if n>4 then exit do
%>
<td height="254">
<!-- 循环内容 -->
</td>
<%
rs.movenext
loop
%>
</tr>
<%next%>
</t