武汉旅游网

      广告热线：15807167822  
  网站首页 酒店预订  旅游度假   行游指南     旅游留言  
 推荐阅读: <% Set Rs=Conn.execute("Select Top 4 * From News Where ClassID=71 Order By NewsID desc") if Rs.eof or Rs.bof then response.write"暂无该信息!" else i=1 Do While Not Rs.eof And I<=4 If Rs("IsCheck")=0 Then Title1=Rs("Title") Title=mid(Rs("Title"),1,15) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("STitle"),1,15) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF %> ·<%=Title1%><%= Title %>   <% I=I+1 Rs.MoveNext Loop end if Rs.Close:Set Rs=Nothing %> >>更多    今日天气:
 酒  店 度  假
城　　市
价格范围
入住日期 弹出日历下拉菜单
离店日期 弹出日历下拉菜单
酒店名称(请输入酒店中文名称)
 
天气预报 列车时刻 航班时刻 景点门票 投诉电话 旅游攻略 酷图欣赏
 
最新活动推荐 更多>>
<% Set Rs=Conn.execute("Select Top 3 * From News Where ClassID=70 Order By NewsID desc") if Rs.eof or Rs.bof then response.write"暂无该信息!" else i=1 Do While Not Rs.eof And I<=5 If Rs("IsCheck")=0 Then Title1=Rs("Title") Title=mid(Rs("Title"),1,15) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("STitle"),1,15) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF %> <% I=I+1 Rs.MoveNext Loop end if Rs.Close:Set Rs=Nothing %>
·<%=Title1%><%= Title %>
旅游攻略
<% Set Rs=Conn.execute("Select Top 10 * From News Where ClassID=152 Order By NewsID desc") if Rs.eof or Rs.bof then response.write"暂无该信息!" else i=1 Do While Not Rs.eof And I<=10 If Rs("IsCheck")=0 Then Title1=Rs("Title") Title=mid(Rs("Title"),1,15) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("STitle"),1,15) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF %> <% I=I+1 Rs.MoveNext Loop end if Rs.Close:Set Rs=Nothing %>
·<%=Title1%><%= Title %>
 
省内游线路 更多>>
<% Set Rs=Conn.execute("Select Top 10 * From Line Where IsRec=1 and ClassID=13 Order By UpdateTime Desc")%> <% I=1 if Rs.eof or Rs.bof then response.write"" else Do WHile Not Rs.eof And I<=10 Title1=Rs("LineName") If Rs("IsCheck")=0 Then Title=mid(Rs("LineName"),1,16) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("SName"),1,16) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF LineID=Rs("LineID") If Instr(Rs("BiaoZhun"),"|")>0 Then Bz=Split(Rs("BiaoZhun"),"|") BiaoZhun=Bz(0) Else BiaoZhun=Rs("BiaoZhun") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %>
 
国内游线路 更多>>
<% Set Rs=Conn.execute("Select Top 10 * From Line Where IsRec=1 and ClassID=14 Order By UpdateTime Desc")%> <% I=1 if Rs.eof or Rs.bof then response.write"" else Do WHile Not Rs.eof And I<=10 Title1=Rs("LineName") If Rs("IsCheck")=0 Then Title=mid(Rs("LineName"),1,16) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("SName"),1,16) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF LineID=Rs("LineID") If Instr(Rs("BiaoZhun"),"|")>0 Then Bz=Split(Rs("BiaoZhun"),"|") BiaoZhun=Bz(0) Else BiaoZhun=Rs("BiaoZhun") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %>
 
