中旅体育旅行社(皇家假期)--张家界旅游,澳大利亚旅游,马尔代夫旅游,东南亚旅游,非洲旅游,印度旅游

<% Function TodayWeek(Sdate) Response.Write(Year(Date()) & "年" & Month(Date()) & "月" & Day(Date()) & "日 ") Select Case Sdate Case 1 Response.Write("星期日") Case 2 Response.Write("星期一") Case 3 Response.Write("星期二") Case 4 Response.Write("星期三") Case 5 Response.Write("星期四") Case 6 Response.Write("星期五") Case 7 Response.Write("星期六") End Select End Function Response.write(TodayWeek(Weekday(Date()))) %>

　在线搜索: 团号


	由于圣诞、春节期间机票折扣及地接价格变化频繁，请各位朋友在报名之前确认机位、价格、行程。价格如有变动，以报名确认时为准！请遵守当地的法律法规，注意人身及财产安全。祝您旅途愉快。 ☆优惠大酬宾☆ 为了迎接圣诞、春节我社特推出报名即可赠送500元美容卡，数量有限，先到先得。

用户名:
密　码:


咨询：早8点-晚10点
	8006102468 010-64646757 010-84543445
	值班：010-67709345
	QQ客服
	422041172
	461000850
	请点击MSN地址洽谈
	rh5166@hotmail.com
	hjjq01@hotmail.com
	邮箱
	hjjq@rh5166.com

[帮助中心] [支付演示] [安全中心]

　　中旅体育旅行社有限公司是由国家体育总局所属中体竞赛管理集团和中国旅行社总社合作投资组建的具有出境资质的专业旅游公司..更多

<% '推荐旅游 Pic_sql="select Top 4 * from News where NewsFrom=6 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '特价旅游 Pic_sql="select Top 4 * from News where NewsFrom=4 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=41 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '欧洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=42 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=43 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=46 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=44 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=1 and Pro_ID=45 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=5 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=4 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=9 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=10 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=3 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=19 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=12 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

<% '亚洲 Pic_sql="select Top 4 * from News where NewsFrom=2 and City_ID=11 and commend=True order by AddTime desc" set pic_rs=Server.CreateObject("Adodb.Recordset") pic_rs.open pic_sql,conn,1,1 do while not pic_rs.eof If pic_rs.eof Then Title="暂无线路资料" Else Title=Left(Pic_Rs("Title"),6) TitleAll=Pic_Rs("Title") newsfrom=Pic_Rs("newsfrom") News_Id=Pic_Rs("Id") GroupId=Pic_Rs("GroupId") If Pic_Rs("CopyID")<>0 Then Pic_Rs_Id=Pic_Rs("CopyId") Else Pic_Rs_Id=Pic_Rs("Id") End If mysql="SELECT Top 1 * FROM GoDate Where News_ID=" & Pic_Rs_Id Set rs=Server.CreateObject("Adodb.Recordset") rs.open mysql,conn,1,1 If rs.eof Then GroupId="暂无" GoTime="" Hotel="" FlyCompany="" Price="" Else GoTime=Left(Rs("GoTime"),8) Hotel=Rs("Hotel") FlyCompany=Rs("FlyCompany") Price=Left(Rs("Price"),7) End if End If %> <% pic_rs.movenext loop 'Rs.close Set Rs=Nothing pic_rs.close set pic_rs=nothing %>

加入收藏　｜　｜　｜　｜　｜｜　｜　｜　｜　｜

copyright◎2006 版权所有：中旅集团中旅体育旅行社　技术支持：天圆互动
地址：北京市朝阳区西坝河南里3号楼（国都商务楼）2008室　邮编：100028
24小时咨询热线：8006102468 010-64646757
部分资料源自网上，如造成您的不便，请及时通知我们
ICP备案: 京ICP备06063861号