%
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
%>
| 安吉旅游服务网 |
安吉中桥旅游网 |
安吉酒店预订网 |
|
旅游群38489564 |
酒店群8358889 |
景区群34940562 |
|
|
|
|
|
|
|
|
|
|
|
|
联系电话: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")
%>
| " class="cahy"><%=trim(rshotel("c_name"))%> <%=rshotel("level")%> |
¥<%=rshotel("jfjc")%>-<%=rshotel("jhcz")%> |
<%
if (i mod 2)=0 then response.write ""
rshotel.movenext
loop
end if%>
|
| 日至六房价指星期日至星期六,单位:元 |
|
农家乐-度假山庄- 周日至周六房价 |
| 市区周边地区 |
¥ |
| · 安吉桃花源人家酒店 |
¥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 %>
·<% if len(trim(rs("name")))>15 then
response.write left(trim(rs("name")),14)&"..."
else
response.write trim(rs("name"))
end if
response.write ""%> |
<% 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 %>
<% end if %>
|
|
安吉旅游景点 |
<% 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
%>
<% 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
%>
<% 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
%>
<% 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
%>
<% 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 %>
| 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"))%> |
<% 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 %>
<% 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 %>
| 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"))%> |
<% 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 %>
<% 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
%>
<% end if %> |