大江西网—江西门户＊江西生活服务门户＊权威信息发布＊娱乐休闲地带＊最快最全新闻

<% set s = Server.CreateObject("shuziren_com.yz") sub home_nfdc() Response.Write "" set rs = conn.execute("select top 5 id,fx,wz,lx from fangchan where zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

·"&left(rs("wz"),10)&"

" end sub '//热点聚焦 sub home_rdjj() Response.Write "" set rs = conn.execute("select top 7 bt,html from news where lbid=2 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),10)&"

" end sub '//首页影讯 sub home_syys() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid=128 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),10)&"

" end sub '//本地快讯 sub home_bdkx() Response.Write "" set rs = conn.execute("select top 4 bt,html from news where lbid=3 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),14)&"

" end sub '//热门博客 sub home_rmbk() dim oldid set rs = conn.execute("select top 1 id,bt,html from news where lbid=120 and zt=1 order by id desc") oldid = rs("id") Response.Write "" set rs = conn.execute("select top 4 id,bt,html from news where lbid=120 and zt=1 and id<>'"&oldid&"' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),16)&"

" end sub '//新闻专题 sub home_xwzt() dim oldid set rs = conn.execute("select top 1 id,bt,html from news where lbid=119 and zt=1 order by id desc") oldid = rs("id") Response.Write "" set rs = conn.execute("select top 15 bt,html from news where lbid=119 and zt=1 and id<>'"&oldid&"' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 3 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//军事快讯 sub home_jskx() Response.Write "" set rs = conn.execute("select top 4 bt,html from news where lbid=4 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),14)&"

" end sub '//社会快讯 sub home_shkx() Response.Write "" set rs = conn.execute("select top 4 bt,html from news where lbid=5 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),14)&"

" end sub '//国内新闻图 sub home_gntu() Response.Write "" set rs = conn.execute("select top 3 bt,tp,html,sj from news where lbid in(53) and tp<>'' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 3 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),8)&"

" end sub '//mm2图 sub home_mmtu() Response.Write "" set rs = conn.execute("select top 12 bt,tp,html,sj from news where lbid in(127) and tp<>'' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 6 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),10)&"

" end sub '//本地快讯图 sub home_bdkx1() Response.Write "" set rs = conn.execute("select top 4 bt,tp,html,sj from news where lbid in(3) and tp<>'' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 4 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),9)&"

" end sub '//国内新闻 sub home_gnnews() Response.Write "" set rs = conn.execute("select top 6 bt,html from news where lbid=53 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//国际新闻图 sub home_gjtu() Response.Write "" set rs = conn.execute("select top 3 bt,tp,html,sj from news where lbid in(54) and tp<>'' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 3 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),8)&"

" end sub '//国际新闻 sub home_gjnews() Response.Write "" set rs = conn.execute("select top 6 bt,html from news where lbid=54 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//娱乐资讯 sub home_ylzx() Response.Write "" set rs = conn.execute("select top 5 bt,html from news where lbid=122 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//宠物资讯 sub home_cwzx() Response.Write "" set rs = conn.execute("select top 5 bt,html from news where lbid=123 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//美食资讯 sub home_mszx() Response.Write "" set rs = conn.execute("select top 5 bt,html from news where lbid=124 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//摄影资讯 sub home_syzx() Response.Write "" set rs = conn.execute("select top 5 bt,html from news where lbid=125 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//连环画资讯 sub home_lhhzx() Response.Write "" set rs = conn.execute("select top 5 bt,html from news where lbid=126 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//房产新闻 sub home_fcnews() Response.Write "" set rs = conn.execute("select top 12 bt,html from news where lbid=52 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),12)&"

" end sub '//房产图 sub home_fctu() Response.Write "" set rs = conn.execute("select top 3 bt,tp,html,sj from news where lbid=52 and tp<>'' order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 3 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&left(rs("bt"),8)&"

" end sub '//最新分类广告信息 sub home_gq() Response.Write "" set rs = conn.execute("select top 18 bt,id from gqxx where zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&s.xs_left(rs("bt"),20)&"

" end sub '//BBS sub home_bbs() Response.Write "" set rs = conn.execute("select top 10 bt,url from news where lbid in(113) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),20)&"

" end sub '//以一传百 sub home_yycb() dim oldid set rs = conn.execute("select top 1 id,bt,html from news where lbid=129 and zt=1 order by id desc") oldid = rs("id") Response.Write "" set rs = conn.execute("select top 6 bt,html from news where lbid in(129) and id<>'"&oldid&"' and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),16)&"

