xt_orderform_clearitems.asp

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

<!--#INCLUDE FILE="include/shop.asp" -->
<!--#INCLUDE FILE="include/util.asp" -->
<% REM ##########################################################################%>
<% REM                                                                          #%>
<% REM   XT_ORDERFORM_CLEARITEMS.ASP                                            #%>
<% REM   清空购物篮                                                             #%>
<% REM                                                                          #%>
<% REM   Copyright (c) 1999-2000 Epro Corporation.  All rights reserved.        #%>
<% REM                                                                          #%>
<% REM ##########################################################################%>

<%
REM Create a storage object for the order forms
    cmdTemp.CommandText = "Delete FROM basket WHERE session_id = '" & session.SessionID &  "'"

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


Response.Redirect "basket.asp" 

%>