复制代码 代码如下:

<%

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">

<>

</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>