xt_data_delete.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 70 行

<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="../include/shop.asp" -->
<!--#INCLUDE FILE="../include/util.asp" -->
<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   XT_DATA_DELETE.ASP                                                      %>
<% REM   Microsoft Commerce Server v3.00                                         %>
<% REM                                                                           %>
<% REM   Copyright (c) 1996-98 Microsoft Corporation.  All rights reserved.      %>
<% REM                                                                           %>
<% REM ######################################################################### %>

<%
dim errorList
Select Case Request.Form("type") 
    Case "product" 
        cmdTemp.CommandText = "SELECT * FROM product WHERE product_id = " & Request.Form("pfid")
    Case "department"
        cmdTemp.CommandText = "SELECT * FROM product_level WHERE level_id = '" & Request.Form("dept_id") & "'"
    Case "shopper"
        cmdTemp.CommandText = "SELECT * FROM shopper WHERE shopper_id = '" & Request.Form("shopper_id") & "'"
    Case "order"
        cmdTemp.CommandText = "SELECT * FROM shop_order WHERE order_id = " & Request.Form("order_id")     
    Case Else
        errorList.Add("不知到的类型: " & Request.Form("type"))
End Select

Set recordSet = Server.CreateObject("ADODB.Recordset")
recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic

if recordSet.RecordCount <>0 then
  
  if Request.Form("type")<>"order" then
     recordSet.Delete
  end if
 
    Select Case Request.Form("type")
        case "order"
           order_id=request("order_id")
           conn.Execute "delete from order_item where order_id =" & Request.Form("order_id"), , adCmdText    
           recordSet.Delete
    End Select

 If Request("goto")<>""  Then
    Response.redirect Cstr(Request.Form("goto"))
 End If
    
    
    
else
    Select Case Request.Form("type") 
        Case "product" 
            errorList=errorList & "商品不存在。<br>"
        Case "department"
            errorList=errorList & "该商品分类不存在。<br>"
        Case "shopper"
            errorList=errorList & "该顾客不存在。<br>"
        Case "shopper"
            errorList=errorList & "没有该订单号。<br>"
    End Select
end if

if errorList <>"" then
%>
        <!--#INCLUDE FILE="error.asp" -->

<%
end if
%>