<%
set rs=server.createobject("adodb.recordset")
sql= "select top 14 * from link order by id asc"
rs.open sql,conn,1,1
if rs.recordcount>0 then
temp=1
for i=1 to rs.recordcount
IF temp=1 then
response.write ""
end if
response.write chr(10)+"| "
%>
<%
response.write " | "
if temp=7 then
response.write " "
temp=0
end if
temp=temp+1
rs.movenext '纪录指针下移
if rs.eof then exit for '如果到达纪录集底部则退出循环
next
end if
if temp<>1 then
response.write ""
end if
%>
|
