submit_order.asp

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

<!--#include file="submit_order_function.asp"-->
<!--#include file="../../md5.asp"-->
<%
'预订页面提交的参数共有三组,即整体组、乘客组、航程组
'定义整体组参数变量
'dim VoteType,OfficeNo,Mobile,OrderInfro,orderno
'定义乘客组参数变量(支持九个乘客)
redim PassengerName(9),PassengerType(9),DocumentNo(9),DocumentType(9),SafeNum(9),AdultNotype(9)
dim c_num
'定义航程组参数变量(支持往返程)
'dim order(2),FromCityCode(2),ToCityCode(2),DutyName(2),FlightNum(2),Bunk(2),TakeOffDate(2)

'代理人及乘客预订机票信息
orderno=OrderFm_ID_bak
VoteType="HK"	'出票类型
OfficeNo=trim(tmp(7))
if OfficeNo="" then
	OfficeNo="Form"
end if
dailicode=TestCustomerID
Usermd5=trim(tmp(22))
DailiPhone=trim(tmp(15))
DailiMobile=trim(tmp(9))	'手机号
if dailicode="" or Usermd5=""  then
	errclose("对不起，代理人信息不全，请返回")
end if
ServiceURL="http://www.faye.net.cn/order_insert.asp"	'接收参数的PNR服务器地址
'OrderInfro=customer&"地址"&address&"电话"&telephone	'短息附加内容
safeall=0
c_num=flag_count_bak-1'乘客人数 0代表1个人
for i=1 to c_num
	PassengerName(i)=name_bak(i)	'乘客姓名
	PassengerType(i)=PassengerType(i)	'乘客类型  成人,儿童,婴儿
	DocumentNo(i)=cid(i)			'证件号码
	if AdultNotype(i)="" then 		'证件类型
		AdultNotype(i)=1
	end if
	DocumentType(i)=AdultNotype(i)	'证件类型,NI代表身份证,PP代表护照号码,ID代表其他证件号码
	SafeNum(i)=baoxian(i)	'保险数
	safeall=safeall+safeNum(i)
next

dim var1,var2,var3
var1=""
var2=""
var3=""

'将第一组参数进行组合
'组合格式是：代理人^订单编号^下单者^送票地址^下单者电话^下单者手机^下单留言^送票方式^支付方式^配送要求^送票日期^订票时间^Email^供应商号^OfficeNo^出票状态^PNR^出票紧急程度^出票时间
var1=Dailicode&"^"&orderno&"^"&customer&"^"&address&"^"&telephone&"^"&mobile&"^"&memo&"^"&SendWay&"^"&payway&"^"&mypsyq&"^"&OrdSendTime&"^"&ordertime&"^"&CEmail&"^"&providercode&"^"&OfficeNo&"^"&VoteType&"^"&OpSeatNum&"^"&out_quickgrade&"^"&outdate

'将第二组参数进行组合
'组合格式是：出票类型^officeno^乘客姓名^乘客类型^PNR号^证件号^证件类型^保险数^票价^售价^税收^附加税收^供应商代码&^特价来源^返点^返利^返点条件说明^客票级别^签注^特殊项
for i=1 to c_num
	var2a=VoteType&"^"&OfficeNo&"^"&PassengerName(i)&"^"&PassengerType(i)&"^"&OpSeatNum&"^"&DocumentNo(i)&"^"&DocumentType(i)&"^"&SafeNum(i)&"^"&price(i)&"^"&fullprice(i)&"^"&Taxprice(i)&"^"&renyou(i)&"^"&providercode&"^"&bunkseat&"^"&fandian&"^"&backmoney&"^"&limitif&"^"&ticketgrade&"^"&qian_zhu&"^"&special
var2=var2a&";"&var2
next
var2=left(var2,len(var2)-1)

'将第三组参数进行组合
'组合格式是:航班号^舱^票价^起飞日期^起飞时间^机型^航空公司^到达时间^起飞城市^到达城市

flightNum=request.form("flightNum")
bunk=request.form("bunk")
StartTime=request.form("StartTime")
ToTime=request.form("ToTime")
CityFromCode=request.form("CityFromCode")
CityToCode=request.form("CityToCode")
rebate=request.form("rebate")
planetype=request.form("planetype")
airwayname=request.form("airwayname")
arr_flightnum=split(flightNum,"|")
arr_bunk=split(bunk,"|")
arr_StartTime=split(StartTime,"|")
arr_ToTime=split(ToTime,"|")
arr_CityFromCode=split(CityFromCode,"|")
arr_CityToCode=split(CityToCode,"|")
arr_rebate=split(rebate,"|")
arr_planetype=split(planetype,"|")	'机型

for i=0 to ubound(arr_flightnum)
	var3a=arr_flightnum(i)&"^"&arr_bunk(i)&"^"&price(1)&"^"&arr_StartTime(i)&"^"&arr_StartTime(i)&"^"&arr_planetype(i)&"^"&airwayname&"^"&arr_ToTime(i)&"^"&arr_CityFromCode(i)&"^"&arr_CityToCode(i)&";"
	var3=var3a+var3
next
var3=left(var3,len(var3)-1)

'将三组参数进行整合
checkorder=ucase(md5(trim(var1&var2&var3&dailicode)))'验证数据
'response.write var1&"<br>"&var2&"<br>"&var3&"<br>"&checkorder&"<br>"&OrderFm_ID_bak
'response.end
Result=GetSourceInfo(ServiceURL,var1,var2,var3,dailicode,checkorder)
%>