gopay.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<script language="javascript">
window.alert("对不起，网上支付功能尚未开通！");
history.back();
//window.location="history.back()";
</script>
<!--#include file="../../config.asp"-->
<!--#include file="../manager/function/conn.asp"-->
<%
airticket_OrderID=trim(request.form("Ord"))
set rs=server.CreateObject("adodb.recordset")
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&"<br>"
'response.write Cstr(Mmsg(24))
'response.end

''''''''''''''''''''''''''''
rs.close
set rs=nothing
call conn_close()
%>
<form id=frmPayment name=frmPayment>
<INPUT type=hidden value="<%=airticket_OrderID%>" name=Ord>
<INPUT type=hidden value="<%=Cstr(Mmsg(24))%>" name=summoney>
</form>
<SCRIPT LANGUAGE=javascript>
<!--
  frmPayment.Ord.value=<%=airticket_OrderID%>;
  frmPayment.summoney.value=<%=Cstr(Mmsg(24))%>;
  frmPayment.action = "../pay/ZXLEpayment.asp";
  frmPayment.submit();
//-->
</SCRIPT>