国际游线路 更多>>
<% Set Rs=Conn.execute("Select Top 10 * From Line Where IsRec=1 and ClassID=15 Order By UpdateTime Desc")%> <% I=1 if Rs.eof or Rs.bof then response.write"" else Do WHile Not Rs.eof And I<=10 Title1=Rs("LineName") If Rs("IsCheck")=0 Then Title=mid(Rs("LineName"),1,16) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select Else Title=mid(Rs("SName"),1,16) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" 'Case "u":Title="" End Select End IF LineID=Rs("LineID") If Instr(Rs("BiaoZhun"),"|")>0 Then Bz=Split(Rs("BiaoZhun"),"|") BiaoZhun=Bz(0) Else BiaoZhun=Rs("BiaoZhun") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %>
<% LinkType="首页中部左侧" Set Rs=Conn.execute("Select Top 1 * From gg Where LinkType='"&LinkType&"' Order By OrderID") if Rs.eof or Rs.bof then response.write"暂无该信息!" else i=1 Do While Not Rs.eof And I<=1 %> > <%=Rs("LinkIntro")%> <% I=I+1 Rs.MoveNext Loop end if Rs.Close:Set Rs=Nothing %>   <% LinkType="首页中部右侧" Set Rs=Conn.execute("Select Top 1 * From gg Where LinkType='"&LinkType&"' Order By OrderID") if Rs.eof or Rs.bof then response.write"暂无该信息!" else i=1 Do While Not Rs.eof And I<=1 %> > <%=Rs("LinkIntro")%> <% I=I+1 Rs.MoveNext Loop end if Rs.Close:Set Rs=Nothing %>
特价酒店
<% Set Rs=Conn.execute("Select Top 5 * From Hotel Where OnTop=1 Order By OrderID") if Rs.eof or Rs.bof then response.write"" else I=1 Do While Not Rs.eof And I<=5 Tb="" If Rs("IsCheck")=0 Then Title=Gottopic(Rs("HotelName"),22) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select Else Title=Gottopic(Rs("SName"),22) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select End IF HotelID=Rs("HotelID") If Instr(Rs("TD"),"|")>0 Then Temp=Replace(Replace(Rs("TD"),"-",""),"另议","") 'Response.Write(Temp) Ta=Split(Temp,"|") For k=0 To Ubound(Ta) If Trim(Ta(k))<>"" then If Instr(Tb,Ta(k))>0 Then Else Tb=Tb&Ta(k)&"|" End IF End If Next If Instr(Tb,"|")>0 Then Tb=Left(Tb,(Len(Tb)-1)) 'Response.Write(Tb) If Instr(Tb,"|")>0 Then Tc=Split(Tb,"|") T1=SortA(Tc) Price=T1(0) Else Price=Tb End IF Else Price=Tb End IF Else Price=Rs("TD") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
<%= Title %> ￥<%= Price %>
 
商务酒店推荐 更多>>
<% dim JdLx JdLx="商务酒店" Set Rs=Conn.execute("Select Top 10 * From Hotel Where IsRec=1 And JdLx='"&JdLx&"' Order By OrderID") if Rs.eof or Rs.bof then response.write"" else I=1 Do While Not Rs.eof And I<=10 Tb="" If Rs("IsCheck")=0 Then Title=Gottopic(Rs("HotelName"),22) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select Else Title=Gottopic(Rs("SName"),22) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select End IF HotelID=Rs("HotelID") If Instr(Rs("TD"),"|")>0 Then Temp=Replace(Replace(Rs("TD"),"-",""),"另议","") 'Response.Write(Temp) Ta=Split(Temp,"|") For k=0 To Ubound(Ta) If Trim(Ta(k))<>"" then If Instr(Tb,Ta(k))>0 Then Else Tb=Tb&Ta(k)&"|" End IF End If Next If Instr(Tb,"|")>0 Then Tb=Left(Tb,(Len(Tb)-1)) 'Response.Write(Tb) If Instr(Tb,"|")>0 Then Tc=Split(Tb,"|") T1=SortA(Tc) Price=T1(0) Else Price=Tb End IF Else Price=Tb End IF Else Price=Rs("TD") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %> ￥<%= Price %>
 
