酒店资料_酒店信息网

<%set s = Server.CreateObject("shuziren_" & Application("about") & ".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() Response.Write "" set rs= conn.execute("select top 26 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), 26) & "" Else Response.Write "" & s.xs_Left(rs(1), 26) & "" End If Response.Write "

" end sub '//信息快报 sub home_kb() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid=30 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_news() Response.Write "" set rs = conn.execute("select top 9 bt,bt_b,bt_color,html,sj from news where lbid in(1,2,3,4,5,6) and zt=1 order by id desc") do while not rs.eof bt=s.xs_left(rs("bt"),48) 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&" ["&month(rs("sj"))&"/"&day(rs("sj"))&"]

" end sub '//图文头条 sub home_news_img() set rs = conn.execute("select top 2 tp,bt,html from news where lbid in(1,2,3,4,5,6) and zt=1 and lx=1 order by id desc") do while not rs.eof Response.Write "

"&_ "

"&_ ""&rs("bt")&""&_ "

" rs.movenext loop rs.close set rs=nothing end sub '//最新加盟企业 sub home_qy() Response.Write "" set rs = conn.execute("select top 13 id,mc from qy_info where zt=1 order by sj desc") do while not rs.eof Response.Write "" rs.movenext loop rs.close set rs=nothing Response.Write "

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

" end sub '//分类信息 sub home_classad(lbid,c1,c2,c3) '类别ID，c1=显示条数，C2=列,c3=字符 Response.Write "" set rs = conn.execute("select top "&clng(c1)&" bt,html from classad where lbid="&clng(lbid)&" and zt<>0 order by id desc") i=1 do while not rs.eof Response.Write "" if i mod clng(c2) = 0 then Response.Write "" if i" end if i=i+1 rs.movenext loop rs.close set rs=nothing Response.Write "

·"&s.xs_left(rs(0),clng(c3))&"

" end sub '//小广告位,参数为位置，中部小广告为0 sub home_gg_x(canshu) Response.Write "" set gg= conn.execute("select top 6 tp,url from tp where lbid=6 and wz="&clng(canshu)&" and zt=0 order by id desc") if not gg.eof then do while not gg.eof Response.Write("") gg.movenext loop end if gg.close set gg=nothing Response.Write "

" end sub '//最新推荐产品 sub home_shop_tui() '----------------------------------------------------- '商城首页推荐产品调用子程序 Response.Write "" set rs = conn.execute("select top 8 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 4 = 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 '//最新商家推荐 sub home_shop_user() Response.Write "" set rs = conn.execute("select top 10 userid,name from tui_user 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"),26)&"

" 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 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close set rs=nothing Response.Write "

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

" end sub '//主题购物 sub home_shop_zhuti() Response.Write "" set rs = conn.execute("select top 10 id,bt,sj from zhuanti_g order by id desc") if not rs.eof then do while not rs.eof Response.Write "" rs.movenext loop end if rs.close set rs=nothing Response.Write "

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

" end sub '//bbs sub home_bbs() Response.Write "" set rs = conn.execute("select top 21 bt,id from bbs where tui=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"),26)&"

" end sub '//blog sub home_blog() Response.Write "" set rs = conn.execute("select top 20 id,huiyuan,bt,b_id from blog where zt=1 and tui=1 and cang=0 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 "

<%if flash_ad<>"" then Response.Write flash_ad%>	·设为首页 ·收藏本站