<% dim x x=0 Set rs=Server.CreateObject("ADODB.RecordSet") Sql="select * from Aymi_Board_Disp where BoardMeu=1 Order By BoardReplys Desc" rs.Open sql,conn,1,1 if not Rs.eof then %> 切换贴吧：<% do while not rs.eof x=x+1 %><%Response.Write(HTMLCode(rs(4)))%> <% if x>=6 then exit do rs.movenext loop %> | 推荐贴吧 | 更多贴吧 >> <% else %>  全部贴吧 | 推荐贴吧 <% end if rs.close %>