<%
'--------------------------------------------
' 名 称：suryo3.asp
' 機 能：カートを空にする
' 戻り画面：suryo1.asp（いいえ）
' 次 画 面：default.asp（はい）
'--------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
'on error resume next
'----- 変数宣言
Dim l_objDbClass 'データベース
Dim l_objRSet 'レコードセット
Dim l_strSql 'SQL文
Dim l_params 'SQL用配列
Dim DataBase 'データベース種類
Dim shopcode 'ショップ
Dim Line '固定行数
Dim iCount 'ショッピング商品数
Dim msg 'メッセージ
Dim Fast '
Dim SSL 'SSL
Dim PageNo 'ページ番号
Dim SessionID
Dim l_clsSession
SessionID = Trim(Request("sessionid"))
PageNo = Trim(Request("PageNo"))
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
'----- Sessionオブジェクト作成
Set l_clsSession = new CSession
Call l_clsSession.setSessionId(SessionID)
Call l_clsSession.SelectSession
'----- セッション値の設定
shopcode = trim(session("shop")) '----v5.1.4 修正
iCount = clng(Session("ItemCount"))
'----- ARYshoppingcart作成
Call l_clsSession.SelectCart
'----- ﾃﾞｰﾀﾍﾞｰｽ種類、SSLフラグを取得
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if Not l_objRSet.Eof then
Line = 0
SSL = cint(l_objRSet("SSL"))
DataBase = cint(l_objRSet.Fields("DBTYPE"))
end if
l_objRSet.close
Set l_objRSet = Nothing
msg = ""
if trim(request("fast"))<>"" then
iCount = 0
Session("ItemCount") = iCount
'SESSION更新
Call l_clsSession.UpdateSession
Call l_clsSession.DeleteCart
session("sessionid") = sessionid
server.transfer("default.asp")
end if
%>
Web Shopping - Shopping Cart
ｼｮｯﾋﾟﾝｸﾞｶｰﾄの中身を空にしますか？
はい
いいえ
<%
'SESSION更新
Call l_clsSession.UpdateSession
Call l_clsSession.dberrchk
set l_clsSession = nothing
set l_objDbClass = nothing
errchk
%>