oderdetails0.asp

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

<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：订单确认和删除处理功能页
'	OriAuthor: 邓健
'	@Language=VBscript
'	Create: 2002-10-10
'	Modify: 
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!--#include file="_ccwlib/orderform_lib.asp" -->
<%
Dim RS,Sql,sAdminid,sunGrade
Dim sStartPage,i,sOdrPassid,sOdrPassidA,sOdrPassidANum,sOdrDelid,sOdrDelidA,sOdrDelidANum,sSubbtn,sProid
DB_Connect(strconn)
sAdminid=Session("admid") 
 Call IsValidUser(sAdminid,3,1,"../error.htm",oConn)
 sunGrade=OrderPowerGrade(sAdminid,sOrder_Level,oConn)
 sStartPage=getForm("stp")
 sOdrPassid=getForm("ckbpass")
 sOdrDelid=getForm("delodr_id")
 sSubbtn=getForm("imgsub")
 sProId=getForm("proid")
 
if  sSubbtn="订单确认" then  '处理订单确认状态;
   if sOdrPassid="" then
    response.redirect("/E-order/purchase/prodetail.asp?stp="&sStartPage&"&itemid="&sProid)
   end if
   sOdrPassid=sOdrPassid&","
   sOdrPassidA=split(sOdrPassid,",")
   sOdrPassidANum=ubound(sOdrPassidA)
     For i=0 to sOdrPassidANum-1
     oConn.beginTrans	
	 oConn.Execute("update orderdetail set odr_ispass='y',odr_passer="&sAdminid&" where odr_id="&cint(sOdrPassidA(i)))
	 oConn.Committrans
	 '发信程序
   Next
elseif   sSubbtn="订单删除" then '删除订单
  if sOdrDelid="" then
    response.redirect("/E-order/purchase/prodetail.asp?stp="&sStartPage&"&itemid="&sProid)
   end if
sOdrDelid=sOdrDelid&","
sOdrDelidA=split(sOdrDelid,",")
sOdrDelidANum=ubound(sOdrDelidA)
for i=0 to  sOdrDelidANum-1
 oConn.beginTrans
  oConn.Execute("delete from orderdetail where odr_id="&sOdrDelidA(i))
  oConn.Execute("delete from orderproduct where odr_id="&sOdrDelidA(i))
  oConn.Execute("delete from orderReceiverDetail where odr_id="&sOdrDelidA(i))
 oConn.Committrans
Next
else
 response.redirect("/E-order/purchase/prodetail.asp?stp="&sStartPage&"&itemid="&sProid)
End if
response.redirect("/E-order/purchase/prodetail.asp?stp="&sStartPage&"&itemid="&sProid)
oConn.Close
Set oConn=nothing 
%>