<%
row=8
n=1
set rs=Server.CreateObject("ADODB.recordset")
sql="select top 10000 * from link where (passed=true and elite=false) order by id"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("暂无任何友情链接信息")
end if
Do While Not rs.EOF
%>
<%=rs("SiteName")%>
<%
If n Mod row=0 Then
Response.Write "
