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

	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")) 				'备注   
	
	set rs=server.CreateObject("adodb.recordset")
%>
<!--#include file="Auto_register.asp"--><!--自动注册-->
<%
	'去程数据,承运组信息
	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=cint(trim(request.form("price1")))     '票价
	fullprice1=cint(trim(request.form("fullprice1")))   '全价票价
	Cfullprice1=cint(trim(request.form("Cfullprice1")))    
	Bfullprice1=cint(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=cint(sumAllPrice)+cint((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
%>
	<!--PNR功能-->
	<%if tmp(7)<>"" then%>
		<!--#include file="pnrmd5.asp"-->
		<!--#include file="Function.asp"-->
		<!--#include file="ViewPnr.asp"-->