oderdetails2.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 25 行

<% Option Explicit %>
<!--#include file="_ccwlib/orderform_lib.asp" -->
<%
Dim RS,Sql,sAdminid,sunGrade,prors,receiverRS,ssubok
Dim sOrderid,subok,sordercon
DB_Connect(strconn)
sAdminid=Session("admid") 
 Call IsValidUser(sAdminid,3,1,"../error.htm",oConn)  '验证管理员用户
 sunGrade=OrderPowerGrade(sAdminid,sOrder_Level,oConn) '获得管理员在订单管理子系统中的权限
 sOrderid=getForm("odrid")
 sordercon=getForm("rdoordercon")
 ssubok=getForm("subok")
 if ssubok="订单删除" then
  oConn.execute("delete from orderdetail where odr_id="&sOrderid)
  oConn.Execute("delete from orderproduct where odr_id="&sOrderid)
  oConn.execute("delete from orderreceiverdetail where odr_id="&sOrderid)
  response.redirect("index.asp")
  response.end
 elseif  ssubok="订单确认"  then
  oConn.execute("update orderdetail set odr_ispass='y',odr_passtime=getdate(),odr_passer="&sAdminid)
  '给库存人发信
  '发信程序
  response.redirect("orderdetail.asp?orderid="&sOrderid)
 End if 
%>