oderdetails.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：订单确认和删除处理功能页
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!-- #include virtual="/admin/orderForm/_lib/orderform_lib.asp" -->
<%
Dim sOdrid,sSubbtn
DB_Connect(strconn)
'---验证身份----
Call AdminCheck
 
sOdrid=getForm("odrid")
sSubbtn=getForm("subok")
  
if  sSubbtn="订单确认" then  '处理订单确认状态
  	 oConn.Execute("update t_UserOrderCon set Odr_ispass='1',Odr_passtime=getdate(),Asr_Id='"&session("admID")&"' where odr_id="&sOdrid)
    response.redirect("/admin/orderForm/orderdetail.asp?orderid="&sOdrid)
elseif   sSubbtn="订单删除" then '删除订单
 oConn.beginTrans
  oConn.Execute("delete from t_UserOrderDetail where odr_no='"&sOdrid&"'")
  oConn.Execute("delete from t_UserOrderCon where odr_no='"&sOdrid&"'")
 oConn.Committrans
  response.redirect("/admin/orderForm/index.asp")
elseif   sSubbtn="订单发送设置" then '订单发送设置
  oConn.Execute("update t_UserOrderCon set Odr_sendState='1' where Odr_no='"&sOdrid&"'")
  response.redirect("/admin/orderForm/orderdetail.asp?orderid="&sOdrid)
End if
oConn.Close
Set oConn=nothing 
%>