📄 zxlmyflight.asp
字号:
<!--#include file="../manager/function/conn.asp"-->
<!--#include file="../../client_infor.asp"-->
<%
redim ZXLWeek(7)
ZXLWeek(1)="星期天"
ZXLWeek(2)="星期一"
ZXLWeek(3)="星期二"
ZXLWeek(4)="星期三"
ZXLWeek(5)="星期四"
ZXLWeek(6)="星期五"
ZXLWeek(7)="星期六"
airticket_OrderID=trim(request.form("OrderID"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from ticket_D where [订单编号]='"&airticket_OrderID&"' order by [序号] asc"
rs.open sql,conn,3,1
dim DRecordcount
DRecordcount=rs.recordcount
redim flightMsg(DRecordcount,12)
redim TripMsg(3,11)
'response.write DRecordcount
dim TempId,lastId,myInsure
lastId=0
myInsure=0
'on error resume next
dim MyPNR,MyPNRContent
if not (rs.bof or rs.eof) then
rs.movefirst
MyPNR=trim(rs("PNR号"))
MyPNRContent=trim(rs("PNRContent"))
end if
i=0
do while not (rs.eof or rs.bof)
'flightMsg(i,0)=rs("订单编号")
TempId=Cint(rs("序号"))
if TempId<>lastId then
TripMsg(TempId-1,0)=rs("TakeOffTime")
TripMsg(TempId-1,1)=rs("FromCityCode")
TripMsg(TempId-1,2)=rs("ToCityCode")
TripMsg(TempId-1,3)=rs("ArriveTime")
TripMsg(TempId-1,4)=rs("航班号")
TripMsg(TempId-1,5)=rs("舱")
TripMsg(TempId-1,6)=rs("机型")
TripMsg(TempId-1,7)=rs("Carrier")
TripMsg(TempId-1,8)=rs("客票类型")
TripMsg(TempId-1,10)=rs("rebateName")
'TripMsg(TempId-1,0)=rs("保险")
lastId=TempId
end if
'flightMsg(i,1)=rs("序号")
flightMsg(i,1)=rs("保险")
myInsure=myInsure+Cint(flightMsg(i,1))
flightMsg(i,2)=rs("机票号码")
flightMsg(i,3)=rs("PNR号")
flightMsg(i,4)=rs("乘客姓名")
flightMsg(i,5)=rs("证件")
flightMsg(i,6)=rs("状态")
flightMsg(i,7)=rs("票价")
flightMsg(i,8)=rs("税收")
flightMsg(i,9)=trim(rs("类型"))
flightMsg(i,10)=rs("出生年月")
flightMsg(i,11)=rs("附加税收")
'response.write i&"<br>"
rs.movenext
i=i+1
loop
rs.close
sql="select * from ticket_M where [订单编号]='"&airticket_OrderID&"'"
rs.open sql,conn,3,1
if not (rs.eof or rs.bof) then
redim Mmsg(30)
Mmsg(1)=rs("客户编号")
Mmsg(2)=rs("客户姓名")
Mmsg(3)=rs("送票地址")
Mmsg(4)=rs("联系电话")
Mmsg(5)=rs("备注")
Mmsg(6)=rs("礼品")
Mmsg(7)=rs("状态")
Mmsg(8)=rs("接收时间")
Mmsg(9)=rs("客户类型")
Mmsg(10)=rs("送票日期")
Mmsg(11)=rs("送票时间")
Mmsg(12)=rs("购票紧急联系方式")
Mmsg(13)=rs("购票电邮地址")
Mmsg(14)=rs("支付方式")
Mmsg(15)=rs("送票方式")
Mmsg(16)=rs("配送要求")
Mmsg(17)=rs("送票城市")
Mmsg(18)=rs("送票标志建筑")
Mmsg(19)=rs("邮政编码")
Mmsg(20)=rs("出票确认方式")
Mmsg(21)=rs("出票确认联系信息")
Mmsg(22)=rs("出票确认方式")
Mmsg(23)=rs("网上支付计算公式")
Mmsg(24)=rs("网上结算金额")
Mmsg(25)=rs("网上客户留言")
Mmsg(26)=rs("订位状态") 'DK" "HK" "RR" then '成功 00 失败 01正在处理
Mmsg(27)=rs("网上扣款标志") '1未处理 2扣款成功 3失败
Mmsg(28)=rs("网上订单状态") '1
Mmsg(29)=rs("订座编号") '1
end if
'response.write airticket_OrderID
'response.write Cstr(Mmsg(24))
'response.end
''''''''''''''''''''''''''''
rs.close
%>
<html>
<head>
<title><%=ZXLCompanyStr&"-- 订单内容"%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="rlimages/def.css" rel=stylesheet>
<script language="javascript">
function goPrint()
{
//window.open('','printWin');
document.formPrint.target="printWin"
document.formPrint.submit();
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="">
<form name="formPrint" method="post" action="ZXLprintlist.asp">
<input type="hidden" name="OrderID" value="<%=airticket_OrderID%>">
<input type="hidden" name="flag" value="1">
</form>
<table width=556 border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr height="40">
<td width="53%" height=30> <b><font class=px14 color="CC0000"><font color="#000000" class=px18><%=airticket_OrderID%></font>行程单信息：</font></b> </td>
<td width="47%"><div align="right"><a href="javascript:goPrint()"><img src="RLimages/hodometer_print.gif" width="125" height="25" border="0"></a></div></td>
</tr>
<tr>
<td class=bg colspan="2"><table cellspacing=0 cellpadding=0 width=100% border=0>
<tbody>
<tr>
<td valign=top><table cellspacing=0 cellpadding=0 width=517 align=center border=0>
<tbody>
<tr>
<td><table cellspacing=1 cellpadding=2 width=556 border=0 align="center">
<tbody>
<tr>
<td width="548"><%if Mmsg(29)<>"" then%>
您的PNR订座编码是：<strong><%=Mmsg(29)%></strong>
<!-- PNR内容：<%'=MyPNRContent%> -->
<%end if%></td>
</tr>
<tr>
<td><b><font class=px12 color="#000000">航班信息：</font></b></td>
</tr>
<tr>
<td><!-- start Author:ZhouXiaolong-->
<%for j=0 to TempId-1 %>
<%
Dcount=split(TripMsg(j,0),"|")
if j>0 then
if Ubound(Dcount)=0 then exit for
end if
Tcount=split(TripMsg(j,3),"|")
TflightNo=split(TripMsg(j,4),"|")
Dcity=split(TripMsg(j,1),"|")
Tcity=split(TripMsg(j,2),"|")
TBunk=split(TripMsg(j,5),"|")
Tplanype=split(TripMsg(j,6),"|")
TAirway=split(TripMsg(j,7),"|")
TRebateName=split(TripMsg(j,10),"|")
if ubound(TflightNo)=0 then tripDate=Cdate(Dcount(j))
%>
<table width='98%' border='0' cellspacing='2' cellpadding='0' align=center>
<tr bgcolor='EFF3F7'>
<td height='22' colspan='3' valign='left' bgcolor="EFF3F7"><b>
<%
'response.write "111111111111"&Dcount(j)
'response.write ReWeek(tripDate)%>
</b> <strong> <%=formatdatetime((tripDate),1)%>
<%
if TripMsg(j,8)<>"" then response.write "<img src=../showimg/dianzzipiaobutton.gif align='absmiddle'>"%>
</strong></td>
<td align="center"><b>
<%TripMsg(j,9)=ReAirway(TripMsg(j,7))'航空公司名
response.write TripMsg(j,9)
%>
</b></td>
<td width='32' rowspan="3" align='center' valign="middle"><img src="../smallPic/<%=TripMsg(j,7)%>.gif" title="<%=TripMsg(j,7)%>"></td>
<!--<td> </td> -->
</tr>
<tr valign='buttom' bgcolor='#f6f6f6'>
<td width='125' rowspan="2" align='center' valign="bottom"><%=ReCity(Dcity(j))%>(<%=Dcity(j)%>)<br>
<%TakeOffTime=formatdatetime(tripDate,4)
response.write TakeOffTime%>
起飞</td>
<td width='118' rowspan="2" align='center' valign="bottom" bgcolor='#f6f6f6'><%=ReCity(Tcity(j))%>(<%=Tcity(j)%>)<br>
<%ArrivalTime=formatdatetime(Tcount(j),4)
response.write ArrivalTime%>
到达</td>
<td width='124' align='center' bgcolor="#f6f6f6">历时<%=ReInterval(TakeOffTime,ArrivalTime)%></td>
<td width='135' rowspan="2" align='center' valign="buttom"><b><%=TflightNo(j)%> </b><br>
<b><%=ReBunk(TBunk(j),TripMsg(j,7),TRebateName(j))%></b>（<strong><%=TBunk(j)%>舱</strong>）</td>
</tr>
<tr valign='buttom' bgcolor='#f6f6f6'>
<td align='center'><%=Tplanype(j)%></td>
</tr>
</table>
<%next%>
<!-- End --> </td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
<table cellspacing=1 cellpadding=0 width=546 border=0 align="center">
<tbody>
<tr>
<td width="548"><b> <font class=px12 color="#000000">费用明细：</font></b></td>
</tr>
<tr>
<td class="L15"><table width='99%' border='0' align="center" cellpadding='1' cellspacing='２'>
<tr bgcolor='EFF3F7'>
<td width='88' style="" height='19' align='center'>姓名</td>
<td width='150' align='center' bgcolor="EFF3F7">证件号</td>
<td width='68' align='center'>机票费<font color='#cc0000'><b><br>
</b></font></td>
<td width='60' align='center'>机场税</td>
<td width='61' align='center'>附加费</td>
<td width='62' align='center'>保险费</td>
<td width='62' align='center'>费用总计</td>
</tr>
<tr bgcolor='#f6f6f6'>
<td colspan="5" align='center'><div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="2">
<!-- start -->
<%
allprice=0
for j=0 to DRecordcount-1
TempCidOrBorn=""
TempCidOrBorn=flightMsg(j,5)
TempAirportTax=flightMsg(j,8)
TempFlightPrice=Cint(flightMsg(j,7))
if flightMsg(j,9)="儿童" then
TempFlightPrice= ReMoneyWhole(TempFlightPrice*0.5)
TempCidOrBorn=flightMsg(j,10)
TempAirportTax="0"
elseif flightMsg(j,9)="婴儿" then
TempCidOrBorn=flightMsg(j,10)
TempAirportTax="0"
TempFlightPrice= ReMoneyWhole(TempFlightPrice*0.1)
end if
%>
<tr>
<td width="88" align="center" style=" border-right:#FFFFFF 1px solid"><%=flightMsg(j,4)%></td>
<td width="150" align="center" style="border-right:#FFFFFF 1px solid"><%
response.write TempCidOrBorn
%>
</td>
<td width="60" align="center" style="border-right:#FFFFFF 1px solid"><%=TempFlightPrice%></td>
<td width="68" align="center" style="border-right:#FFFFFF 1px solid"><%=TempAirportTax%></td>
<td width="60" align="center" style="border-right:#FFFFFF 1px solid"><%=flightMsg(j,11)%></td>
<!-- <td width='54' align='center'><span class="style3">0元</span></td> -->
</tr>
<%
allprice=allprice+TempFlightPrice+TempAirportTax+flightMsg(j,11)
next%>
<!--end -->
</table>
</div></td>
<td width='61' align='center' style="border-right:#FFFFFF 1px solid"><font color='#cc0000'><%=Cstr(MyInsure*20)%>元</font></td>
<td width='62' align='center'><span class="style2"><%=allprice+(MyInsure*20)%>元</span></td>
</tr>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -