📄 zxlprintlist.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,10)
'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=rs("PNR号")
MyPNRContent=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>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="578" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td>
<b><span id=bookManName></span> </b>，您好!<br>
<%if Mmsg(29)<>"" then%>
您的订座编号是：<strong><%=Mmsg(29)%></strong> <!-- PNR内容：<%'=MyPNRContent%> --><br>
<%end if%>
您的行程单：<b><font color="#333399"><%=airticket_OrderID%></font></b>。<strong>
<%=tmp(1)%></strong> 预祝您旅途愉快!<br></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" valign="top">
<table cellspacing=0 cellpadding=0 width="99%"
bgcolor=#ffffff border=0 align="center">
<tr>
<td><b>航班信息：</b></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=561 align=center
border=0>
<tr>
<td><img src="rlimages/rltop.gif"
width=566></td>
</tr>
<tr>
<td valign="top" background="rlimages/rlbg.gif">
<table cellspacing=0 cellpadding=0 width=100% border=0 align="center">
<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),"|")
Dcity=split(TripMsg(j,1),"|")
Tcity=split(TripMsg(j,2),"|")
TflightNo=split(TripMsg(j,4),"|")
TBunk=split(TripMsg(j,5),"|")
Tplanype=split(TripMsg(j,6),"|")
TAirway=split(TripMsg(j,7),"|")
TRebateName=split(TripMsg(j,10),"|")
%>
<table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td colspan="2"> <%
'response.Write TripMsg(j,7)&"aaa"
tripDate=Cdate(Dcount(j))
response.write ReWeek(tripDate)%><b><%=formatdatetime((tripDate),1)%></b>
<%=ReCity(Dcity(j))%><%TakeOffTime=formatdatetime(tripDate,4)
response.write TakeOffTime%>起飞 <%=ReCity(Tcity(j))%><%ArrivalTime=formatdatetime(Tcount(j),4)
response.write ArrivalTime%>到达 历时 <%=ReInterval(TakeOffTime,ArrivalTime)%></td>
</tr>
<tr>
<td valign='middle' width="40"> <img src="../smallPic/<%=TripMsg(j,7)%>.gif" title="<%=TripMsg(j,7)%>"></td><td valign="middle" width="514"><%TripMsg(j,9)=ReAirway(TripMsg(j,7))'航空公司名
response.write TripMsg(j,9)
%>
<b><%=TflightNo(j)%></b>
<%=ReBunk(TBunk(j),TripMsg(j,7),TRebateName(j))%>（<b><%=TBunk(j)%></b>）；机型：<%=Tplanype(j)%></td>
</tr>
</table>
<%next%>
<!-- End -->
<table width='540' border='0' align="center" cellpadding='0' cellspacing='2'>
<tr bgcolor='EFF3F7'>
<td width='68' align='center'>姓名</td>
<td width='133' align='center' bgcolor="EFF3F7">证件号</td>
<td width='63' align='center'>机票费</td>
<td width='61' align='center'>机场税</td>
<td width='61' align='center'>附加费</td>
<td width='54' align='center'>保险费</td>
<td width='82' align='center'>费用总计</td>
</tr>
<tr bgcolor='#f6f6f6'>
<td align='center' colspan="5">
<table width="100%" border="0" cellpadding='0' cellspacing='0'>
<!-- start -->
<%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='68' align='center' style="border-right:#FFFFFF 1px solid"><%=flightMsg(j,4)%></td>
<%bookManName=bookManName&"、"&flightMsg(j,4)%>
<td width='133' align='center' style="border-right:#FFFFFF 1px solid"> <%
response.write TempCidOrBorn
%> </td>
<td width='63' align='center' style="border-right:#FFFFFF 1px solid"><font color='#cc0000'><%=TempFlightPrice%></font></td>
<td width='61' align='center' style="border-right:#FFFFFF 1px solid"><font color='#cc0000'> <%
response.write TempAirportTax'&flightMsg(j,9)&"|"
%>元</font></td>
<td width="61" align="center"><%=flightMsg(j,11)%></td>
</tr>
<%next%>
<!-- -->
</table>
</td>
<td width='61' rowspan="<%=j+1%>" align='center'><font color='#cc0000'><%=Cstr(MyInsure*20)%></font><font color='red'>元</font></td>
<!-- <td width='54' rowspan="3" align='center'><font color="red"><span class="style3">0</span>元</font></td> -->
<td width='82' rowspan="<%=j+1%>" align='center'><font color="red"><span class="style2"><%=Cstr(Mmsg(24))%></span>元</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -