<%
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
%>
Copyright 2003-2007 Qian-lin.com All Rights Reserved. 技术支持：新网无限网站建设
