大虾们看看代码我想实现的效果是每行显示三个值 但是远行后是这样的 第一个行是两个其他的都对 我知道这个问题是不是很难但我就实现不了帮帮嘛

[ 本帖最后由 kevinxu0638 于 2010-11-22 17:36 编辑 ]

怎么回事代码贴了怎么不显示

<%
      Dim db6,rs6,strSql6
    Set db6=Server.CreateObject("ADODB.Connection")
    db6.Open "Dsn=background"                           
    Set rs6=Server.CreateObject("ADODB.Recordset")
    strsql6="select  *  from lh  "
    rs6.Open strSql6,db6,1
dim   i,j
i=1      
j=1        
do   while   (not   rs6.eof)   and  j <=3
  if   (i   mod   3)=0   then   
      response.write   " <br> "
      j=j+1
  end   if %>
 <%=rs6("sj_name")%>&nbsp; <%
rs6.movenext
i=i+1
loop
%>

不行 结果在一行显示了 今天用其他的方法试了可以了