<% dim url,url1,url2,url3,url4,url5,url6,url7,url8,url9,url10,url11,url12,url13,url14,url15,url16,url17,url18,url19,pic,pic1,pic2,pic3,pic4,pic5,pic6,pic7,pic8,pic9,pic10,pic11,pic12,pic13,pic14,pic15,pic16,pic17,pic18,pic19,mane,mane1,mane2,mane3,mane4,mane5,mane6,mane7,mane8,mane9,mane10,mane11,mane12,mane13,mane14,mane15,mane16,mane17,mane18,mane19 set rs=server.CreateObject("adodb.recordset") rs.Open "select url,url1,url2,url3,url4,url5,url6,url7,url8,url9,url10,url11,url12,url13,url14,url15,url16,url17,url18,url19,pic,pic1,pic2,pic3,pic4,pic5,pic6,pic7,pic8,pic9,pic10,pic11,pic12,pic13,pic14,pic15,pic16,pic17,pic18,pic19,mane,mane1,mane2,mane3,mane4,mane5,mane6,mane7,mane8,mane9,mane10,mane11,mane12,mane13,mane14,mane15,mane16,mane17,mane18,mane19 from ad",conn,1,1 url=trim(rs("url")) url1=trim(rs("url1")) url2=trim(rs("url2")) url3=trim(rs("url3")) url4=trim(rs("url4")) url5=trim(rs("url5")) url6=trim(rs("url6")) url7=trim(rs("url7")) url8=trim(rs("url8")) url9=trim(rs("url9")) url10=trim(rs("url10")) url11=trim(rs("url11")) url12=trim(rs("url12")) url13=trim(rs("url13")) url14=trim(rs("url14")) url15=trim(rs("url15")) url16=trim(rs("url16")) url17=trim(rs("url17")) url18=trim(rs("url18")) url19=trim(rs("url19")) pic=trim(rs("pic")) pic1=trim(rs("pic1")) pic2=trim(rs("pic2")) pic3=trim(rs("pic3")) pic4=trim(rs("pic4")) pic5=trim(rs("pic5")) pic6=trim(rs("pic6")) pic7=trim(rs("pic7")) pic8=trim(rs("pic8")) pic9=trim(rs("pic9")) pic10=trim(rs("pic10")) pic11=trim(rs("pic11")) pic12=trim(rs("pic12")) pic13=trim(rs("pic13")) pic14=trim(rs("pic14")) pic15=trim(rs("pic15")) pic16=trim(rs("pic16")) pic17=trim(rs("pic17")) pic18=trim(rs("pic18")) pic19=trim(rs("pic19")) mane=trim(rs("mane")) mane1=trim(rs("mane1")) mane2=trim(rs("mane2")) mane3=trim(rs("mane3")) mane4=trim(rs("mane4")) mane5=trim(rs("mane5")) mane6=trim(rs("mane6")) mane7=trim(rs("mane7")) mane8=trim(rs("mane8")) mane9=trim(rs("mane9")) mane10=trim(rs("mane10")) mane11=trim(rs("mane11")) mane12=trim(rs("mane12")) mane13=trim(rs("mane13")) mane14=trim(rs("mane14")) mane15=trim(rs("mane15")) mane16=trim(rs("mane16")) mane17=trim(rs("mane17")) mane18=trim(rs("mane18")) mane19=trim(rs("mane19")) rs.Close set rs=nothing %>
三网合并终身域名 www.youaj.com
 
申苏浙皖QQ群
设为主页 加入收藏
安吉旅游服务网 安吉中桥旅游网 安吉酒店预订网   旅游群38489564 酒店群8358889 景区群34940562
主要业务:酒店宾馆预定、旅游团队会务会议接待、导游服务、特产批发、拓展训练、汽车出租、等全面服务
联系电话:13083901286多线 电话2:0572-5331810
中桥之旅-快乐安吉 旅游咨询热线:13083901286多线 电话2:0572-5331810      
酒店宾馆   星级档次 日至六房价
<%sql="select top 22 * from hotelb order by id desc" set rshotel=conn.execute(sql) if not(rshotel.bof and rshotel.eof) then %> <% i=0 do while not rshotel.eof i=i+1 set rs_s=server.createobject("adodb.recordset") sql="select stageprice,c_id from roomb where c_id='"&rshotel("id")&"'" rs_s.open sql,conn,1,1 stageprice=rs_s("stageprice") %> <% if (i mod 2)=0 then response.write "" rshotel.movenext loop end if%>
    " class="cahy"><%=trim(rshotel("c_name"))%>  <%=rshotel("level")%> ¥<%=rshotel("jfjc")%>-<%=rshotel("jhcz")%>
日至六房价指星期日至星期六,单位:元
农家乐-度假山庄-   周日至周六房价
    市区周边地区
 · 安吉桃花源人家酒店 ¥140-220
    百草原周边地区
 ·安吉凤凰泉山庄 ¥120-180
 ·安吉一号农家乐 ¥100-160
    竹博园周边地区
 ·安吉剑山农庄 ¥100-160
 ·安吉水浒第一庄 ¥100-160
    大竹海周边地区
 ·安吉竹林山庄 ¥100-160
 ·安吉绿光森林 ¥100-160
    天下银坑周边地区  
 ·娇娇农家 ¥100-160
 ·一家人山庄  ¥100-160
    大石浪周边地区  
 ·聚贤山庄 ¥100-160
 ·乾龙山庄 ¥100-160
                
