xt_orderform_delitem.asp

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

<!--#INCLUDE FILE="include/shop.asp" -->
<!--#INCLUDE FILE="include/util.asp" -->
<% REM ##########################################################################%>
<% REM                                                                          #%>
<% REM   XT_ORDERFORM_DELITEM.ASP                                               #%>
<% REM   从订单删除商品                                                         #%>
<% REM                                                                          #%>
<% REM   Copyright (c) 1999-2000 Epro Corporation.  All rights reserved.        #%>
<% REM                                                                          #%>
<% REM ##########################################################################%>

<%
REM Create the error list
pfid=request("pfid")
if isNull(pfid) or isEmpty(pfid) then
   errorList=errorList & "必须有一个商品号。<br>"
end if 
%>

<%
if errorList<>"" then
%>
    <!--#INCLUDE FILE="include/error.asp" -->
<%
else 
	cmdTemp.CommandText = "Delete FROM basket WHERE session_id = '" & session.SessionID &  "' and  product_id=" & Replace(pfid, "'", "''")

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

end if
%>