|
|
| |
|
 |
|
|
|
|
|
|
|
|
 |
|
 |
| 中旅体育旅行社有限公司是由国家体育总局所属中体竞赛管理集团和中国旅行社总社合作投资组建的具有出境资质的专业旅游公司。 中旅体育旅行社有限公司的宗旨以“体”为本，公司将围绕国内外重大体育赛事、文化、科技、群体活动交流、出入境旅游、..更多 |
|
|
| |
|
| |
 |
 |
<%
'推荐旅游
Pic_sql="select Top 4 * from News where NewsFrom=6 and commend=True And Auditing=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=16 and commend=True And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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 And Auditing=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
%>
|
|
|
|
