📄 zxlmyflight.asp
字号:
<table cellspacing=3 cellpadding=0 width=546 border=0 align="center">
<tbody>
<tr>
<td><b> <font class=px12 color="#000000">联系人信息：</font></b></td>
</tr>
<tr>
<td class="L15" align="center"><table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#DDDDDD">
<tr bgcolor="#FFFFFF">
<td height="19" width="174"> 姓名: <%=Mmsg(2)%></td>
<td height="19" width="148"> 电话: <%=Mmsg(4)%></td>
<td height="19" width="220"> 邮件：<%=Mmsg(13)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<%
redim SendArr(4),payArr(4),ConfirmArr(5)
SendArr(1)="电子客票"
SendArr(2)="送票上门"
SendArr(3)="门市自取"
SendArr(4)="特快专递"
payArr(1)="票到付款"
payArr(2)="网上支付"
payArr(3)="电话银行"
payArr(4)="银行汇款"
ConfirmArr(1)="不需要确认"
ConfirmArr(2)="电话"
ConfirmArr(3)="短信"
ConfirmArr(4)="邮件"
ConfirmArr(5)="登门"
%>
<td height="18" width="174"> 支付方式: <%=payArr(Cint(Mmsg(14)))%></td>
<td height="18" colspan="2"> 配送方式: <%=sendArr(Cint(Mmsg(15)))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="18" colspan="3"> 送票地址: <%=Mmsg(3)%></td>
</tr>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
<table width="546" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td height="20" bgcolor="#FFFFFF"><b>舱位退改签规定：</b></td>
</tr>
<tr>
<td class="L15" align="center"><table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#DDDDDD">
<!-- start -->
<%for j=0 to TempId-1%>
<%
if j>0 then
if Ubound(Dcount)=0 then exit for
end if
%>
<tr>
<td height="20" colspan="2" bgcolor="#FFFFFF"> <%=TripMsg(j,9)%>(<%=Tbunk(j)%>舱)</td>
</tr>
<tr>
<td width="2%" height="20" bgcolor="#FFFFFF" valign="top"> </td>
<td width="99%" bgcolor="#FFFFFF"><%=BackAlterRule( TripMsg(j,7),Tbunk(j),TflightNo(j))%></td>
</tr>
<!-- <tr>
<td height="20" bgcolor="#FFFFFF" valign="top"> 改期：</td>
<td height="20" bgcolor="#FFFFFF">免费更改</td>
</tr> -->
<%next%>
<!-- end -->
<tr>
<td height="20" colspan="2" bgcolor="#FFFFFF"> 以上信息仅供参考,实际退改签按航空公司最新规定执行</td>
</tr>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
<%
sql="select * from pro_order where pro_order_id='"&airticket_OrderID&"'"
rs.open sql,conn,3,1
if not rs.eof then
if Mmsg(28)=1 then orderstate="新订单"
if Mmsg(28)=2 then orderstate="已确定"
if Mmsg(28)=3 then orderstate="已生效"
if Mmsg(28)=4 then orderstate="已成交"
if Mmsg(28)=5 then orderstate="已取消"
%>
<table width="546" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td height="20" bgcolor="#FFFFFF"><b>订单处理状态：<%=orderstate%></b></td>
</tr>
<tr>
<td class="L15" align="center"><table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="#DDDDDD">
<!-- start -->
<%if Mmsg(28)=1 then%>
<TR>
<TD height=22 bgcolor="#FFFFFF">您的订单已被管理员<%=rs("pro_name1")%>于<%=rs("pro_time1")%>收到。</TD>
</TR>
<%end if
if Mmsg(28)=2 then
%>
<TR>
<TD height=22 bgcolor="#FFFFFF">您的订单已被管理员<%=rs("pro_name2")%>于<%=rs("pro_time2")%>收到确定。<%=rs("pro_sendname2")%>号工作人员于<%=rs("pro_sendtime2")%>正在去往贵方约定地点。敬请等待，多谢合作</TD>
</TR>
<%end if
if Mmsg(28)=3 then
%>
<TR>
<TD height=22 bgcolor="#FFFFFF">您的订单已经生效，管理员：<%=rs("pro_name3")%>时间：<%=rs("pro_time3")%>。交付时间将定于<%=rs("pro_sendtime3")%></TD>
</TR>
<%end if
if Mmsg(28)=4 then
%>
<TR>
<TD height=22 bgcolor="#FFFFFF">您的订单已经交易成功，管理员：<%=rs("pro_name4")%>时间：<%=rs("pro_time4")%>。手续费用：<%=rs("pro_pay")%>元，合计费用：<%=rs("pro_paycount")%>元</TD>
</TR>
<%end if
if Mmsg(28)=5 then
%>
<TR>
<TD height=22 bgcolor="#FFFFFF">您的订单已经被管理员<%=rs("pro_name5")%>于<%=rs("pro_time5")%>取消,取消原因是<%=rs("pro_reason5")%>。</TD>
</TR>
<%end if%>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
<%
end if
rs.close
%>
<table width="546" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td height="20" bgcolor="#FFFFFF"><b>特别提醒：</b></td>
</tr>
<tr>
<td class="L15" align="center"><table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#DDDDDD">
<!-- start -->
<tr>
<td width="99%" colspan="2" bgcolor="#FFFFFF"> <font color=#000000>建议您出发前与航空公司确认航班有无变更。<br>
<%=tmp(1)%>也会在接收到航班变更信息后及时通知您。<br>
如果您要求更改预订请致电： <font color=#ff0000 class=px14><strong><%=tmp(15)%></strong></font> E-mail：<a href="mailto:<%=tmp(10)%>"><strong><%=tmp(10)%></strong></a></font></td>
</tr>
<!-- end -->
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
</td>
</tr>
<tr>
<td height="2"></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
</body>
</html>
<%
function ReWeek(TempDate)
ReWeek=ZXLWeek(weekday(Cdate(TempDate)))
end function
function ReInterval(TempStartdate,TempEnddate)
dim MyHour,myMinute
myHour=datediff("h",TempStartdate,TempEnddate)
myMinute=(datediff("n",TempStartdate,TempEnddate)) mod 60
if Minute(TempStartdate)>Minute(TempEnddate) then Myhour=Myhour-1
if len(myHour)=1 then myHour="0"&myHour
if len(myMinute)=1 then myMinute="0"&myMinute
ReInterval=myHour&"："&myMinute
end function
function ReCity(TempCity)
sql="select Cityname from city where citycode='"&TempCity&"'"
rs.open sql,conn,3,1
if not (rs.eof or rs.bof) then
ReCity=rs("cityname")
else
Recity="未知"
end if
rs.close
end function
function ReAirway(TempAirway)
sql="select airwayname from airways where carriercode='"&TempAirway&"'"
rs.open sql,conn,1,1
if not (rs.eof or rs.bof) then
ReAirway=rs("airwayname")
else
ReAirway="未知"
end if
rs.close
end function
function ReBunk(TempBunk,TempAirway,TempRebateName)
if TempBunk="F" then
ReBunk="头等舱"
elseif TempBunk="C" then
ReBunk="商务舱"
elseif TempBunk="Y" then
ReBunk="公务舱"
else
'sql="select (Cast((100-charindex('"&TempBunk&"',(Isnull(Y95,' ')+Isnull(Y90,' ')+Isnull(Y85,' ')+Isnull(Y80,' ')+Isnull(Y75,' ')+Isnull(Y70,' ')+Isnull(Y65,' ')+Isnull(Y60,' ')+Isnull(Y55,' ')+Isnull(Y50,' ')+Isnull(Y45,' ')+Isnull(Y40,' ')+Isnull(Y35,' ')+Isnull(Y30,' ')+Isnull(Y25,' ')+Isnull(Y20,' ')+Isnull(Y15,' ')+Isnull(Y10,' ')+Isnull(Y05,' ')))*5) as varchar(2))) as bunk from TADiscount where 航空公司='"&TempAirway&"'"
'response.write sql
'response.end
'rs.open sql,conn,3,1
'if not (rs.eof or rs.bof) then
'ReBunk=rs("bunk")&"折经济舱"
'else
if TempRebateName<>"" and not isnull(TempRebateName) then
ReBunk=TempRebateName
else
ReBunk="未知"
end if
end if
end function
function BackAlterRule(TempCarrier,TempBunk,TempFlightNo)
set rs=server.CreateObject("adodb.recordset")
sql="select * from visor where carrier ='"&TempCarrier&"' and cab = '"&TempBunk&"'"
rs.open sql,conn,3,1
'if not rs.eof then
'BackAlterRule=TempFlightNo&"："&rs("memo")&"<br>"
'else
BackAlterRule=TempFlightNo&"：按航空公司规定执行<Br>"
'end if
rs.close
end function
function ReMoneyWhole(itemp)
if isnumeric(itemp) then
iA=Clng(right(itemp,1))
iB=left(itemp,len(itemp)-1)
if iA>4 then
itemp=Clng(iB&"0")+10
else
itemp=Clng(iB&"0")
end if
end if
ReMoneyWhole=itemp
end function
function ReFuel(code1,code2)
set rsSS=server.CreateObject("adodb.recordset")
sql="select top 1 * from Taprice where [航段]='"&code1&code2&"' or [航段]='"&code2&code1&"'"
rsSS.open sql,conn,1,3
if not (rsSS.eof or rsSS.bof) then
if rsSS("ConstracteTax")="" or isnull(rsSS("ConstracteTax")) then
ReFuel=80
else
ReFuel=rsSS("ConstracteTax")
end if
else
ReFuel=80
end if
rsSS.close
set rsSS=nothing
end function
set rs=nothing
call conn_close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -