order_pro---.asp

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

<%dbdns="../"%>
<!--#include file="../conn.asp"-->
<!--#include file="../Config.asp"-->
<!--#include file="../client_infor.asp"-->
<%
server.scripttimeout=3000
'公共数据区域
if session("FromTicket_userconfirm")<>"true" then	'判断页面是否是停留超过session的保存期
	call msginfor("对不起，页面停留超过了系统规定的时间，请重新预订",SessionTimeOutToURL)
	response.end
end if
if session("PNR")<>"" or session("ordertimes")=2 then 	'判断是已经提交过数据。
	call msginfor("尊敬的旅客，为了确保系统数据的稳定和准确，请您不要重复提交数据！",SessionTimeOutToURL)
	response.end
end if
set rs=server.CreateObject("adodb.recordset")
redim a(13)
a(1)="JAN"
a(2)="FEB"
a(3)="MAR"
a(4)="APR"
a(5)="MAY"
a(6)="JUN"
a(7)="JUL"
a(8)="AUG"
a(9)="SEP"
a(10)="OCT"
a(11)="NOV"
a(12)="DEC"
''联系人信息
	mem_login=trim(request.form("mem_login"))	'会员卡号
	customer=trim(request.form("customer"))		'联系人姓名
	telephone=trim(request.form("telephone"))	'电话
	mobile=trim(request.form("mobile"))			'手机
	telephone2=trim(request.form("telephone2"))	'紧急联系方式
	out_quickgrade=trim(request.form("out_quickgrade"))	'出票紧急程度
	outdate=trim(request.form("outdate"))		'出票时间
	CEmail=request.form("CEmail")				'邮件	
	send_method=trim(request.form("send_method"))	'送票方式
	pay_method=trim(request.form("pay_method"))		'付款方式
	paymentConfirm=request.form("paymentConfirm")	'确认方式
	SendTicketDate=request.form("SendTicketDate")	'送票时间
	paymentRemark=request.form("paymentRemark")		'配送要求
	postcode=trim(request.form("postcode"))			'邮编
	building=trim(request.form("building"))			'附近标志建筑物
	SendTicketCity=request.form("SendTicketCity")	'送票城市
	address=trim(request.form("address"))			'送票地址
	memo=trim(request.form("memo")) 				'备注   
%>
<%
'''去程数据,承运组信息
flightdate=cdate(trim(request.form("flightdate")))  '起飞日期
city_from_bak=trim(request.form("city_from"))  '出发城市
city_to_bak=trim(request.form("city_to"))      '到达城市
ticketprice=cint(trim(request.form("price")))     	'票价
fullprice=cint(trim(request.form("fullprice")))     '全价票价
Cfullprice=cint(trim(request.form("Cfullprice")))	'儿童价    
Bfullprice=cint(trim(request.form("Bfullprice"))) 	'婴儿价
flightschedule=trim(request.form("flightschedule"))	'航班号
flighttime=trim(request.form("flighttime"))
flighttime=flightdate&" "&left(flighttime,2)&":"&mid(flighttime,4,2) '起飞时间
''state1=request.form("state1") 
dining=request.form("dining")					'餐
input_time=right("0"&day(flightdate),2)&a(month(flightdate))&year(flightdate)	'起飞时间的另一格式
cabintype=trim(request.form("cabintype"))    	'舱位信息,如Y，K
msg_back=request.form("msg_back")				'电子票
ZXLCityFlyCode=trim(request.form("ZXLCityFlyCode"))	'三支代码，来往城市组合
CityFromCode=left(ZXLCityFlyCode,3)
CityToCode=right(ZXLCityFlyCode,3)
planeType=request.form("planeType")				'飞机号
timeto=request.form("timeTo")					'到达时间
gasTaxPrice=cint(trim(request.form("gasTaxPrice")))			'燃油费
if gasTaxPrice="" then
	gasTaxPrice=100
end if
jianshefei=cint(trim(request.form("jianshefei")))			'建设费
if jianshefei="" then
	jianshefei=50
end if
airways=request.form("airways")					'航空公司
rebate=request.form("rebate")					'舱位名称
''''===========lyq 2007-3-18
bunkseat=request.Form("bunkseat")
providercode=request.Form("providercode")
fandian=request.Form("fandian")
backmoney=request.Form("backmoney")
limitif=request.Form("limitif")
ticketgrade=request.Form("ticketgrade")
qianzhu=request.Form("qianzhu")
special=request.Form("special")

%>
<%
'判断第二程
if session("id_back")<>"" then
'-------------------------------------------------------------------
	flightdate1=cdate(trim(request.form("flightdate1")))  '起飞日期
	dining1=request.form("dining1")
	city_from_bak1=trim(request.form("city_from1"))  
	city_to_bak1=trim(request.form("city_to1"))      
	ticketprice1=trim(request.form("price1"))     '票价
	fullprice1=trim(request.form("fullprice1"))   '全价票价
	Cfullprice1=trim(request.form("Cfullprice1"))    
	Bfullprice1=trim(request.form("Bfullprice1")) 
	flightschedule1=trim(request.form("flightschedule1"))' 航班号
	flighttime1=trim(request.form("flighttime1"))
	cabintype1=trim(request.form("cabintype1"))    '舱位信息
	msg_back1=request.form("msg_back1")
	ZXLCityFlyCode1=trim(request.form("ZXLCityFlyCode1"))
	CityFromCode1=left(ZXLCityFlyCode1,3)
	CityToCode1=right(ZXLCityFlyCode1,3)
	planeType1=request.form("planeType1")
	timeto1=request.form("timeTo1")
	gasTaxPrice1=request.form("gasTaxPrice1")
	if gasTaxPrice1="" then
		gasTaxPrice1=100
	end if
	jianshefei1=request.form("jianshefei1")
	if jianshefei1="" then
		jianshefei1=50
	end if
	airways1=request.form("airways1")
	flighttime1=flightdate1&" "&left(flighttime1,2)&":"&mid(flighttime1,4,2) '起飞时间
	input_time1=right("0"&day(flightdate1),2)&a(month(flightdate1))&year(flightdate1)
	rebate1=request.form("rebate1")
		'''''==========lyq 2007-3-19
	bunkseat1=request.Form("bunkseat1")
	providercode1=request.Form("providercode1")
	fandian1=request.Form("fandian1")
	backmoney1=request.Form("backmoney1")
	limitif1=request.Form("limitif1")
	ticketgrade1=request.Form("ticketgrade1")
	qianzhu1=request.Form("qianzhu1")
	special1=request.Form("special1")
	
	'''''将来回程的数据进行组合
	L_flightdate= flightdate&"|"&flightdate1 		'起飞日期
	L_city_from_bak=city_from_bak&"|"&city_from_bak1'出发城市
	L_city_to_bak= city_to_bak&"|"&city_to_bak1     '到达城市
	L_ticketprice= ticketprice + ticketprice1  	'票价
	L_fullprice= fullprice + fullprice1    			'全价票价
	L_Cfullprice= Cfullprice + Cfullprice1			'儿童价    
	L_Bfullprice= Bfullprice + Bfullprice1			'婴儿价
	L_flightschedule= flightschedule&"|"&flightschedule1'航班号
	L_flighttime= flighttime&"|"&flighttime1			'起飞时间
	L_dining= dining&"|"&dining1						'餐
	L_input_time= input_time&"|"&input_time1			'起飞时间的另一格式
	L_cabintype=cabintype&"|"& cabintype1				'舱位信息,如Y，K
	L_msg_back=msg_backmsg_back1						'电子票
	L_ZXLCityFlyCode=ZXLCityFlyCode&"|"&ZXLCityFlyCode1'三支代码，来往城市组合
	L_CityFromCode = CityFromCode&"|"&CityFromCode1
	L_CityToCode = CityToCode&"|"&CityToCode1
	L_planeType=planeType&"|"&planeType1				'飞机号
	L_timeto=timeto&"|"&timeto1						'到达时间
	L_gasTaxPrice=gasTaxPrice + gasTaxPrice1		'燃油费
	L_jianshefei=jianshefei + jianshefei1	'建设费
	L_airways=airways&"|"&airways1			'航空公司
	L_rebate=rebate&"|"&rebate1				'舱位名称
