oderdetails1.asp

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

<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：订单确认和删除处理功能页
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!-- #include virtual="/admin/orderForm/_lib/orderform_lib.asp" -->
<%
Dim RS,Sql,sAdminid,sunGrade
Dim sStartPage,i,sOdrPassid,sOdrPassidA,sOdrPassidANum

DB_Connect(strconn)
'---验证身份----
Call AdminCheck

sStartPage=getForm("stp")
sOdrPassid=getForm("ckbpass")
  
if sOdrPassid="" then
     response.redirect("index.asp?stp="&sStartPage)
  end if
   sOdrPassid=sOdrPassid&","
   sOdrPassidA=split(sOdrPassid,",")
   sOdrPassidANum=ubound(sOdrPassidA)
    
  For i=0 to sOdrPassidANum-1
   oConn.Execute("update t_UserOrderCon set Odr_ispass='1',Asr_Id="&session("admID")&",Odr_passtime=getdate() where Odr_no='"&sOdrPassidA(i)&"'")
   Next
oConn.Close
Set oConn=nothing 
%>
<script language="JavaScript">
<!--
 alert(" 确认成功!");
 window.location.href="index.asp?stp=<%=sStartPage%>";
//-->
</script>