头条 热烈祝贺安吉华泰商务酒店 盛大开业
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 11 id,name,pic,price1,price2,viewnum,adddate,stock,mark from prod where categoryid=4 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=11 then exit do loop %> <% rs.close set rs= nothing %>
 ·<% if len(trim(rs("name")))>15 then response.write left(trim(rs("name")),14)&"..." else response.write trim(rs("name")) end if response.write ""%>
<% end if %>
<%=mane1%>
<%=mane2%>
<%=mane3%>
<%=mane4%>
<%=mane5%>
<%=mane6%>
<%=mane7%>
<%=mane8%>
<%=mane9%>

 ·安吉博瑞假日宾馆 准三 标准房 每天特价5间 ¥138-260
 ·安吉桃花源人家酒店 准三 标准房 每天特价5间 ¥120-190
 ·安吉国际假日酒店 准四 标准房 每天特价5间 ¥220-320
 
安吉旅游景点
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 18 newsid,newsname,pic,newscontent,addname,adddate,pic,rnb from news order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=18 then exit do loop %> <% rs.close set rs= nothing %>
    黄浦江源旅游风景区  
  <% if len(trim(rs("newsname")))>15 then response.write left(trim(rs("newsname")),14)&"..." else response.write trim(rs("newsname")) end if response.write ""%> ¥<% = trim(rs("rnb"))%>
<% end if %>
安吉旅游经典行程线路 点入
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 17 newsid,newsname,tgbz,newscontent,addname,adddate,flid,categoryid from lyxl where categoryid=1 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=17 then exit do loop %> <% rs.close set rs= nothing %>
<% if len(trim(rs("newsname")))>15 then response.write left(trim(rs("newsname")),14)&"..." else response.write trim(rs("newsname")) end if response.write ""%>
<% end if %>
酒店知识
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 13 id,name,pic,price1,price2,viewnum,adddate,stock,mark from prod where categoryid=1 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=13 then exit do loop %> <% rs.close set rs= nothing %>
<% if len(trim(rs("name")))>15 then response.write left(trim(rs("name")),14)&"..." else response.write trim(rs("name")) end if response.write ""%>
<% end if %>
旅游知识 常识
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 13 id,name,pic,price1,price2,viewnum,adddate,stock,mark from prod where categoryid=2 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=13 then exit do loop %> <% rs.close set rs= nothing %>
<% if len(trim(rs("name")))>15 then response.write left(trim(rs("name")),14)&"..." else response.write trim(rs("name")) end if response.write ""%>
<% end if %>
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 10 newsid,newsname,tgbz,newscontent,addname,adddate,flid,categoryid from lyxl where categoryid=2 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=10 then exit do loop %> <% rs.close set rs= nothing %>
v <% if len(trim(rs("newsname")))>15 then response.write left(trim(rs("newsname")),14)&"..." else response.write trim(rs("newsname")) end if response.write ""%> <%=trim(rs("tgbz"))%> <%=trim(rs("flid"))%>
<% end if %>
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 10 newsid,newsname,tgbz,newscontent,addname,adddate,flid,categoryid from lyxl where categoryid=3 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=10 then exit do loop %> <% rs.close set rs= nothing %>
v <% if len(trim(rs("newsname")))>15 then response.write left(trim(rs("newsname")),14)&"..." else response.write trim(rs("newsname")) end if response.write ""%> <%=trim(rs("tgbz"))%> <%=trim(rs("flid"))%>
<% end if %>
综合时事
<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 21 id,name,pic,price1,price2,viewnum,adddate,stock,mark from prod where categoryid=2 order by adddate desc",conn,1,1 if rs.eof and rs.bof then response.write "
对不起,还没添加内容!
" else %> <% j=0 do while not rs.eof %> <% rs.movenext j=j+1 if rs.eof then exit do end if if j>=21 then exit do loop %> <% rs.close set rs= nothing %>
  <% if len(trim(rs("name")))>15 then response.write left(trim(rs("name")),14)&"..." else response.write trim(rs("name")) end if response.write ""%>  
<% end if %>
合作伙伴 安吉博瑞假日宾馆 安吉星河假日宾馆 安吉深溪大石浪风景区
<% scol = 10 '===== 在此修改列数 sno = 0 set rs= Server.CreateObject("adodb.recordset") sql="select top 30 * from url where pic<>' ' order by id desc" rs.open sql,conn,1 while not rs.eof sno = sno + 1 %> <% If sno = scol Then sno = 0 Response.Write("") End If rs.movenext wend %>
" target="_blank">" border="0" width="88" height="31"> 

安吉中桥旅游网 版权制作;中桥制作必出精品;安信网络支持;如有错误或疑问请发送E-mail:ajlgz@qq.com不良及违法信息投诉浙ICP备05106172号
电话1:13083901286、电话2:572-5330562 传真:0572-5331810 E-mail:ajlgz@qq.com 地址:浙江安吉地铺镇芜园358号 邮编:313300