<%
'-------------------------------------------------------------------------------
' 名 称：custmenu.asp
' 機 能：お客様情報のメニュー選択
' 前 画 面：password.asp
' 戻り画面：default.asp
' キ ー １：seisan1_1.asp
' ２：rireki1.asp
' ３：shukabunrui.asp
' ６：shopping.asp
' ０：default.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
on error resume next
'----- 変数宣言
Dim shopcode 'ショップ
Dim l_objDbClass 'データベース
Dim l_objRSet 'レコードセット
Dim l_clsSession 'セッション
Dim l_strSql 'SQL文
Dim l_params 'SQL用配列
Dim DataBase 'データベース種類
Dim Hozon '検索結果保存フラグ
Dim SSL 'SSL
Dim iCount '商品数
Dim SessionID
%>
<%
SessionID=Trim(Request("sessionid"))
'携帯電話でresponse.redirectが変な動作を行うので、session変数に値を入れ
'server.transferで画面遷移する。
if session("SessionID") <> "" then
SessionID = session("SessionID")
end if
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
iCount = Session("ItemCount")
shopcode = session("Shop")
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
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
SSL = cint(l_objRSet("SSL"))
DataBase = cint(l_objRSet.Fields("DBTYPE"))
end if
l_objRSet.close
Set l_objRSet = Nothing
if Hozon = 2 then Hozonx "お客様情報"
'SESSION更新
Call l_clsSession.UpdateSession
Set l_objDbClass = Nothing
%>
お客様情報
お客様情報
会員情報
購買履歴
ｼｮｯﾋﾟﾝｸﾞｶｰﾄ
SHOP MENUへ
戻る
<%
'Sessionオブジェクトを破棄する。
session.abandon
%>