📄 update_order.asp

📁 机票预定系统各个模块的设计-ticket reservation systems detailed design system modules of the design
💻 ASP
字号:
<!--#include file="function/m_conn.asp"-->
<%
OrderFm_ID_bak=trim(request.form("OrderFm_ID"))		'订单号
customer=trim(request.form("customer"))				'联系人姓名
address=trim(request.form("address"))
telephone=trim(request.form("telephone"))		'电话
mobile=trim(request.form("mobile"))				'手机
OrdSendTime=trim(request.form("OrdSendTime"))	'送票时间
SendWay=trim(request.form("SendWay"))			'送票方式
PayWay=trim(request.form("PayWay"))				'付款方式
OpSeatNum=trim(request.form("OpSeatNum"))		'订座编号
OrdStatus=trim(request.form("OrdStatus"))		'订单状态
CEmail=trim(request.form("CEmail"))
ifRemindFlag=request.form("ifRemind")			'提醒设置
if ifRemindFlag="" then ifRemindFlag="0"
memo=trim(request.form("memo"))					'客户留言
ordertime=request.Form("ordertime")				'下单时间
mypsyq=trim(request.form("mypsyq"))				'配送要求

set rs=server.CreateObject("adodb.recordset")
sql="select * from ticket_M where 订单编号 ='"&OrderFm_ID_bak&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("客户姓名")=customer
rs("订座编号")=OpSeatNum
rs("联系电话")=telephone
rs("购票紧急联系方式")=mobile
rs("网上客户留言")=memo
rs("购票电邮地址")=CEmail
rs("送票方式")=SendWay
rs("支付方式")=PayWay
rs("配送要求")=mypsyq
if isdate(OrdSendTime) then
	rs("送票日期")=OrdSendTime
end if
rs("送票地址")=address
rs("ifRemindFlag")=ifRemindFlag
outdate=rs("订票时间")				'出票时间
out_quickgrade=rs("送票紧急程度")	'送票紧急程度
rs.update
msg="修改成功，主表资料修改成功！"
end if
rs.close
flag_count_bak=trim(request.form("flag_count"))	'乘客数量
providercode=request.form("providercode")
bunkseat=request.form("bunkseat")
fandian=request.form("fandian")
backmoney=request.form("backmoney")
limitif=request.form("limitif")
ticketgrade=request.form("ticketgrade")
qian_zhu=request.form("qian_zhu")
special=request.form("special")
redim cid(9),name_bak(9),baoxian(9),myPassenerId(9),price(9),fullprice(9),Taxprice(9),renyou(9),AdultNotype(9),PassengerType(9)
	for i=1 to flag_count_bak-1
		myPassenerId(i)=request.form("PassengerId"&i)
		PassengerType(i)=request.form("PassengerType"&i)
		name_bak(i)=request.form("name"&i)
		cid(i)=request.form("cid"&i)
		baoxian(i)=request.form("baoxian"&i)
		price(i)=request.form("price"&i)
		fullprice(i)=request.form("fullprice"&i)
		Taxprice(i)=request.form("Taxprice"&i)
		renyou(i)=request.form("renyou"&i)
		sql="select * from ticket_d where id="&myPassenerId(i)
		rs.open sql,conn,1,3
		if not rs.eof then
			rs("乘客姓名")=name_bak(i)
			rs("证件")=cid(i)
			if rs("类型")="儿童" or rs("类型")="婴儿" then
				if isdate(cid(i)) then
					rs("出生年月")=cid(i)
				end if
			end if
			if isnumeric(baoxian(i)) then
				rs("保险")=baoxian(i)
			end if
			rs.update
		end if
		rs.close
next
msg=msg&"从表资料修改成功！"

%>
<!--#include file="../../client_infor.asp"-->
<!--''''=============lyq 2007-3-19 以下是向服务器提交订单信息-->
<!--#include file="submit_order.asp"-->
<%
'response.write Result&"lyq"
'response.End()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<script language="javascript">
alert("<%=msg%>");
window.opener.location.reload();
window.close();
</script>
</body>
</html>
<%
set rs=nothing
call conn_close()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -