<% dim i i=0 set rslink2=server.createobject("adodb.recordset") sqllink2 = "select * from links order by id" rslink2.open sqllink2,conn,1,1 do while not rslink2.eof %> <% i=i+1 if i mod 4 = 0 then %> <% else end if rslink2.movenext loop rslink2.close set rslink2=nothing %> 友情链接 　 " alt="<%= rslink2("note") %>" target="_blank"> <% if rslink2("imges1")<>"" then %> " width="120" height="40" border="0"> <% else %> <%= rslink2("note") %> <% end if %>