<%set s = Server.CreateObject("shuziren_com.yz") '//新时空首页图文信息咨讯文字 sub home_xsk() Response.Write "" set rs = conn.execute("select top 8 bt,bt_b,bt_color,html from news where lbid in(67,98,99) 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_xsktu() set rs = conn.execute("select top 1 tp,bt,html from news where lbid in(67,98,99) 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 %> 卞卡商务在线-友好城市新时空

 
友好城市新时空

  图文头条
<%home_xsktu()%>
<%home_xsk()%>

  回顾
<%'//回顾 sub yc_hg() Response.Write "" set rs = conn.execute("select top 7 bt,bt_b,bt_color,html from news where lbid in(98) 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"),80)&"
" end sub %> <%yc_hg()%>

  合作与发展
<%'//友城快报 sub yc_fz() Response.Write "" set rs = conn.execute("select top 7 bt,bt_b,bt_color,html from news where lbid in(99) 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"),80)&"
" end sub %> <%yc_fz()%>