📄 zxlmyflight.asp
字号:
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"><%
response.write TempAirportTax'&flightMsg(j,9)&"|"
%></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>
<%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"><%=Mmsg(24)%>元</span></td>
</tr>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550">
<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"> 邮件：
<%if Mmsg(13)="" then
response.write "无"
else
response.write Mmsg(13)
end if%></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%>
<tr>
<td height="20" colspan="2" align="left" bgcolor="#FFFFFF"> <%=TripMsg(j,9)%>(<%=TripMsg(j,5)%>舱)</td>
</tr>
<tr>
<td width="2%" height="20" align="left" valign="top" bgcolor="#FFFFFF"> </td>
<td width="99%" align="left" bgcolor="#FFFFFF"><%=BackAlterRule( TripMsg(j,7),TripMsg(j,5),TripMsg(j,4))%></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" align="left" bgcolor="#FFFFFF"> 以上信息仅供参考,实际退改签按航空公司最新规定执行</td>
</tr>
</table></td>
</tr>
</tbody>
</table>
<hr color=#cccccc width="550"> </td>
</tr>
<tr>
<td height="2" bgcolor="#FFFFFF"><table width="546" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td height="20" bgcolor="#FFFFFF"><strong>邮件发送提示</strong></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%>
<tr>
<td width="99%" colspan="2" align="left" bgcolor="#FFFFFF">
</td>
</tr>
<!-- <tr>
<td height="20" bgcolor="#FFFFFF" valign="top"> 改期：</td>
<td height="20" bgcolor="#FFFFFF">免费更改</td>
</tr> -->
<%next%>
<!-- end -->
</table>
<hr color=#cccccc width="550"></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</table>
</td>
</tr>
</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 公司名称 from airways where 公司代号='"&TempAirway&"'"
rs.open sql,conn,3,1
if not (rs.eof or rs.bof) then
ReAirway=rs("公司名称")
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
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 * from Taprice where [航段]='"&code1&code2&"' or [航段]='"&code2&code1&"' order by auto desc"
rsSS.open sql,conn,3,1
if not (rsSS.eof or rsSS.bof) then
ReFuel=rsSS("tax1")
else
ReFuel="60"
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 + -