orderupdate.asp

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

<!--#include file="function/m_conn.asp"-->
<%
    if len(session("login_name"))=0 then
%>
<script language="javascript">
    alert("出错，点击返回登陆窗口!")
    window.location="index.asp"
</script>
<%
    end if
on error resume next	
function count_money()
mon_date=now()
mon_money=0
mon_point_bak=TotalPrice2
if not isnumeric(mon_point_bak) then
mon_point_bak=0
else
mon_point_bak=clng(mon_point_bak)
end if
mon_point=0-mon_point_bak
mon_memo="兑换"&tro_name3&"奖品！"
mon_admin=trim(session("login_name"))
mon_own=mon_own_bak
sql="insert into mem_money(mon_date,mon_memo,mon_money,mon_point,mon_admin,mon_own) values('"&mon_date&"','"&mon_memo&"',"&mon_money&","&mon_point&",'"&mon_admin&"','"&mon_own&"')"
'response.write sql
conn.execute(sql)
msg=msg&"积分增加成功！共加积分"&mon_point&"点！"
end function	
tro_name3=trim(request.form("tro_name3"))
tro_code=trim(request.form("tro_code"))
tro_txt=trim(request.form("tro_txt"))
tro_date=trim(request.form("tro_date"))
tro_conent=trim(request.form("tro_conent"))
tro_name=trim(request.form("tro_name"))
tro_ticketnum=trim(request.form("tro_ticketnum"))
tro_tel1=trim(request.form("tro_tel1"))
tro_tel2=trim(request.form("tro_tel2"))
tro_email=trim(request.form("tro_email"))
tro_address=trim(request.form("tro_address"))
tro_pc=trim(request.form("tro_pc"))
tro_remark=trim(request.form("tro_remark"))
prize_id=clng(request.form("prize_id"))
if not isdate(tro_date) then
tro_date=now()
end if
OrdStatus_bak=trim(request.form("OrdStatus"))
sql="update prize set tro_name3='"&tro_name3&"',tro_code='"&tro_code&"',tro_txt='"&tro_txt&"',tro_date='"&tro_date&"',tro_conent='"&tro_conent&"',tro_name='"&tro_name&"',tro_ticketnum='"&tro_ticketnum&"',tro_tel1='"&tro_tel1&"',tro_tel2='"&tro_tel2&"',tro_email='"&tro_email&"',tro_address='"&tro_address&"',tro_pc='"&tro_pc&"',tro_remark='"&tro_remark&"'  where prize_id="&prize_id
conn.execute(sql)
set rs=server.CreateObject("adodb.recordset")
sql="select * from prize where prize_id="&prize_id
rs.open sql,conn,3,2
if not rs.eof then
 if trim(rs("orderstate"))="4"or OrdStatus_bak="" then
  flag=false
  msg="订单已成交，状态不可修改！或者您没有选择订单状态"
  else
  flag=true
  
  'response.write OrdStatus_bak&"<br>"
  'response.write sql
	  getuser=trim(request.form("getuser"))
	  getdes=trim(request.form("getdes"))
	  getdatetime=now()
	  checkdatetime=now()
	  checkuser=trim(request.form("checkuser"))
	  checksender=trim(request.form("checksender"))
	  checkdes=trim(request.form("checkdes"))
	  checksendtime1=trim(request.form("checksendtime1"))
	  checksendtime2=trim(request.form("checksendtime2"))
	  checksendtime_bak=checksendtime1&"时"&checksendtime2&"分"
	  approvedatetime=now()
	  approveuser=trim(request.form("approveuser"))
	  approvesender=trim(request.form("approvesender"))
	  approvedes=trim(request.form("approvedes"))
	  approvetime=trim(request.form("approvetime"))
	  approveprice=trim(request.form("approveprice"))
	  approvesendtime1=trim(request.form("approvesendtime1"))
	  approvesendtime2=trim(request.form("approvesendtime2"))
	  approvesendtime_bak=approvesendtime1&"时"&approvesendtime2&"分"
	  mon_own_bak=rs("username")
	  tro_name3=rs("tro_name3")
      endtime=now()
	  enduser=trim(request.form("enduser"))
	  isprice=trim(request.form("isprice"))
	  enddes=trim(request.form("enddes"))
	  YdSxf=trim(request.form("YdSxf"))
	  TotalPrice2=trim(request.form("TotalPrice2"))
	  CancelTime=now()
	  Canceluser=trim(request.form("Canceluser"))
	  Canceldes=trim(request.form("Canceldes"))
	  Cancelwhy=trim(request.form("Cancelwhy"))
	  Cancelstatus=trim(request.form("Cancelstatus"))
	  msg="订单处理成功！"
	select case OrdStatus_bak
      case 1 
	  rs("getuser")=getuser
	  rs("getdes")=getdes
	  rs("getdatetime")=getdatetime
case 2
rs("checkuser")=checkuser
rs("checksender")=checksender
rs("checkdatetime")=checkdatetime
rs("checkdes")=checkdes
rs("checksendtime")=checksendtime_bak
case 3
rs("approveuser")=approveuser
rs("approvesender")=approvesender
rs("approvedatetime")=approvedatetime
rs("approvedes")=approvedes
rs("approvesendtime")=approvesendtime_bak
rs("approvetime")=approvetime
rs("approveprice")=approveprice
case 4
rs("endtime")=endtime
rs("enduser")=enduser
rs("isprice")=isprice
rs("enddes")=enddes
rs("YdSxf")=YdSxf
rs("TotalPrice2")=TotalPrice2
call count_money()
case 5
rs("CancelTime")=CancelTime
rs("Canceluser")=Canceluser
rs("Canceldes")=Canceldes
rs("Cancelwhy")=Cancelwhy
rs("Cancelstatus")=Cancelstatus
end select
	 rs("OrderState")=OrdStatus_bak
  rs.update 
 end if
end if
%>
<script language="javascript">
alert("<%=msg%>");
window.opener.location.reload();
window.close();
</script>