本 地 论 坛 　 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=31 and sid=122 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 ifpass=1 and bid=31 and sid=122 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 ifpass=1 and bid=31 and sid=122 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")%>    安 徽 论 坛 　 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=31 and sid=252 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 ifpass=1 and bid=31 and sid=252 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 ifpass=1 and bid=31 and sid=252 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")%>    国 内 论 坛 　 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=31 and sid=212 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 ifpass=1 and bid=31 and sid=212 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 ifpass=1 and bid=31 and sid=212 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")%>    论 坛 聚 合 　 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=31 and sid=215 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 ifpass=1 and bid=31 and sid=215 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 ifpass=1 and bid=31 and sid=215 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 10 id,sitename,siteurl,ifpass,hits from site where ifpass=1 and bid=17 order by hits desc" rs.Open sql,conn,1,1 for r=1 to 10 title=rs("sitename") title=left(title,10) %> <% rs.MoveNext() next rs.close %> <%=r%> &id=<%=rs("id")%> target=_blank><%=title%> <%=rs("hits")%> ::::广 播 电 视:::: CCTV1央视综合频道 CCTV5央视体育频道 CCTV6央视电影频道 CCTV8央视电视剧频道 CCTV央视音乐频道 CCTV央视新闻频道 上海生活时尚频道 动感101 开心调频 第一财经 经典947 体育频率