下面是我写的一个
======================================
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from N_Class"
rs.open sql,conn,1,1
NN="<tr>"
BB="</tr>"
x=1
while not rs.eof
DD="<td>"
Ntitle=Ntitle+rs("C_Name")
CC="</td>"
if x mod 3=0 then
EE=DD&Ntitle&CC
XX=XX+NN&EE&BB
EE=""
Ntitle=""
x=3
end if
x=x+1
rs.movenext
wend
Content="<table>"&XX&"</table>"
===========================================
此法在小程序中是起作用的,但到了程序复杂的地方就不生效了,
当mod 3= 0
以后,它就在也不执行了,
希望有高手能赐教,在下感激不尽!