order_pro.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

	<%end if%>
<%
sql="select * from ticket_m "
rs.open sql,conn,1,3
rs.addnew
	rs("订单编号")=dateId
	rs("客户编号")=mem_login
	rs("客户姓名")=customer
	rs("联系电话")=telephone
	rs("购票紧急联系方式")=mobile
	rs("购票紧急联系手机")=telephone2
	rs("单据类型")=1
	rs("接收时间")=now()
	'rs("OrderState")=1   ''
	rs("网上客户留言")=memo
	rs("送票时间")=SendTicketDate
	if not isnumeric(pay_method) then
		pay_method=2	'票到付款
	end if
	rs("支付方式")=pay_method
	rs("支付类型")=pay_method
	rs("配送要求")=paymentRemark
	if not isnumeric(send_method) then
		send_method=1	'1是电子客票
	end if
	rs("送票方式")=send_method
	rs("送票城市")=SendTicketCity
	rs("送票标志建筑")=building
	rs("邮政编码")=postcode
	if trim(paymentConfirm)<>"" then
		rs("出票确认方式")=cint(paymentConfirm)
	end if
	rs("送票地址")=address
	rs("网上扣款标志")=1
	rs("购票电邮地址")=CEmail
	rs("网上结算金额")=sumAllPrice
	session("Allmoney")=sumAllPrice
	rs("订座编号")=left(StrResult,5)
	rs("iftonghang")=iftonghang
	rs("印刷序号")=printtonghangid
	rs("验证代码")=right(printtonghangid,4)
	rs("送票紧急程度")=out_quickgrade
	'if isdate(outdate) then
	rs("订票时间")=now()
	'end if
rs.update
rs.close
%>
	<!--调用下订单函数-->
<%
	if session("id_back")<>"" then
		call GoOrder(L_city_from_bak,L_city_to_bak,L_CityFromCode,L_CityToCode,L_ticketprice,L_fullprice,L_Cfullprice,L_Bfullprice,L_flightschedule,L_flighttime,L_cabintype,L_jianshefei,L_msg_back,L_ZXLCityFlyCode,L_planeType,L_timeTo,L_gasTaxPrice,L_airways,L_input_time,"1",L_rebate,bunkseat,providercode,fandian,backmoney,limitif,ticketgrade,qianzhu,special)
		
		else
		
		call GoOrder(city_from_bak,city_to_bak,CityFromCode,CityToCode,ticketprice,fullprice,Cfullprice,Bfullprice,flightschedule,flighttime,cabintype,jianshefei,msg_back,ZXLCityFlyCode,planeType,timeTo,gasTaxPrice,airways,input_time,"0",rebate,bunkseat,providercode,fandian,backmoney,limitif,ticketgrade,qianzhu,special)
	end if
%>

	<!--下订单函数部分-->	