end if
%>
<%
''乘客信息
	AdultNum=request.form("AdultNum")
	ChildNum=request.form("ChildNum")
	BabyNum=request.form("BabyNum")
	if not isnumeric(AdultNum) then
		AdultNum=1
	end if
	if not isnumeric(ChildNum) then
		ChildNum=0
	end if
	if not isnumeric(BabyNum) then
		BabyNum=0
	end if
	if  BabyNum>AdultNum then
		errinfor("对不起，婴儿数不能大于成人的数量")
		response.end
	end if
	'If ChildNum>0 Or BabyNum>0 Then
		'errinfor("尊敬的旅客，儿童票、婴儿票暂不提供网上预定，如须预定请联系我司工作人员!")
		'response.End
	'End if
	ticketcount=AdultNum+ChildNum+BabyNum	'票数
	Allbaoxian=0	'保险数总量
	sumAllPrice=0	'总价变量
	'''定义成人数组
	redim adultname(9),cid(9),notype(9),baoxian(9)		
	for i=1 to AdultNum
		adultname(i)=request.form("Adultname"&i)	'姓名
		cid(i)=request.form("Adultcid"&i)			'证件号码
		notype(i)=request.form("AdultNotype"&i)		'证件类型
		baoxian(i)=request.form("Adultbaoxian"&i)	'保险数
		Allbaoxian=Allbaoxian + baoxian(i)
	next
	'''定义儿童数组
	redim c_name(9),c_born(9),c_baoxian(9)
	for i=1 to ChildNum
		c_name(i)=request.form("Childname"&i)	'姓名
		c_born(i)=request.form("Childborn"&i)	'出生年月
		c_baoxian(i)=request.form("Childbaoxian"&i)		'保险数
		Allbaoxian=Allbaoxian + c_baoxian(i)
	next
	'''定义婴儿数组
	redim b_name(9),b_born(9),b_baoxian(9)
	for i=1 to BabyNum
		b_name(i)=request.form("Babyname"&i)	'姓名
		b_born(i)=request.form("Babyborn"&i)	'出生年月
		b_baoxian(i)=request.form("Babybaoxian"&i)		'保险数
		Allbaoxian=Allbaoxian + b_baoxian(i)
	next
	'''去程总价
	sumAllPrice=(ticketprice+gasTaxPrice+jianshefei)*AdultNum+Cfullprice*ChildNum+Bfullprice*BabyNum+Allbaoxian*20
	if session("id_back")<>"" Then	'回程总价
		sumAllPrice=sumAllPrice+(ticketprice1+gasTaxPrice1+jianshefei1)*AdultNum+Cfullprice1*ChildNum+Bfullprice1*BabyNum+Allbaoxian*20
	end if
%>
<%
'产生订单号
Function sjs 
    Dim MyValue 
    Randomize '对随机数生成器做初始化的动作。 
    MyValue = Int((8 * Rnd) + 1) ' 生成 1 到 8 之间的随机数值 
    sjs=MyValue 
End Function
''''''''''''时间转换为ID
dateId=right(year(now()),2)
myMonth=right("0"&month(now()),2)
myday=right("0"&day(now()),2)
myHour=right("0"&hour(now()),2)
myMinute=right("0"&minute(now()),2)
mySecond=right("0"&second(now()),2)
dateId=Cstr(dateId)&myMonth&myday&myHour&myMinute&mySecond&sjs
%>

<%
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("订票时间")=outdate
	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
'--------------------------------------------------------------------
%>

<!--PNR功能-->
<!--include file="Function.asp"-->
<!--include file="ViewPnr.asp"-->
<!--订单提醒功能-->
<!--include file="Cpoint.asp"-->

<%
'下订单函数部分===================================================================
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