实用查询-便民服务--莱芜便民网

<%if flash_ad<>"" then Response.Write flash_ad%>

网站首页　新闻资讯
流行音乐　宽频影院
莱芜概况　莱芜旅游

房产信息　二手市场
分类广告　网上商城
人才市场　企业黄页

同城交友　你问我答
博客日志　电脑网络
幽默笑话　动漫天地

时尚生活　论坛社区
消费打折　网络相册
便民服务　留言反馈

<%set rs = conn.execute("select top 10 bt,bt_b,bt_color,html from news where lbid=29 and zt=1 order by id desc") if not rs.eof then 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(" "&bt&" ") rs.movenext loop end if rs.close:set rs=nothing%>

<% set s = Server.CreateObject("jz163_net.yz") ’//广告,s1=位置,s2=宽,s3=高 sub home_gg(s1,s2,s3) set rs= conn.execute("select tp,url,lx from tp where lbid=6 and wz="&clng(s1)&" and zt=0 order by id desc") if not rs.eof then if rs("lx")<>0 then Response.Write("

") else Response.Write("

") end if end if rs.close set rs=nothing end sub ’//你问我答 sub home_zhidao(topn,zishu) set rs= conn.execute("select top "&topn&" id,bt,html from zhidao where zt=1 and zid=0 order by id desc") do while not rs.eof If rs(2) <> "" Then Response.Write "·" & s.xs_Left(rs(1), zishu) & "" Else Response.Write "·" & s.xs_Left(rs(1), zishu) & "" End If Response.Write "
" rs.movenext loop rs.close set rs=nothing end sub ’//信息咨讯 sub home_news(lbids,topn,zishu,rq) set rs = conn.execute("select top "&topn&" bt,bt_b,bt_color,html,sj from news where lbid in("&lbids&") and zt=1 order by id desc") do while not rs.eof bt=s.xs_left(rs("bt"),zishu) If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write "·"&bt&"" If rq="1" Then response.write " ["&month(rs("sj"))&"/"&day(rs("sj"))&"]" response.write "
" rs.movenext loop rs.close set rs=nothing end sub ’//最新加盟商家 sub home_sj() Response.Write "" set rs = conn.execute("select top 6 id,mc,zk,tp0,tel from xiaofei 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 Response.write "

"&s.xs_left(rs("mc"),38)&"
[持都市卡"&rs("zk")&"折]
"&s.xs_left(rs("tel"),13)&"

" end Sub ’//bbs sub home_bbs(topn) set rs = conn.execute("select top "&topn&" bt,id,lbid,huiyuan from bbs order by id desc") do while not rs.eof Response.Write("·"&s.xs_left(rs("bt"),32)&" ("&s.xs_left(rs("huiyuan"),8)&")
") rs.movenext loop rs.close set rs=nothing end sub ’//blog sub home_blog(topn) set rs = conn.execute("select top "&topn&" id,huiyuan,bt,b_id from blog where zt=1 and cang=0 order by id desc") do while not rs.eof Response.Write "·"&s.xs_left(rs(2),32)&" ("&s.xs_left(rs(1),8)&")
" rs.movenext loop rs.close set rs=nothing end sub ’//交友 sub home_love(topn) set rs = conn.execute("select top "&topn&" id,huiyuan,nyr,xl,xb from love where zt=1 order by id desc") do while not rs.eof Response.Write "·["&rs("xb")&"] "&s.xs_left(rs("huiyuan"),12)&" "&datediff("yyyy",rs("nyr"),date())+1&"岁，"&rs("xl")&"
" rs.movenext loop rs.close set rs=nothing end sub ’//最新房产 sub home_house(topn) Response.Write "" set rs = conn.execute("select top "&topn&" id,fx,wz,lx from fangchan where zt=1 order by id desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing Response.Write "

[" Select case rs("lx") case "0" Response.Write("出售") case "1" Response.Write("出租") case "2" Response.Write("求购") case "3" Response.Write("求租") case "4" Response.Write("合租") case "5" Response.Write("合租") End Select Response.Write "]

"&rs("fx")&"

"&s.xs_left(rs("wz"),28)&"

" end sub ’//最新求职信息 sub home_rc() Response.Write "" set rs = conn.execute("select top 10 id,name,zy from qiuzhi where 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("name"),8)&"/ " if rs("zy")="" then Response.Write("专业不祥") else Response.Write(""&s.xs_left(rs("zy"),20)&"") Response.Write "

" end sub ’//最新招聘 sub home_zp(topn) Response.Write "" set rs = conn.execute("select top "&topn&" 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 "

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

" 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),30) end if rs_q.close:set rs_q=nothing Response.Write "

" end sub ’//最新分类广告信息 sub home_gq(topn,zhisu) set rs = conn.execute("select top "&topn&" bt,id from gqxx where zt=1 order by id desc") do while not rs.eof Response.Write("·"&s.xs_left(rs("bt"),zhisu)&"
") rs.movenext loop rs.close set rs=nothing end sub ’//最新二手 sub home_2shou(topn,zhisu) set rs= conn.execute("select top "& topn &" id,lx,bt from gq where zt=1 order by id desc") do while not rs.eof If rs("lx")=0 Then lx="[卖]" Else lx="[买]" End If Response.Write("·"&lx&""&s.xs_left(rs("bt"),zhisu)&"
") rs.movenext loop rs.close set rs=nothing end sub ’//最新商家推荐 sub home_shop_user(topn,zhisu) set rs = conn.execute("select top "&topn&" userid,name from tui_user order by id desc") do while not rs.eof Response.Write "·"&s.xs_left(rs("name"),zhisu)&"
" rs.movenext loop rs.close set rs=nothing end sub ’//最新加盟企业 sub home_qy(topn,zhisu) set rs = conn.execute("select top "&topn&" id,mc from qy_info where zt=1 order by sj desc") do while not rs.eof Response.Write "·"&s.xs_left(rs("mc"),zhisu)&"
" rs.movenext loop rs.close set rs=nothing end sub ’//你问我答 sub home_zhidao() Response.Write "" set rs= conn.execute("select top 12 id,bt,html from zhidao where zt=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), 28) & "" End If Response.Write "

" end sub ’//最新推荐产品 sub home_shop_tui() ’----------------------------------------------------- ’商城首页推荐产品调用子程序 Response.Write "" set rs = conn.execute("select top 12 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 6 = 0 then Response.Write "" end if rs.movenext i=i+1 loop end if rs.close set rs=nothing Response.Write "

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

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

" end sub %>

设莱芜便民网为首页

意见反馈