" end sub '//论坛 'sub home_bbs1() 'Response.Write "" 'sql="SELECT Top 10 rootid,parentid,boardid,topic from Dv_bbs1 where layer=1 and isbest=1 ORDER BY dateandtime desc , boardid DESC" 'set rs = conn1.execute(sql) 'i=1 'do while not rs.eof 'Response.Write "" 'if i mod 1 = 0 then Response.Write "" 'rs.movenext ''i=i+1 'loop 'rs.close 'set rs=nothing 'Response.Write "

· "&left(rs("topic"),20)&"

" 'end sub '//游戏动漫 sub home_yxdm() Response.Write "" set rs = conn.execute("select top 16 bt,url from news where lbid in(115) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),8)&"

" end sub '//影视资讯 sub home_yszx() Response.Write "" set rs = conn.execute("select top 10 bt,url from news where lbid in(114) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),8)&"

" end sub '//blog sub home_blog() Response.Write "" set rs = conn.execute("select top 10 id,huiyuan,bt from blog where zt=1 order by id desc") do while not rs.eof id=conn.execute("select id from blog_user where huiyuan='"&rs(1)&"'")(0) Response.Write "" rs.movenext loop rs.close set rs=nothing Response.Write "

"&s.xs_left(rs(2),26)&"--"&s.xs_left(rs(1),6)&"

" end sub '//交友 '//相册用户 sub home_photouser() Response.Write "" set rs = conn.execute("select top 24 id,mc,tp,lx from photo_xc where zt<>0 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 3 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&s.xs_left(rs(1),16)&"

" end sub '//相册图. sub home_photo() Response.Write "" set rs = conn.execute("select top 4 id,mc,xt,g,k from photo where tui<>0 and xc_id in (select id from photo_xc where lx=0) order by id desc") if not rs.eof then i=1 do while not rs.eof Response.Write "" if i mod 4 = 0 then Response.Write "" end if rs.movenext i=i+1 loop end if rs.close set rs=nothing Response.Write "

"&_ ""&_ ""&_ ""&_ "

"&left(rs("mc"),6)&"

" end sub '//最新招聘 sub home_zp() Response.Write "" set rs = conn.execute("select top 5 id,qy_id,zw from zhaopin where zt=1 order by id desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing Response.Write "

· " set rs_q=conn.execute("select mc from qy_info where id="&rs("qy_id")&"") if not rs_q.eof then Response.Write s.xs_left(rs_q(0),24) end if rs_q.close:set rs_q=nothing Response.Write "

招聘："&s.xs_left(rs("zw"),22)&"

" end sub '//最新二手 sub home_2shou() Response.Write "" set rs= conn.execute("select top 10 id,lx,bt from gq where zt=1 order by sj2 desc") do while not rs.eof If rs("lx")=0 Then lx="[卖] " Else lx="[买] " End If Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "

"&lx&""&s.xs_left(rs("bt"),26)&"

" end sub '//汽车 sub home_car() Response.Write "" set rs = conn.execute("select top 11 bt,html from news where lbid in(63,64,65,66,67,69) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),22)&"

" end sub '//消费 sub home_xiaofei() Response.Write "" set rs = conn.execute("select top 10 id,mc,zk,tui from xiaofei order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&s.xs_left(rs("mc"),22)&"

折扣："&rs("zk")&"折

" end sub '//股票信息 sub home_gpxx() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid=59 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//企业黄页 sub home_qyhy() Response.Write "" set rs = conn.execute("select top 10 id,mc from qy_info where zt=1 order by sj desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

"&s.xs_left(rs("mc"),18)&"

" end sub '//消费快报 sub home_xfkb() Response.Write "" set rs = conn.execute("select top 8 bt,html from news where lbid=60 and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//旅游 sub home_lvyou() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid in(17,76,77,78,79,80,81,82,83,84,85,86) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),15)&"

" end sub '//电脑网络 sub home_dnwl() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid in(22,23,24,25,26,27) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//健康概念 sub home_jkgn() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid in(12) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//扮靓家居 sub home_bljj() Response.Write "" set rs = conn.execute("select top 9 bt,html from news where lbid in(14) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),11)&"

" end sub '//教育 sub home_jiaoyun() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid in(88,89,90,91,92,93,94,95,96,97,98,110) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),15)&"

" end sub '//最新产品 sub home_cp() Response.Write "" set rs = conn.execute("select top 20 id,mc,jg2 from chanpin where id in (select max(id) from chanpin group by userid) and cang=0 and tui=0 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 4 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

·"&s.xs_left(rs(1),22)&"

