response.write "<table>"
dim count '总记录数
dim rownum '行数
dim lastrow '最后一行有内容td数目
count=rs.recordcount
lastrow=count mod 5
rownum=(count-lastrow)/5+1
dim i '循环变量
dim j '循环变量
for i=1 to rownum
for j=1 to 5
response.write "<tr>"
if not rs.eof then
response.write "<td>" & rs内容 & "</td>"
else
response.write "<td><br/></td>"
end if
response.write "</tr>"
next
next
response.write "</table>"