removeitem.asp

来自「《SQL Server 2000课程设计案例精编》-李昆-源代码-3436」· ASP 代码 · 共 41 行

	<!--#include file="Include/ADOdata.asp" -->

<%

Dim objShopping
Dim strUserID
Dim lngProductID

'检查cookie
strUserID = Request.Cookies("userauthid")
If strUserID = "" Then
  Server.Transfer "Login.htm"
End If

'接收product ID
lngProductID = Request.QueryString("ProductID")

'执行RemoveItemFromBasket
RemoveItemFromBasket strUserID, lngProductID
Server.transfer "Basket.asp"


Public Sub RemoveItemFromBasket(strCustomer, lngProductID)
'删除在购物袋中的项目
Dim cmd

'执行removeitem stored procedure
Set cmd = CreateObject("ADODB.Command")
    With cmd
      .ActiveConnection = strCon
      .CommandText = "removeitem"
      .CommandType = adCmdStoredProc
      .Parameters(1).Value = strCustomer
      .Parameters(2).Value = lngProductID
      .Execute
    End With
    Set cmd = Nothing
End Sub
%>