" end sub '//最新推荐产品 sub home_shop_tui() '----------------------------------------------------- '商城首页推荐产品调用子程序 Response.Write "" set rs = conn.execute("select top 7 id,mc,xt from tui_chanpin where lbid=0 order by tui_id desc") if not rs.eof then i=1 do while not rs.eof Response.Write "" if i mod 7 = 0 then Response.Write "" end if rs.movenext i=i+1 loop end if rs.close set rs=nothing Response.Write "

"&_ ""&_ ""&_ ""&_ "

"&left(rs("mc"),4)&"

" end sub '//时尚生活 sub home_sssh() Response.Write "" set rs = conn.execute("select top 10 bt,html from news where lbid in(8,9,10,11) and zt=1 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod 1 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

· "&left(rs("bt"),25)&"

" end sub '//你问我答 sub home_zhidao() Response.Write "" set rs= conn.execute("select top 8 id,bt,html from zhidao where zt=1 and lx in(0,1) order by id desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing Response.Write "

·" If rs(2) <> "" Then Response.Write "" & s.xs_Left(rs(1), 28) & "" Else Response.Write "" & s.xs_Left(rs(1), 26) & "" End If Response.Write "

" end sub %> <%home_tb 1,"95",34,"" %>

热门博客

今天是：

<% set rc=server.CreateObject ("adodb.recordset") sql2="select top 1 tp,bt,html from news where lbid=120 and tp<>'' order by id desc" rc.Open sql2,conn,1,3 %>

" target="_blank">

" width="160" height="103" border="0">

" target="_blank"><%=left(rc("bt"),10)%>

<% rc.close %>

<% set rs1=server.CreateObject ("adodb.recordset") sql="select top 1 tp,bt,html from news where lbid=120 order by id desc" rs1.open sql,conn,1,3 do while not rs1.eof %>

" target="_blank"><%=left(rs1("bt"),11)%>

<% rs1.movenext loop rs1.close %>

<%home_rmbk()%>

以一传百

<% set rs1=server.CreateObject ("adodb.recordset") sql="select top 1 tp,bt,html from news where lbid=129 and zt=1 order by id desc" rs1.open sql,conn,1,3 do while not rs1.eof %>

" target="_blank"><%=left(rs1("bt"),25)%>

<% rs1.movenext loop rs1.close %>

<%home_yycb()%>

大江西网专题

<% set rs1=server.CreateObject ("adodb.recordset") sql="select top 1 tp,bt,html from news where lbid=119 order by id desc" rs1.open sql,conn,1,3 do while not rs1.eof %>

" target="_blank"><%=left(rs1("bt"),24)%>

<% rs1.movenext loop rs1.close %>

<%home_xwzt()%>

<%home_bdkx1()%>

新闻资讯

<% set rc=server.CreateObject ("adodb.recordset") sql2="select top 1 tp,bt,html from news where lbid=2 and tp<>'' order by id desc" rc.Open sql2,conn,1,3 %>

" target="_blank">

" width="160" height="103" border="0">

" target="_blank"><%=left(rc("bt"),10)%>

<% rc.close %>

　热点聚焦

<%home_rdjj()%>

<% set rs1=server.CreateObject ("adodb.recordset") sql="select top 1 tp,bt,html from news where lbid=2 order by id desc" rs1.open sql,conn,1,3 do while not rs1.eof %>

" target="_blank"><%=left(rs1("bt"),11)%>

<% rs1.movenext loop rs1.close %>

<%home_bdkx()%>

<%home_jskx()%>

<%home_shkx()%>

<%home_gntu()%>

<%home_gnnews()%>

<%home_gq()%>

客服QQ: 83321389

热线电话: 13870692129

娱乐资讯

娱乐频道

<% set rc=server.CreateObject ("adodb.recordset") sql2="select top 1 tp,bt,html from news where lbid=122 and tp<>'' order by id desc" rc.Open sql2,conn,1,3 %>

" target="_blank">

" width="115" height="80" border="0">

" target="_blank"><%=left(rc("bt"),6)%>

<% rc.close %>

<%home_ylzx()%>

　影视资讯

动作探险│战争科幻│恐怖│爱情│喜剧

<% set rc=server.CreateObject ("adodb.recordset") sql2="select top 1 tp,bt,html from news where lbid=114 and tp<>'' order by id desc" rc.Open sql2,conn,1,3 %>

" target="_blank">

" width="115" height="80" border="0">

" target="_blank"><%=left(rc("bt"),6)%>

<% rc.close %>

<%home_yszx()%>

房产信息

资讯·发布房产

<%home_fcnews()%>

开盘中（小区）

房产论坛

<%home_fctu()%>

房产搜索

类别
户型
来源
位置