我想把数据库的东东掉成上面的效果,满四个单元格换行,并且把记录依次放进去,想了半天,没有思路,希望大家帮我一下...先谢谢了

用Mod函数来判断
Response.Write "<table>"
Dim i,tHTML,tCow
i=0
Do Until rs.EOF
   tCow=""
   IF i Mod=4 Then
      tHtml=tHtml&"<tr>"&tCow&"</tr>"
      tCow=""
   Else
      tCow="<td>"&rs("FieldName")&"</td>"
   End IF
   i++
   rs.MoveNext
Loop
Response.Write tHtml
Response.Write "</table>"

用mod 运算符来确定是否改换行了

谢谢各位的支持与帮助。我QQ:624352101

IF i Mod=4 Then

if i mod 4 = 0 then

的确是写错了应该是IF i Mod 4=0