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

[ 本帖最后由 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
%>

<%
    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  j
   j=1            
   do   while  not   rs6.eof
   response.write rs6("sj_name")&"  "
    if   (j  mod   3)=0   then   
      response.write   " <br/> "
      j=j+1
  end   if
  rs6.movenext
 loop
%>
这样试试。其他部分不变。

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

if   i=3  then   
      response.write   " <br/> "
      i=0
  end   if

num=0
do while not rs.eof
    num=num+1
    response.write rs("sj_name")
    if num=3
    response.write "<br>"
    else
    response.write "    "
    end if
rs.movenext
loop