<%
	sub GoOrder(Tempcity_from_bak,Tempcity_to_bak,TempCityFromCode,TempCityToCode,Tempticketprice,Tempfullprice,TempCfullprice,TempBfullprice,Tempflightschedule,Tempflighttime1,Tempcabintype,Tempjianshefei,Tempmsg_back,TempZXLCityFlyCode,tempplaneType,TemptimeTo,TempgasTaxPrice,Tempairways,Tempinput_time,TemptripNum,Temprebate,Tempbunkseat,Tempprovidercode,Tempfandian,Tempbackmoney,Templimitif,Tempticketgrade,Tempqian_zhu,Tempspecial)
	Tempticketprice=Cint(Tempticketprice)
	Tempfullprice=Cint(Tempfullprice)
	TempCfullprice=Cint(TempCfullprice)
	TempBfullprice=Cint(TempBfullprice)
	TempgasTaxPrice=Cint(TempgasTaxPrice)	'燃油附加税
	sql="select * from ticket_D"
	rs.open sql,conn,1,3
	'''''''''''''''adult
	for i=1 to AdultNum
		rs.addnew
		rs("订单编号")=dateId
		rs("序号")=i
		rs("乘客姓名")=adultname(i)
		rs("证件")=cid(i)
		rs("保险")=baoxian(i)
		rs("类型")="成人"
		if Notype(i)="NI" then
			AdultNotype4=1
		elseif Notype(i)="PP" then
			AdultNotype4=2
		else
			AdultNotype4=3
		end if
		rs("证件类型")=AdultNotype4
		rs("航班号")=Tempflightschedule
		rs("起飞时间")=Tempinput_time
		rs("TakeOffTime")=Tempflighttime1
		rs("航段")=TempZXLCityFlyCode
		rs("舱")=Tempcabintype
		rs("票价")=Tempticketprice	'票价
		rs("售价")=Tempfullprice	'全价
		rs("税收")=Tempjianshefei	'50
		rs("机型")=tempplaneType
		rs("客票类型")=Tempmsg_back
		rs("FromCityCode")=TempCityFromCode
		rs("ToCityCode")=TempCityToCode
		rs("FromCity")=Tempcity_from_bak
		rs("ToCity")=Tempcity_to_bak
		rs("Carrier")=left(Tempflightschedule,2)
		rs("TicketType")="BSP"
		rs("arriveTime")=TemptimeTo
		rs("附加税收")=TempgasTaxPrice	'80
		rs("rebateName")=Temprebate
		rs("PNR号")=left(StrResult,5)
		rs("PNRContent")=StrResult
		'''''''lyq==========2007-5-9-----
		rs("providercode")=Tempprovidercode
		rs("bunkseat")=Tempbunkseat
		rs("limitif")=Templimitif
		if isnumeric(Tempfandian) then
			rs("返点")=Tempfandian
		end if
		if isnumeric(Tempbackmoney) then
			rs("返利")=Tempbackmoney
		end if
		rs("客票级别")=Tempticketgrade
		rs("签注")=Tempqian_zhu
		rs("特殊项")=Tempspecial
		'------------------
		rs.update
	next

	'''''''''''''child
	for m=1 to ChildNum
	rs.addnew
		rs("订单编号")=dateId
		rs("序号")=i
		rs("乘客姓名")=c_name(m)
		rs("出生年月")=c_born(m)
		rs("保险")=c_baoxian(m)
		'rs("证件")=cid(m)
		'rs("证件类型")=1
		rs("类型")="儿童"
		rs("航班号")=Tempflightschedule
		rs("起飞时间")=Tempinput_time
		rs("TakeOffTime")=Tempflighttime1
		rs("航段")=TempZXLCityFlyCode
		rs("舱")=Tempcabintype
		rs("票价")=TempCfullprice	'儿童价不打折扣，为全价的50%
		rs("售价")=Tempfullprice
		rs("税收")=0
		rs("机型")=tempplaneType
		rs("客票类型")=Tempmsg_back
		rs("FromCityCode")=TempCityFromCode
		rs("ToCityCode")=TempCityToCode
		rs("Carrier")=left(Tempflightschedule,2)
		rs("TicketType")="BSP"
		rs("arriveTime")=TemptimeTo
		rs("附加税收")=TempgasTaxPrice*0.5
		rs("rebateName")=Temprebate
		'------------------------lyq
		rs("providercode")=Tempprovidercode
		rs("bunkseat")=Tempbunkseat
		rs("limitif")=Templimitif
		if isnumeric(Tempfandian) then
			rs("返点")=Tempfandian
		end if
		if isnumeric(Tempbackmoney) then
			rs("返利")=Tempbackmoney
		end if
		rs("客票级别")=Tempticketgrade
		rs("签注")=Tempqian_zhu
		rs("特殊项")=Tempspecial
		'---------------------------
		rs.update
		i=i+1
	next
	
	'''''''''''''Baby
	for n=1 to BabyNum
		rs.addnew
		rs("订单编号")=dateId
		rs("序号")=i
		rs("乘客姓名")=b_name(n)
		rs("保险")=b_baoxian(n)
		rs("类型")="婴儿"
		rs("出生年月")=b_born(n)
		'rs("证件")=cid(i)
		'rs("证件类型")=1
		rs("航班号")=Tempflightschedule
		rs("起飞时间")=Tempinput_time
		rs("TakeOffTime")=Tempflighttime1
		rs("航段")=TempZXLCityFlyCode
		rs("舱")=Tempcabintype
		rs("票价")=TempBfullprice
		rs("售价")=Tempfullprice
		rs("税收")=0
		rs("机型")=tempplaneType
		rs("客票类型")=Tempmsg_back
		rs("FromCityCode")=TempCityFromCode
		rs("ToCityCode")=TempCityToCode
		rs("Carrier")=left(Tempflightschedule,2)
		rs("TicketType")="BSP"
		rs("arriveTime")=TemptimeTo
		rs("附加税收")=0
		rs("rebateName")=Temprebate
		rs.update
		i=i+1
	next
	rs.close
end sub

	set rs=nothing
	session("ordertimes")=2	'预订次数
%>

<%
	if tmp(9)<>"" then
		SmsMobile=tmp(9)
	end if
	if mobile<>"" then
		if SmsMobile<>"" then
			SmsMobile=SmsMobile&";"&mobile
		else
			SmsMobile=mobile
		end if
	end if
	HangType="单程"
	if session("id_back")<>"" then
		HangType="往返"
	end if
	if SmsMobile<>"" then
		SmsInfor=dateId&"订单,"&city_from_bak&"至"&city_to_bak
		SmsInfor=SmsInfor+HangType+",起飞时间："&flighttime&",价格"&sumAllPrice&"元."
		if session("PNR")<>"" then
			SmsInfor=SmsInfor&"PNR号"&session("PNR")
		end if
		if registerinfo<>"" then
			SmsInfor=SmsInfor&"，会员密码"&other_code
		end if%>
	<!--#include file="SmsSend.asp"-->		<!--短信提醒-->
	<%end if%>

	<!--#include file="jmail.asp"-->		<!--邮件提醒-->
	<!--#include file="showorder.asp"-->	<!--订单详情-->