友 情 链 接    登 录 链 接 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where bid=28 and sid=198 order by hits desc" rs.Open sql,conn,1,1 do while not rs.EOF title=rs("sitename") title=left(title,10) i = i + 1 if i mod 3 = 1 then %> <% rs.MoveNext() else rs.MoveNext() end if loop rs.close %> 网址名称 点击率 &id=<%=rs("id")%> target=_blank><%=title%> <%=rs("hits")%> <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where bid=28 and sid=198 order by hits desc" rs.Open sql,conn,1,1 do while not rs.EOF title=rs("sitename") title=left(title,10) i = i + 1 if i mod 3 = 2 then %> <% rs.MoveNext() else rs.MoveNext() end if loop rs.close %> 网址名称 点击率 &id=<%=rs("id")%> target=_blank><%=title%> <%=rs("hits")%> <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where bid=28 and sid=198 order by hits desc" rs.Open sql,conn,1,1 do while not rs.EOF title=rs("sitename") title=left(title,10) i = i + 1 if i mod 3 = 0 then %> <% rs.MoveNext() else rs.MoveNext() end if loop rs.close %> 网址名称 点击率 &id=<%=rs("id")%> target=_blank><%=title%> <%=rs("hits")%>			::::热 门 链 接 :::: <% r=0 set rs = server.CreateObject ("adodb.recordset") sql = "select top 2 id,sitename,siteurl,ifpass,hits from site where ifpass=1 and bid=28 order by hits desc" rs.Open sql,conn,1,1 for r=1 to 2 title=rs("sitename") title=left(title,10) %> <% rs.MoveNext() next rs.close %> <%=r%> &id=<%=rs("id")%> target=_blank><%=title%> <%=rs("hits")%>