📄 classflight.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
   Public Sub BookConfirm()		  
	  
	  Dim BookType
      Dim DepartFlightCmd, rsDepartFlight
	  Dim DepartTicketID, BackTicketID, DepartDate, BackDate, FlightType
	  Dim DepartFlightID, BackFlightID, DepartCity, DestinationCity
	  
	  BookType = EL_Common.ELRequest("BookType", 2)
	  DepartTicketID = EL_Common.ELRequest("DepartTicketID", 2)
	  BackTicketID = EL_Common.ELRequest("BackTicketID", 2)
	  DepartDate = EL_Common.ELRequest("DepartDate", 1)
	  BackDate = EL_Common.ELRequest("BackDate", 1)
	  FlightType = EL_Common.ELRequest("FlightType", 2)
	  
	  If EL_User.UserIsLogin = False And BookType = 0 Then
	     Dim TempURL
		 TempURL = InstallDir & EL_Channel.ChannelDir &"/"& EL_CurrentScriptName &"?"
		 TempURL = TempURL &"DepartTicketID="& DepartTicketID 
		 TempURL = TempURL &"&BackTicketID="& BackTicketID
		 TempURL = TempURL &"&DepartDate="& DepartDate
		 TempURL = TempURL &"&BackDate="& BackDate
		 TempURL = TempURL &"&FlightType="& FlightType 
		 TempURL = TempURL &"&BookType=1"
		 Response.Redirect InstallDir &"User/Login.asp?url="& EL_Common.ServerURLEncode(TempURL) 
	  End If
	  
	  Call EL_Common.CheckEnableBook(EL_User.UserType)
	  	  
	  '校验提交数据
	  If FlightType <>1 And FlightType <> 2 Then 
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error4", "航班类型错误"))
		 Exit Sub
	  End If
	  
	  If DepartTicketID <= 0 Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error5", "系统无法查询到去程机票"))
		 Exit Sub
	  End If
	  
	  If Not IsDate(DepartDate) Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error7", "出发日期格式错误，必须以“yyyy-mm-dd”的格式提交"))
		 Exit Sub
	  End If
	  If DateDiff("d", Date(), DepartDate)<0 Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error8", "出发日期必须大于或者等于现在日期"))
		 Exit Sub
	  End If
	  
	  DepartDate = EL_Common.FormatDate(DepartDate)
	  BackDate = EL_Common.FormatDate(BackDate)
	  
	  Call EL_Common.SetCookie(EL_Sn, "Flight_DepartDate", DepartDate, 7)
	  Call EL_Common.SetCookie(EL_Sn, "Flight_BackDate", BackDate, 7)
	  
	  If FlightType = 2 Then
	     If BackTicketID <= 0 Then
	        EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error6", "系统无法查询到返程机票"))
		    Exit Sub
	     End If
		 If Not IsDate(BackDate) Then
	        EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error9", "返程日期格式错误，必须以“yyyy-mm-dd”的格式提交"))
		    Exit Sub
	     End If
	     If DateDiff("d", CDate(DepartDate), BackDate)<0 Then
	        EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error10", "返程日期必须大于或者等于出发日期"))
		    Exit Sub
	     End If
		 BackDate = EL_Common.FormatDate(BackDate)
	  End If
	  
	  DepartCity = EL_Common.ELSplit(Flight_DepartCity, "$")(1)
	  DestinationCity = EL_Common.ELSplit(Flight_DestinationCity, "$")(1)
	  
	  If DepartCity = "" Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error1", "请选择出发城市"))
		 Exit Sub
	  End If
	  
	  If DestinationCity = "" Then
	     EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error2", "请选择目的城市"))
		 Exit Sub
	  End If
	  
	  HTML = EL_Common.Template(ChannelID, 8, 0)
	  
	  HTML = EL_Common.ReplaceCommonLabels(HTML)	  
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$PageTitle}", EL_Common.Join2String(DepartCity &"-"& DestinationCity, SiteTitle, EL_Common.TitleDivide))
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(ChannelID, 0, 0))
	  
	  Dim StrPath
	  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>" 
	  EL_Common.ShowPath = EL_Common.ShowPath & StrPath & EL_Common.RegExpStaticLabel(EL_Common.Lang("BaseConfig.BookPath.Book", "{$ItemName}预订"), "{$ItemName}", EL_Channel.ItemName) & StrPath & EL_Common.Lang("BaseConfig.BookPath.Confirm", "订单信息确认")
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowPath}", EL_Common.ShowPath)
	  
	  HTML = ChannelCommonLabels(HTML)	  
	  
	  HTML = Label_DepartTicket(HTML, DepartTicketID, DepartDate, DepartFlightID)
	  HTML = Label_BackTicket(HTML, BackTicketID, BackDate, BackFlightID, FlightType)	
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DepartCity}", DepartCity)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DestinationCity}", DestinationCity)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$FlightType}", FlightType)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DepartFlightID}", DepartFlightID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$BackFlightID}", BackFlightID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DepartDate}", DepartDate)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$BackDate}", BackDate)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$DepartTicketID}", DepartTicketID)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$BackTicketID}", BackTicketID)   
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$ShowConfirmType}", EL_Common.GetConfirmType())
	  
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$TrueName}", EL_User.TrueName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$UserName}", EL_User.UserName)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Mobile}", EL_User.Mobile)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Phone}", EL_User.Phone)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Fax}",EL_User. Fax)
	  HTML = EL_Common.RegExpStaticLabel(HTML, "{$Email}", EL_User.Email)
	  
	  Response.Write HTML
   End Sub
   
   Private Function Label_DepartTicket(ByVal HTML, ByVal TicketID, ByVal DepartDate, DepartFlightID)
      Dim TicketCmd, rsTicket, RowCount
	  Dim Match, Matches, ReturnString, MatchString
	  CommonRegExp.Pattern = "\[DepartTicket\][\w\W]*\[\/DepartTicket\]"
	  Set Matches = CommonRegExp.Execute(HTML)
	  ReturnString = HTML
	     
		 Call EL_Common.InitCommand(TicketCmd, "EL_SP_GetTicketInfo")
		 With TicketCmd
		    .Parameters.Append .CreateParameter("RETURN", 2, 4)
			.Parameters.Append .CreateParameter("@TicketID", 3, 1, 4, TicketID)
			.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
			Set rsTicket = .Execute()
		 End With
		 rsTicket.Close()
		 RowCount = TicketCmd(0)
		 If RowCount<>1 Then
		    Select Case RowCount
			   Case 40: EL_Common.ShowErrorMsg(EL_Common.Lang("BaseConfig.ChannelError", "频道参数错误"))				  
			   Case 41: EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error5", "系统无法查询到去程机票"))
			End Select
			Set rsTicket = Nothing
			Set TicketCmd = Nothing
			Exit Function
		 Else
			rsTicket.Open()
			Dim TempCityString, PriceIcon
			PriceIcon = EL_Common.Lang("BaseConfig.PriceIcon", "&#xFFE5;")
			DepartFlightID = rsTicket("FlightID")
			For Each Match in Matches
			   MatchString = Match.Value
			   MatchString = EL_Common.ReplaceText(MatchString, "\[DepartTicket\]", "")
			   MatchString = EL_Common.ReplaceText(MatchString, "\[\/DepartTicket\]", "")
			   
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_Title}", EL_Common.Lang("Flight.t4", "去程机票"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_DepartDate}", DepartDate)
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TakeoffCity}", EL_Common.ELSplit(rsTicket("Takeoff_City"), "$")(1))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TakeoffTime}", rsTicket("Takeoff_Time"))		   
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TakeoffAirdrome}", rsTicket("Takeoff_Airdrome"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FallTime}", rsTicket("Fall_Time"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FallCity}", EL_Common.ELSplit(rsTicket("Fall_City"), "$")(1))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FallAirdrome}", rsTicket("Fall_Airdrome"))
			   If rsTicket("Transfer_City")<>"" Then
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferCity}", EL_Common.ELSplit(rsTicket("Transfer_City"), "$")(1))
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferTime}", rsTicket("Transfer_Time"))
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferAirdrome}", rsTicket("Transfer_Airdrome"))
			   Else
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferCity}", "")
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferTime}", "")
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TransferAirdrome}", "")
			   End If
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_DepartDate}", Flight_DepartDate)
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_BunkerSurcharge}", rsTicket("BunkerSurcharge"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_AirportTax}", rsTicket("AirportTax"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FlightNumber}", rsTicket("FlightNumber"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_CompanyID}", rsTicket("CompanyID"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_CompanyShortName}", rsTicket("CompanyShortName"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_CompanyFullName}", rsTicket("CompanyFullName"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_PlaneID}", rsTicket("PlaneID"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_PlaneShortName}", rsTicket("PlaneShortName"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_PlaneFullName}", rsTicket("PlaneFullName"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_TicketName}", rsTicket("TicketName"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FCY}", EL_ArrFCY(rsTicket("FCY")))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_FullPrice}", PriceIcon & rsTicket("FullPrice"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_BookPrice}", PriceIcon & rsTicket("Price_Adult"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_PriceChild}", PriceIcon & rsTicket("Price_Child"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Depart_PriceInfant}", PriceIcon & rsTicket("Price_Infant"))
			   
			   ReturnString = Replace(ReturnString, Match.Value, MatchString)
			Next
			rsTicket.Close()			
		 End If		 
		 Set rsTicket = Nothing
		 Set TicketCmd = Nothing		 
		 
	  Set Matches = Nothing
	  Label_DepartTicket = ReturnString
   End Function
   
   Private Function Label_BackTicket(ByVal HTML, ByVal TicketID, ByVal BackDate, BackFlightID, ByVal FlightType)
      Dim TicketCmd, rsTicket, RowCount
	  Dim Match, Matches, ReturnString, MatchString
	  CommonRegExp.Pattern = "\[BackTicket\][\w\W]*\[\/BackTicket\]"
	  Set Matches = CommonRegExp.Execute(HTML)
	  ReturnString = HTML
	  If FlightType = 1 Then
	     For Each Match in Matches
		    ReturnString = Replace(ReturnString, Match.Value, "")
		 Next
	  Else	     
	     Call EL_Common.InitCommand(TicketCmd, "EL_SP_GetTicketInfo")
		 With TicketCmd
		    .Parameters.Append .CreateParameter("RETURN", 2, 4)
			.Parameters.Append .CreateParameter("@TicketID", 3, 1, 4, TicketID)
			.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
			Set rsTicket = .Execute()
		 End With
		 rsTicket.Close()
		 RowCount = TicketCmd(0)
		 If RowCount<>1 Then
		    Select Case RowCount
			   Case 40: EL_Common.ShowErrorMsg(EL_Common.Lang("BaseConfig.ChannelError", "频道参数错误"))				  
			   Case 41: EL_Common.ShowErrorMsg(EL_Common.Lang("Flight.Error6", "系统无法查询到返程机票"))
			End Select
			Set rsTicket = Nothing
			Set TicketCmd = Nothing
			Exit Function
		 Else
			rsTicket.Open()
			Dim TempCityString, PriceIcon
			PriceIcon = EL_Common.Lang("BaseConfig.PriceIcon", "&#xFFE5;")
			BackFlightID = rsTicket("FlightID")
			For Each Match in Matches
			   MatchString = Match.Value
			   MatchString = EL_Common.ReplaceText(MatchString, "\[BackTicket\]", "")
			   MatchString = EL_Common.ReplaceText(MatchString, "\[\/BackTicket\]", "")
			   
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_Title}", EL_Common.Lang("Flight.t5", "回程机票"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_DepartDate}", BackDate)
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TakeoffCity}", EL_Common.ELSplit(rsTicket("Takeoff_City"), "$")(1))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TakeoffTime}", rsTicket("Takeoff_Time"))		   
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TakeoffAirdrome}", rsTicket("Takeoff_Airdrome"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_FallTime}", rsTicket("Fall_Time"))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_FallCity}", EL_Common.ELSplit(rsTicket("Fall_City"), "$")(1))
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_FallAirdrome}", rsTicket("Fall_Airdrome"))
			   If rsTicket("Transfer_City")<>"" Then
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferCity}", EL_Common.ELSplit(rsTicket("Transfer_City"), "$")(1))
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferTime}", rsTicket("Transfer_Time"))
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferAirdrome}", rsTicket("Transfer_Airdrome"))
			   Else
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferCity}", "")
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferTime}", "")
			      MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_TransferAirdrome}", "")
			   End If
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_DepartDate}", Flight_DepartDate)
			   MatchString = EL_Common.RegExpStaticLabel(MatchString, "{$Back_BunkerSurcharge}", rsTicket("BunkerSurcharge"))
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -