<% dim rs,sqltext set rs = Server.CreateObject(“adodb.recordset”) sqltext=”select * from [bigclass]” rs.Open sqltext,conn,1,1 m=1 colzs=5 ‘一行显示5列 if rs.RecordCount mod colzs=0 then rowzs=int(rs.RecordCount/colzs) else rowzs=int(rs.RecordCount/colzs)+1 end if for j = 1 to rowzs%>