<%
dim i,sqllist,mysql
i=0
sqllist = "select top 8 [From],[SmallPic],[Title] from news where Slideshow=1 and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
%>
-
<%
i=1
sqllist = "select top 8 [From],[SmallPic],[Title] from news where Slideshow=1 and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
- <%=i%> <% i=i+1 rs.movenext loop end if rs.close %>
2014中國(guó)集成、定制家居展覽會(huì)
第二屆中國(guó)林業(yè)產(chǎn)業(yè)科技創(chuàng)新獎(jiǎng)(木門(mén)業(yè))將揭曉
舉辦第十屆中國(guó)居室門(mén)設(shè)計(jì)大賽
舉辦2014中國(guó)門(mén)業(yè)與五金配套業(yè)供需發(fā)展論壇
第二屆世界木門(mén)大會(huì)3月12日在北京召開(kāi)
第二屆中國(guó)林業(yè)產(chǎn)業(yè)科技創(chuàng)新獎(jiǎng)(木門(mén)業(yè))將揭曉
舉辦第十屆中國(guó)居室門(mén)設(shè)計(jì)大賽
舉辦2014中國(guó)門(mén)業(yè)與五金配套業(yè)供需發(fā)展論壇
第二屆世界木門(mén)大會(huì)3月12日在北京召開(kāi)
-
<%
sqllist = "select top 2 [From],SmallPic,Title,ShortContent from news where Headlines=1 and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
-
" target="_blank" title="<%=rs("Title")%>"><%=CutStr(rs("Title"),20)%>
-
" target="_blank" title="<%=rs("Title")%>">
" alt="<%=rs("Title")%>" /><%=CutStr(rs("ShortContent"),100)%>" target="_blank" title="<%=rs("Title")%>">詳細(xì)>>
<%
rs.movenext
loop
end if
rs.close
%>
- 相關(guān)報(bào)道 <% sqllist = "select top 3 [From],Title from news where strClass='相關(guān)報(bào)道' and Ishid=0 order by Sorts desc,UpTime desc" Rs.Open sqllist,conn,1,1 if not rs.eof then do while not rs.eof %>
- " target="_blank" title="<%=rs("Title")%>"><%=CutStr(rs("Title"),20)%> <% rs.movenext loop end if rs.close %>
- 活動(dòng)概述
-
活動(dòng)時(shí)間：
2014年3月11日-14日
活動(dòng)地址： 北京·中國(guó)國(guó)際展覽中心新館（北京市順義區(qū)天竺裕翔路88號(hào)）
媒體支持：
- 往屆展會(huì)回顧
直擊展覽會(huì)嘉賓風(fēng)采
-
<%
sqllist = "select [From],SmallPic,Title from news where strClass='嘉賓風(fēng)采' and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
- " target="_blank" class="pic" title="<%=rs("Title")%>">
" target="_blank" title="<%=rs("Title")%>" ><%=CutStr(rs("Title"),30)%>
<%
rs.movenext
loop
end if
rs.close
%>
-
<%
sqllist = "select [From],SmallPic,Title,ShortContent from news where strClass='對(duì)話(huà)風(fēng)云' and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
- " target="_blank" title="<%=rs("Title")%>">
" target="_blank" title="<%=rs("Title")%>"> <%=CutStr(rs("Title"),15)%>
" target="_blank" title="<%=rs("Title")%>"> <%=CutStr(rs("ShortContent"),25)%>
<%
rs.movenext
loop
end if
rs.close
%>
-
<%
sqllist = "select [From],SmallPic,Title,ShortContent from news where strClass='獨(dú)家視眼' and Ishid=0 order by Sorts desc,UpTime desc"
Rs.Open sqllist,conn,1,1
if not rs.eof then
do while not rs.eof
%>
- " title="<%=rs("Title")%>">
<%=rs("Title")%>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
set Conn = nothing
%>
