本 市 高 校 与 国 内 名 校 　 <%i = 0 set rs = server.CreateObject ("adodb.recordset") sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=5 and sid=50 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=5 and sid=50 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=5 and sid=50 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=5 and sid=52 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=5 and sid=52 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=5 and sid=52 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=5 and sid=54 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=5 and sid=54 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=5 and sid=54 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=5 and sid=216 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=5 and sid=216 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=5 and sid=216 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=5 and sid=200 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=5 and sid=200 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=5 and sid=200 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=14 order by hits desc" rs.Open sql,conn,1,1 for r=1 to 1 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 体育频率