viewpnr.asp

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

<%
'预订页面提交的参数共有三组,即整体组、乘客组、航程组
'定义整体组参数变量
dim VoteType,OfficeNo,RecMobile,OrderInfro

'定义乘客组参数变量(支持九个乘客)
redim PassengerName(9),PassengerType(9),DocumentNo(9),DocumentType(9),SafeNum(9)
dim c_num

'定义航程组参数变量(支持往返程)
'dim order(2),FromCityCode(2),ToCityCode(2),DutyName(2),FlightNum(2),Bunk(2),TakeOffDate(2)
'dim f_num


'客户预订机票信息
VoteType="HK"	'出票类型

OfficeNo=tmp(7)
customerid=tmp(5)
Usermd5=md5(tmp(39))
PhoneNumber=tmp(15)
ClientURL=tmp(2)	'网址
ServiceURL=tmp(8)	'接收参数的PNR服务器地址
ClientURL="http://"&request.ServerVariables("HTTP_HOST")	'查询地址
'手机信息
RecMobile=tmp(9)	'网站方的手机号

if OfficeNo="" or customerid="" or Usermd5=""  then
	'提示信息：
	'call msginfor("参数信息不全，不能扣位",tmp(2))
	'response.end
end if

OrderInfro=customer&"地址"&address&"电话"&telephone	'短息附加内容
safeall=0
c_num=AdultNum'乘客人数 0代表达1个人
for i=1 to c_num
	PassengerName(i)=adultname(i)	'乘客姓名
	PassengerType(i)=1		'乘客类型 1 代表成人,2代表小孩,3代表婴儿
	DocumentNo(i)=cid(i)		'证件号码
	if Notype(i)="" then
	Notype(i)="NI"
	end if
	DocumentType(i)=Notype(i)'证件类型,NI代表身份证,PP代表护照号码,ID代表其他证件号码
	SafeNum(i)=baoxian(i)	'保险数
	safeall=safeall+safeNum(i)
next

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


'将第一组参数进行组合
var1="{"&VoteType&"^"&OfficeNo&"^"&RecMobile&"^"&OrderInfro&"^"&PhoneNumber&"}"
'将第二组参数进行组合
for i=1 to c_num
	var2a=PassengerName(i)&"^"&PassengerType(i)&"^"&DocumentNo(i)&"^"&DocumentType(i)&"^"&SafeNum(i)
	var2=var2a&";"&var2
next
var2="{"&left(var2,len(var2)-1)&"}"

'将第三组参数进行组合
'此为单程时的数据
No=1
city_fromcode=left(ZXLCityFlyCode,3)
city_tocode=right(ZXLCityFlyCode,3)

' 航班号,不同行程数据
If flightschedule<>"" then
LenNo=Len(Trim(flightschedule))-2
End if

Carrier=left(flightschedule,2)
flightNum=Trim(right(flightschedule,LenNo))
cabintype=cabintype    '舱位信息,不同行程数据
flightdate=flightdate  '起飞日期,不同行程数据
var3=No&"^"&city_fromcode&"^"&city_tocode&"^"&Carrier&"^"&flightNum&"^"&cabintype&"^"&flightdate

'当有返程时：
if session("id_back")<>"" then	'是否为往返程
	No1=2
	city_fromcode1=left(ZXLCityFlyCode1,3)
	city_tocode1=right(ZXLCityFlyCode1,3)
	''flightschedule1=trim(request.form("order_flightNo1"))
	Carrier1=left(flightschedule1,2)
	
	if Carrier1<>Carrier then 	'判断是否是同一承运人，如果不是同一人，不让其定下去。
		errinfor("返往程只能预订相同的航空公司的机票")
		response.end
	end if
	If flightschedule1<>"" then
		LenNo=Len(Trim(flightschedule1))-2
	End if
	flightNum1=right(flightschedule1,LenNo)
	cabintype1=cabintype1
	flightdate1=flightdate1
	var3=var3&";"&No1&"^"&city_fromcode1&"^"&city_tocode1&"^"&Carrier1&"^"&flightNum1&"^"&cabintype1&"^"&flightdate1
end if
var3="{"&var3&"}"


'将三组参数进行整合
var=var1&var2&var3

'组合参数成验证参数
checkstr=md5(var&CustomerID&Usermd5&ClientURL)

'调用无刷新跨站提交参数函数
StrResult=GetSourceInfo(ServiceURL,var,CustomerID,Usermd5,ClientURL,checkstr)
'----------------end--------------------

session("PNR")=left(StrResult,5)
%>