<%
sqllist = "select top 5 [From],[SmallPic],[Title],[BigPic],[DaoDu] from news where strClass='要闻速读' and BigPic<>'' and Ishid=0 and HuanDeng=1 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
%>
<%
sqllist = "select top 5 [From],[SmallPic],[Title],[BigPic],[DaoDu] from news where strClass='要闻速读' and BigPic<>'' and Ishid=0 and HuanDeng=1 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
sqllist = "select top 2 [From],[SmallPic],[Title],[BigPic],[DaoDu] from news where strClass='要闻速读' and Ishid=0 and toutiao=1 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
sqllist = "select [From],[SmallPic],[Title],[BigPic],[DaoDu],istop from news where strClass='要闻速读' and Ishid=0 and (toutiao=0 or toutiao is null) order by istop desc,[Order] desc,UpTime desc,id desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
sqllist = "select [From],[SmallPic],[Title],[BigPic],[DaoDu],[RenWu],[ZhiWei] from news where strClass='主题演讲' and Ishid=0 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
sqllist = "select [From],[SmallPic],[Title],[BigPic],[DaoDu],[RenWu],[ZhiWei] from news where strClass='主题演讲' and Ishid=0 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
"/>
<%=rs("RenWu")%>
<%
rs.movenext
loop
end if
rs.close
%>
精英论坛
Elite BBS
<%
sqllist = "select [From],[SmallPic],[Title],[BigPic],[DaoDu],htime from news where strClass='精英论坛' and Ishid=0 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
sqllist = "select [From],[SmallPic],[Title],[BigPic],[DaoDu],htime from news where strClass='精英论坛' and Ishid=0 order by [Order] desc,UpTime desc,id desc"
rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
">
<%
rs.movenext
loop
end if
rs.close
%>
精彩瞬间
moment
<%
i=1
dot=1
sqllist = "select [id],[From],[SmallPic],[BigPic],[Title],[DaoDu],[RenWu],[ZhiWei],[gzd],brandname from news where strClass='精彩瞬间' and Ishid=0 order by [Order] desc,UpTime desc,id desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
if (ii mod 5)<2 then
cl = "s1"
else
cl = "s2"
end if
%>
" class="<%=cl%>" />
<%
if (i mod 5)=0 and i
<%
end if
rs.movenext
i=i+1
ii=ii+1
loop
end if
rs.close
%>