%
sql="select * from serr where order by id asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>style type="text/css">
!--
body,td,th {
font-size: 12px;
}
-->
/style>
table width=""100%"" align='center'>
%
for i=1 to rs.recordCount '變量i從1循環到數據庫中的全部記錄數
if (i mod 4 =1) then '每個tr顯示4個記錄,可根據需要自行修改
response.write "tr>"
end if
response.write "td width=200>"rs("title")"br>"rs("con")"br>"rs("www")"br>"rs("keyword")"/td>"
if (i mod 4 = 0) then
response.write "/tr>"
end if
rs.movenext
next
rs.close
%>
/table>