<table border="1" cellpadding="3" cellspacing="0" width="95%">
<tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=sqloledb;server=127.0.0.1;user id=sa;password=sa;database=baidu"
sql="select top 12 * from email"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
i=0
do while not rs.eof
i=i+1
%>
<td><%=i%></td>
<%
if i mod 5 = 0 then response.Write"</tr><tr>"&vbcrlf
rs.movenext
loop
for k=1 to 5-(i mod 5)
response.Write"<td> </td>"&vbcrlf
if k=5-(i mod 5) then response.Write"</tr>"&vbcrlf
next
end if
rs.close
set rs=nothing
%>
</table>
5 是表格显示的列数,可以改成自己所需要的.