[em6]
做了一个产品的大小标题显示,但是在小类产品横排显示时,最后一个类型总是要多出一个,如下图示,请高手指点:

产品大类一

小类图片1   小类图片2    小类图片3    小类图片4
小类链接1   小类链接2    小类链接3    小类链接4

小类图片5   小类图片5                                   
小类链接5   小类链接5 (图片5和链接5为第5小类的多余重复)

产品大类二 (以此类推)


ASP代码如下:

sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then 
  response.Write " 没有任何栏目"
else
  dim sqlClass,rsClass,strClassName,i
  rsBigClass.movefirst
  do while not rsBigClass.eof
   
   StrClassName= ""
   StrClassName=StrClassName & "<table width=99% border=1 cellpadding=0 cellspacing=0>"
            StrClassName=StrClassName & "<tr>"
   StrClassName=StrClassName & "<TD>" 
   StrClassName=StrClassName & "【<a href='Bs_Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a>】"
            StrClassName=StrClassName & "</TD>"
            StrClassName=StrClassName & "</tr>"
            StrClassName=StrClassName & "</table>"
            Response.Write StrClassName
   
   
   sqlClass="select * from Bs_PrSmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
            Set rsClass= Server.CreateObject("ADODB.Recordset")
   rsClass.open sqlClass,conn,1,1
            Response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0><TR><TR><TD></TD></TR>"
        
            i=1
         Response.Write "<align=""left"">"
         Do While Not rsClass.EOF
   StrClassName= ""
   StrClassName=StrClassName & "<TD>"
   StrClassName=StrClassName & "<table width=130 border=0 cellpadding=0 cellspacing=0>"
   StrClassName=StrClassName & "<TR><TD height=3></TD></TR>"
   StrClassName=StrClassName & "<tr>"
   StrClassName=StrClassName & "<td width='98%'><div align=center>"
   StrClassName=StrClassName & "<a href='Bs_Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>"
   StrClassName=StrClassName & "<img border=0 src='"& rsClass("SmallClassPic") &"' width=90 height=90 alt='"&rsClass("SmallClassName")&"'></a>"
   StrClassName=StrClassName & "</div></td>"
   StrClassName=StrClassName & "</tr>"
   StrClassName=StrClassName & "<TR><TD height=3></TD></TR>"
   StrClassName=StrClassName & "<tr>"
   StrClassName=StrClassName & "<td height=20 bgcolor=#EFFFDE><div align=center>"
   StrClassName=StrClassName & "<a href='Bs_Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>"
   StrClassName=StrClassName & "</div></td>"
   StrClassName=StrClassName & "</tr>"
   StrClassName=StrClassName & "<tr>"
   StrClassName=StrClassName & "<td height=3 bgcolor=#D5FBB6></td>"
   StrClassName=StrClassName & "</tr>"
   StrClassName=StrClassName & "</table></TD>"
   Response.Write StrClassName 
  if i mod 4 <>0 then
  end if
  if i mod 4 =0 then
  Response.Write "</tr>"
  end if
       i=i+1
  rsClass.MoveNext
  
              loop
   response.write StrClassName & "<tr>"
   rsBigClass.movenext
  loop
  rsClass.close
  set rsClass=nothing
end if
end sub

不知哪里出错了!请高手指点