classflight.asp

依蓝旅游网站管理系统Elan2008.SP2

	  Selected_TicketID = EL_Common.ELRequest("DepartTicketID", 2)	
	  SearchStep = EL_Common.ELRequest("SearchStep", 1)  
	  
	  If Search_FlightType <> 1 And Search_FlightType <> 2 Then 
	     Response.Redirect InstallDir & EL_Channel.ChannelDir
	  End If 

	  If SearchStep = "" Then
	     SearchStep = "SearchDepartFlight"		 		
	  ElseIf SearchStep = "SearchDepartFlight" Then
	     If Search_FlightType = 1 Then
		    SearchStep = "SearchDepartFlight"
		 Else
			SearchStep = "SearchBackFlight"
		 End If		 
	  End If
  
	  If Flight_DepartCity = "" Or IsNULL(Flight_DepartCity) Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error1", "请选择出发城市"))
		 Exit Sub
	  End If
	  If Flight_DestinationCity = "" Or IsNULL(Flight_DestinationCity) Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error2", "请选择目的城市"))
		 Exit Sub
	  End If  
	  
	  If Not IsDate(Flight_DepartDate) Then Flight_DepartDate = Date()
	  If DateDiff("d", Date(), Flight_DepartDate)<0 Then Flight_DepartDate = Date()
	  
	  If Not IsDate(Flight_BackDate) Then Flight_BackDate = DateAdd("d", 1, Flight_DepartDate)
	  If DateDiff("d", Flight_DepartDate, Flight_BackDate)<1 Then Flight_BackDate = DateAdd("d", 1, Flight_DepartDate)
	  	  
	  Flight_DepartDate = EL_Common.FormatDate(Flight_DepartDate)
	  Flight_BackDate = EL_Common.FormatDate(Flight_BackDate)
	  
	  Call EL_Common.SetCookie(EL_Sn, "Flight_DepartDate", Flight_DepartDate, 7)
	  Call EL_Common.SetCookie(EL_Sn, "Flight_BackDate", Flight_BackDate, 7)
	  Call EL_Common.SetCookie(EL_Sn, "Flight_DepartCity", Flight_DepartCity, 7)
	  Call EL_Common.SetCookie(EL_Sn, "Flight_DestinationCity", Flight_DestinationCity , 7)
	  
	  If Search_FlightType<>1 And Search_FlightType<>2 Then Search_FlightType = 1
	  
	  Select Case SearchStep
	     Case "SearchDepartFlight": '去程
		     SearchDate = Flight_DepartDate
			 SearchTime = Search_DepartTime
		     Search_DepartCity = Flight_DepartCity
		     Search_DestinationCity = Flight_DestinationCity
		 Case "SearchBackFlight": '回程
		     SearchDate = Flight_BackDate
			 SearchTime = Search_BackTime
		     Search_DepartCity = Flight_DestinationCity
		     Search_DestinationCity = Flight_DepartCity
		 Case Else:
		     SearchDate = Flight_DepartDate
			 SearchTime = Search_DepartTime
		     Search_DepartCity = Flight_DepartCity
		     Search_DestinationCity = Flight_DestinationCity
	  End Select

	  If Search_FlightType = 1 Then
		 SearchStep = "SearchDepartFlight"
		 ShowStep = EL_Common.RegExpStaticLabel(EL_Common.Lang("Flight.Step0", "请选择适合您的航班"), "{$Date}", SearchDate)
		 SearchInfo = EL_Common.Lang("Flight.SearchField.f14", "单程") &"（"& EL_Common.Lang("Flight.SearchField.f3", "出发日期：") & Flight_DepartDate &"）"
	  ElseIf Search_FlightType = 2 Then
		 If SearchStep = "SearchDepartFlight" Then
		    ShowStep = EL_Common.RegExpStaticLabel(EL_Common.Lang("Flight.Step1", "请选择适合您去程的航班"), "{$Date}", SearchDate)
		 ElseIf SearchStep = "SearchBackFlight" Then
		    ShowStep = EL_Common.RegExpStaticLabel(EL_Common.Lang("Flight.Step2", "请选择适合您返程的航班"), "{$Date}", SearchDate)
		 End If		 
		 SearchInfo = EL_Common.Lang("Flight.SearchField.f15", "往返") &"（"& EL_Common.Lang("Flight.SearchField.f3", "出发日期：") & Flight_DepartDate &" "& EL_Common.Lang("Flight.SearchField.f5", "返程日期：") & Flight_BackDate &"）"
	  End If

	  Call EL_Common.InitCommand(SearchCmd, "EL_SP_SearchFlight")
	  With SearchCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 .Parameters.Append .CreateParameter("@DepartCity", 200, 1, 100, Search_DepartCity)
		 .Parameters.Append .CreateParameter("@DestinationCity", 200, 1, 100, Search_DestinationCity)
		 .Parameters.Append .CreateParameter("@SearchDate", 135, 1, 8, SearchDate)
		 .Parameters.Append .CreateParameter("@SearchTime", 3, 1, 4, SearchTime)
		 .Parameters.Append .CreateParameter("@CompanyID", 3, 1, 4, Search_CompanyID)
		 .Parameters.Append .CreateParameter("@FCY", 3, 1, 4, Search_FCY)
		 .Parameters.Append .CreateParameter("@ETicket", 3, 1, 4, Search_ETicket)
		 .Parameters.Append .CreateParameter("@OrderType", 3, 1, 4, 9)
		 .Parameters.Append .CreateParameter("@RowCount", 3, 2, 4)
		 Set rsSearch = .Execute()
	  End With
	  rsSearch.Close() 
	  RowCount = SearchCmd(10)
	  rsSearch.Open()
	  HTML = EL_Common.Template(ChannelID, 5, 0)
	  HTML = EL_Common.ReplaceCommonLabels(HTML)	
	  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(EL_Channel.ChannelName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))
	  
	  StrPath = EL_Common.Lang("BaseConfig.Path", "&nbsp;&gt;&gt;&nbsp;")
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath &"<a href='"& InstallDir & EL_Channel.ChannelDir &"/Index.asp'>"& EL_Channel.ChannelName &"</a>"& StrPath & EL_Common.RegExpStaticLabel(EL_Common.Lang("Search.Title", "{$ItemName}搜索"), "{$ItemName}", EL_Channel.ItemName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  
	  HTML = ChannelCommonLabels(HTML)	
	  HTML = Label_SelectedTicket(HTML, SearchStep, Selected_TicketID) 
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Flight_SearchInfo}", SearchInfo) 
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowStep}", ShowStep) 
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_FlightType}", Search_FlightType)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_DepartCity}", Search_DepartCity)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_DestinationCity}", Search_DestinationCity)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_DepartTime}", Search_DepartTime)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_BackTime}", Search_BackTime)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_CompanyID}", Search_CompanyID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_FCY}", Search_FCY)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Search_ETicket}", Search_ETicket)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$SearchStep}", SearchStep)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DepartTicketID}", Selected_TicketID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$BackTicketID}", "")

	  
	  Dim Match, Matches, ReturnString
	  Dim TempString, MatchString, NoList, PriceIcon
	  
	  PriceIcon = EL_Common.Lang("BaseConfig.PriceIcon", "")
	  CommonRegExp.Pattern = "\[ArrSearchResult\][\w\W]*\[\/ArrSearchResult\]"        
      Set Matches = CommonRegExp.Execute(HTML)
	  
	  NoList = EL_Common.RegExpStaticLabel(EL_Common.Lang("Search.NoList", "<p>&nbsp;</p>搜索不到任何{$ItemName}<p>&nbsp;</p>"), "{$ItemName}", EL_Channel.ItemName)
	  If RowCount = 0 Then
	     For Each Match in Matches	
		    HTML = Replace(HTML, Match.Value, NoList)
         Next
		 HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPage}", "")
	  Else
		 For Each Match in Matches
		    rsSearch.MoveFirst
			MatchString = Match.Value
			MatchString = EL_Common.ReplaceText(MatchString, "\[ArrSearchResult\]", "")
			MatchString = EL_Common.ReplaceText(MatchString, "\[\/ArrSearchResult\]", "")
			ReturnString = ""
			Dim ItemHTML, TempCityNameString, TaxName
		    For i = 1 To RowCount
			   ItemHTML = MatchString
			   TempCityNameString = ""
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_FlightID}", rsSearch("FlightID"))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_CompanyID}", rsSearch("CompanyID"))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_CompanyLogo}", "<img src='"& rsSearch("LogoURL") &"' border=0>")
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_CompanyShortName}", EL_Common.HTMLEncode(rsSearch("CompanyShortName")))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_CompanyFullName}", EL_Common.HTMLEncode(rsSearch("CompanyFullName")))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_FlightNumber}", rsSearch("FlightNumber"))
			   If rsSearch("ETicket") Then
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_ETicket}", "<img src='"& InstallDir & EL_Channel.ChannelDir &"/Images/ETicket.gif' border=0>")
			   Else
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_ETicket}", "")
			   End If
			   
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_BunkerSurcharge}", EL_Common.ELSplit(rsSearch("BunkerSurcharge"), ",")(0))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_AirportTax}", EL_Common.ELSplit(rsSearch("AirportTax"), ",")(0))			   
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_PlaneID}", rsSearch("PlaneID"))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_PlaneShortName}", EL_Common.HTMLEncode(rsSearch("PlaneShortName")))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_PlaneFullName}", EL_Common.HTMLEncode(rsSearch("PlaneFullName")))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TakeoffTime}", rsSearch("Takeoff_Time"))			   
			   TempCityNameString = EL_Common.HTMLEncode(EL_Common.ELSplit(rsSearch("Takeoff_City"), "$")(1))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TakeoffCity}", TempCityNameString)			   
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TakeoffAirdrome}", EL_Common.HTMLEncode(rsSearch("Takeoff_Airdrome")))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_FallTime}", rsSearch("Fall_Time"))
			   TempCityNameString = EL_Common.HTMLEncode(EL_Common.ELSplit(rsSearch("Fall_City"), "$")(1))
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_FallCity}", TempCityNameString)
			   ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_FallAirdrome}", EL_Common.HTMLEncode(rsSearch("Fall_Airdrome")))
			   If rsSearch("Transfer_City")<> "" Then
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferTime}", rsSearch("Transfer_Time"))
				  TempCityNameString = EL_Common.HTMLEncode(EL_Common.ELSplit(rsSearch("Transfer_City"), "$")(1))
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferCity}", TempCityNameString)
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferAirdrome}", rsSearch("Transfer_Airdrome"))
			   Else
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferTime}", "")
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferCity}", "")
			      ItemHTML = EL_Common.RegExpStaticLabel(ItemHTML, "{$Arr_TransferAirdrome}", "")
			   End If
			   
			   '票务
			   ItemHTML = TicketItems(ItemHTML, rsSearch("FlightID"), SearchStep, Search_FlightType, Search_FCY)
			   
			   ReturnString = ReturnString & ItemHTML
			   If i<RowCount Then rsSearch.MoveNext
		    Next
			HTML = Replace(HTML, Match.Value, ReturnString)	    
		 Next		 
	  End If
	  
	  HTML = Label_GetFlightList(HTML)
	  rsSearch.Close()
	  Set Matches = Nothing   
	  Set rsSearch = Nothing
	  Set SearchCmd = Nothing
	  Session("EL_LastSearchDateTime") = Now()
	  Response.Write HTML
   End Sub
   
   Public Sub ShowCompany()
      Dim CompanyCmd, rsCompany
	  Dim CompanyID
	  
	  CompanyID = EL_Common.ELRequest("CompanyID", 2)	  
 
	  Call EL_Common.InitCommand(CompanyCmd, "EL_SP_GetCompanyInfo")
	  With CompanyCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@CompanyID", 3, 1, 4, CompanyID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsCompany = .Execute()
	  End With
	  rsCompany.Close()
	  If CompanyCmd(0)<>1 Then
	     EL_Common.ShowErrorMsg(EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.InfoError", "指定{$ItemName}不存在"), "{$ItemName}", EL_Common.Lang("Flight.t2", "航空公司")))
		 Set rsCompany = Nothing
		 Set CompanyCmd = Nothing
		 Exit Sub
	  End If
	  rsCompany.Open()
	  
	  HTML = EL_Common.Template(ChannelID, 27, 0)
	  HTML = EL_Common.ReplaceCommonLabels(HTML)	
	  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(EL_Channel.ChannelName, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))

	  HTML = ChannelCommonLabels(HTML)
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$CompanyID}", CompanyID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$CompanyShortName}", EL_Common.ServerHTMLEncode(rsCompany("CompanyShortName")))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$CompanyFullName}", EL_Common.ServerHTMLEncode(rsCompany("CompanyFullName")))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$CompanyLogo}", "<img src='"& rsCompany("LogoURL") &"' border=0>")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Content}", rsCompany("Content"))
	  
	  rsCompany.Close()
	  Set rsCompany = Nothing
	  Set CompanyCmd = Nothing
	  
	  Response.Write HTML
	  
   End Sub
   
   Public Sub ShowPlane()
      Dim PlaneCmd, rsPlane
	  Dim PlaneID
	  
	  PlaneID = EL_Common.ELRequest("PlaneID", 2)	  
 
	  Call EL_Common.InitCommand(PlaneCmd, "EL_SP_GetPlaneInfo")
	  With PlaneCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@CompanyID", 3, 1,