submit_order_back_4_25.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))
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.book114.cn/TS_server/order_insert.asp"	'接收参数的PNR服务器地址
'OrderInfro=customer&"地址"&address&"电话"&telephone	'短息附加内容
safeall=0
c_num=flag_count_bak'乘客人数 0代表1个人
for i=1 to c_num
	PassengerName(i)=name_bak(i)	'乘客姓名
	PassengerType(i)=customertype(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^变量3^变量4
var1=Dailicode&"^"&orderno&"^"&customer&"^"&address&"^"&telephone&"^"&telephone1&"^"&memo&"^"&send_method&"^"&pay_method&"^"&mypsyq&"^"&delivertime&"^"&ordertime&"^"&CEmail&"^"&temp3&"^"&temp4

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

'将第三组参数进行组合
'组合格式是:订单号^航班号^舱^票价^起飞日期^起飞时间^机型^航空公司^到达时间^起飞城市^到达城市
rs.close
sql="select distinct 订单编号,航班号,舱,票价,起飞时间,TakeOffTime,机型,Carrier,ArriveTime,FromCity,ToCity from ticket_D where 订单编号='"&trim(OrderFm_ID_bak)&"'"
rs.open sql,conn,1,3
if rs.eof then
	errinfor("订单信息有误,不能发送")
	response.end
else
	do while not rs.eof
		var3a=rs("订单编号")&"^"&rs("航班号")&"^"&rs("舱")&"^"&rs("票价")&"^"&rs("起飞时间")&"^"&rs("TakeOffTime")&"^"&rs("机型")&"^"&rs("Carrier")&"^"&rs("ArriveTime")&"^"&rs("FromCity")&"^"&rs("ToCity")&";"
		rs.movenext
		var3=var3a+var3
	loop 
	var3=left(var3,len(var3)-1)
end if

'将三组参数进行整合
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)
%>