<%
Newsfrom=MyClass.GetSafeStr(Request("Newsfrom"))
BigID=MyClass.GetSafeStr(Request.QueryString("BigID"))
SmallID=MyClass.GetSafeStr(Request.QueryString("SmallID"))
If Trim(Newsfrom)="" or Not IsNumeric(Newsfrom) Then
Response.Write("参数传递非法!")
Response.End()
End if
province_id=BigID
city_id=SmallID
'先获得省
If Newsfrom=1 Or Newsfrom=2 Then
If Newsfrom=1 Then
city_sql="select * from city where id=" & city_id
set city_rs=Server.CreateObject("Adodb.Recordset")
city_rs.open city_sql,conn,1,1
If not city_rs.eof then
Province_Id=city_rs("Pro_Id")
End If
city_rs.close
set city_rs=nothing
pro_sql="select * from province where id=" & province_id
city_sql="select * from city where id=" & city_id
ElseIf Newsfrom=2 Then
pro_sql="select * from Chinapro where id=" & province_id
city_sql="select * from ChinaCity where id=" & city_id
End If
set pro_rs=Server.CreateObject("Adodb.Recordset")
pro_rs.open pro_sql,conn,1,1
If not pro_rs.eof then
old_pro=pro_rs("province_name")
End If
pro_rs.close
set pro_rs=nothing
'再获得市
set city_rs=Server.CreateObject("Adodb.Recordset")
city_rs.open city_sql,conn,1,1
If not city_rs.eof then
old_city=city_rs("city_name")
End If
city_rs.close
set city_rs=nothing
End If
%>
中旅体育旅行社(皇家假期)
<%
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())))
%>
<% If Newsfrom<>"1" Then Response.Write("交通工具") Else Response.Write("航空公司") End If %>
酒店
价格
详情
文档
<%
'国外旅游
Pic_sql="select * from News where NewsFrom=" & NewsFrom & " and NewsType=0 and city_id=" & SmallId & " 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
TitleAll="暂无线路资料"
Else
Title=Left(Pic_Rs("Title"),8)
TitleAll=Pic_Rs("Title")
newsfrom=Pic_Rs("newsfrom")
News_Id=Pic_Rs("Id")
DocUrl=Pic_Rs("DocUrl")
If DocUrl="" Then DocUrl="#" End If
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=Rs("GoTime")
Hotel=Rs("Hotel")
FlyCompany=Rs("FlyCompany")
Price=Rs("Price")
End if
End If
%>
<%
pic_rs.movenext
loop
'Rs.close
Set Rs=Nothing
pic_rs.close
set pic_rs=nothing
%>
自助旅游
比较
团队编号
线路名称
出发日期
<% If Newsfrom<>"1" Then Response.Write("交通工具") Else Response.Write("航空公司") End If %>
酒店
价格
详情
文档
<%
'国外旅游
Pic_sql="select * from News where NewsFrom=" & NewsFrom & " and NewsType=2 and city_id=" & SmallId & " 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
TitleAll="暂无线路资料"
Else
Title=Left(Pic_Rs("Title"),8)
TitleAll=Pic_Rs("Title")
newsfrom=Pic_Rs("newsfrom")
News_Id=Pic_Rs("Id")
DocUrl=Pic_Rs("DocUrl")
If DocUrl="" Then DocUrl="#" End If
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=Rs("GoTime")
Hotel=Rs("Hotel")
FlyCompany=Rs("FlyCompany")
Price=Rs("Price")
End if
End If
%>
<%
pic_rs.movenext
loop
'Rs.close
Set Rs=Nothing
pic_rs.close
set pic_rs=nothing
%>
相关路线
比较
团队编号
线路名称
出发日期
<% If Newsfrom<>"1" Then Response.Write("交通工具") Else Response.Write("航空公司") End If %>
酒店
价格
详情
文档
<%
'国外旅游
Pic_sql="select * from News where NewsFrom=" & NewsFrom & " and NewsType=3 and city_id=" & SmallId & " 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
TitleAll="暂无线路资料"
Else
Title=Left(Pic_Rs("Title"),8)
TitleAll=Pic_Rs("Title")
newsfrom=Pic_Rs("newsfrom")
News_Id=Pic_Rs("Id")
DocUrl=Pic_Rs("DocUrl")
If DocUrl="" Then DocUrl="#" End If
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=Rs("GoTime")
Hotel=Rs("Hotel")
FlyCompany=Rs("FlyCompany")
Price=Rs("Price")
End if
End If
%>