经济宾馆推荐 更多>>
<% JdLx="经济酒店" Set Rs=Conn.execute("Select Top 10 * From Hotel Where IsRec=1 And JdLx='"&JdLx&"' Order By OrderID") if Rs.eof or Rs.bof then response.write"" else I=1 Do While Not Rs.eof And I<=10 Tb="" If Rs("IsCheck")=0 Then Title=Gottopic(Rs("HotelName"),22) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select Else Title=Gottopic(Rs("SName"),22) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select End IF HotelID=Rs("HotelID") If Instr(Rs("TD"),"|")>0 Then Temp=Replace(Replace(Rs("TD"),"-",""),"另议","") 'Response.Write(Temp) Ta=Split(Temp,"|") For k=0 To Ubound(Ta) If Trim(Ta(k))<>"" then If Instr(Tb,Ta(k))>0 Then Else Tb=Tb&Ta(k)&"|" End IF End If Next If Instr(Tb,"|")>0 Then Tb=Left(Tb,(Len(Tb)-1)) 'Response.Write(Tb) If Instr(Tb,"|")>0 Then Tc=Split(Tb,"|") T1=SortA(Tc) Price=T1(0) Else Price=Tb End IF Else Price=Tb End IF Else Price=Rs("TD") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %> ￥<%= Price %>
 
客栈旅馆推荐 更多>>
<% JdLx="客栈旅馆" Set Rs=Conn.execute("Select Top 10 * From Hotel Where IsRec=1 And JdLx='"&JdLx&"' Order By OrderID") if Rs.eof or Rs.bof then response.write"" else I=1 Do While Not Rs.eof And I<=10 Tb="" If Rs("IsCheck")=0 Then Title=Gottopic(Rs("HotelName"),22) If Rs("Color")<>"0" then Title=""&Title&"" End IF Select Case Rs("Style") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select Else Title=Gottopic(Rs("SName"),22) If Rs("SColor")<>"0" then Title=""&Title&"" End IF Select Case Rs("SStyle") Case "0":Title=Title Case "b":Title=""&Title&"" Case "i":Title=""&Title&"" End Select End IF HotelID=Rs("HotelID") If Instr(Rs("TD"),"|")>0 Then Temp=Replace(Replace(Rs("TD"),"-",""),"另议","") 'Response.Write(Temp) Ta=Split(Temp,"|") For k=0 To Ubound(Ta) If Trim(Ta(k))<>"" then If Instr(Tb,Ta(k))>0 Then Else Tb=Tb&Ta(k)&"|" End IF End If Next If Instr(Tb,"|")>0 Then Tb=Left(Tb,(Len(Tb)-1)) 'Response.Write(Tb) If Instr(Tb,"|")>0 Then Tc=Split(Tb,"|") T1=SortA(Tc) Price=T1(0) Else Price=Tb End IF Else Price=Tb End IF Else Price=Rs("TD") End IF %> <% Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
暂无该信息!
·<%= Title %> ￥<%= Price %>

合作网站： <% Set Rs=Conn.execute("Select Top 10 * From Link WHere LinkType=1 Order By OrderID") if Rs.eof or Rs.bof then response.write"暂无该信息!" else I=1 Do While Not Rs.eof And I<=10 %> <% If I Mod 10=0 Then Response.Write("") Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
<% Response.Write("     ") %>
>>更多
友情连接： <% Set Rs=Conn.execute("Select Top 10 LinkName,LinkUrl,LinkIntro From Link WHere LinkType=0 Order By OrderID") if Rs.eof or Rs.bof then response.write"暂无友情链接!" else I=1 Do While Not Rs.eof And I<=10 %> <% If I Mod 10=0 Then Response.Write("") Rs.MoveNext I=I+1 Loop end if Rs.Close:Set Rs=Nothing %>
<% Response.Write(""&Rs("LinkName")&"") %>
>>更多

　关于我们｜ 在线客服｜网站地图 |后台登陆 Copyright © 2010-2020 武汉旅游网联盟
武汉旅行社|武汉旅游网|武汉旅游公司|武汉旅游线路|武汉旅游景点|武汉旅行团|武汉旅游攻略|武汉旅行社报价　广告业务QQ:1270986173　电话：15807167822
 备案2010-隐私权政策 - 鄂ICP备10202500号 www.027lvyou.com All Rights Reserved 武汉旅游网站联盟
<% Function SortA(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If int(ary(I)) > int(ary(I+1)) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop SortA = ary End Function %>