<%set s = Server.CreateObject("shuziren_com.yz") '//友好城市之最 sub mzyyt_news() Response.Write "" set rs = conn.execute("select top 10 bt,bt_b,bt_color,html from news where lbid in(77) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub '//友好城市之最 sub ysxss_news() Response.Write "" set rs = conn.execute("select top 10 bt,bt_b,bt_color,html from news where lbid in(78) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub '//万花筒首页图文信息咨讯文字 sub home_wht() Response.Write "" set rs = conn.execute("select top 8 bt,bt_b,bt_color,html from news where lbid in(77,78) and zt=1 order by id desc") do while not rs.eof Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&s.xs_left(rs("bt"),50)&"
" end sub '//万花筒首页图文信息咨讯图文 '//sub home_whttu() '//set rs = conn.execute("select top 1 tp,bt,html from news where lbid in(77,78) and zt=1 and lx=1 order by id desc") '//do while not rs.eof '//Response.Write ""&_ '//""&_ '//""&_ '//"
"&_ '//""&_ '//"
" '//rs.movenext '//loop '//rs.close '//set rs=nothing '//end sub '//%>

<%'//热点新闻 sub home_news_hot() Response.Write "" set rs = conn.execute("select top 12 bt,bt_b,bt_color,html from news where lbid in(77,78) and rq>3 and lx<>3 and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&(bt)&"
" end sub %>
<%home_news_hot()%>
 
友好城市万花筒

  民族音乐厅
<%mzyyt_news()%>

  艺术欣赏室
<%ysxss_news()%>