<%
option explicit
'--------------------------------------------
' 名 称：ichiran.asp
' 機 能：お勧め商品の一覧表示
' 戻り画面：default.asp
' キー 1-5：shohin2.asp
' ６：shopping.asp
' ７：ichiran.asp
' ９：ichiran.asp
' ０：default.asp
'--------------------------------------------
'on error resume next
%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
'-----------変数宣言
Dim l_objDbClass 'データベース
Dim l_objRSet 'レコードセット
Dim l_objRSet2 'レコードセット
Dim l_clsSession 'セッション
Dim l_strSql 'SQL文
Dim l_params 'SQL用配列
Dim DataBase 'データベース種類
Dim Hozon '検索結果保存フラグ
Dim Line '固定行数
Dim NebikiF '値引期間自
Dim NebikiT '値引期間至
Dim NebikiK '値引掛率
Dim Shocd '表示商品コード
Dim swshosai '色・規格スイッチ
Dim color '色の件数
Dim kikaku '規格件数
Dim msg 'メッセージ
Dim Fast '
Dim shopcode 'ショップ
Dim PageNo '現在ページ
Dim RowCount '行数
Dim PageCount 'ページ数
Dim TotalCount '総データ数
Dim CurrentRecord '現在ポイント
Dim Scroll 'スクロール制御
Dim AccessKey
Dim SessionID
SessionID=Trim(Request("sessionid"))
Fast = trim(Request("Fast"))
msg = ""
'--------------------------------------------
'DBとコネクト
'--------------------------------------------
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
Set l_clsSession = new CSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
shopcode = session("shop")
'------------------------------------------------------
'アーティスト毎の初期値を取得
'------------------------------------------------------
Line = 0
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)
DataBase = cint(l_objRSet.Fields("DBTYPE"))
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
NebikiF = l_objRSet("値引期間自")
NebikiT = l_objRSet("値引期間至")
NebikiK = clng(l_objRSet("値引掛率"))
'------------------------------------------------------
'ポイントショップサポート時//Lineに追加＝カート領域の確保
'------------------------------------------------------
if cint(l_objRSet("ﾎﾟｲﾝﾄｼｮｯﾌﾟ")) = 1 then
Line = 1
end if
'------------------------------------------------------
'値引きサポート時//Lineに追加＝カート領域の確保
'------------------------------------------------------
if Not IsNull(NebikiF) and Not IsNull(NebikiT) and Nebikik <> 0 then
if date >= NebikiF and date <= NebikiT then
Line = Line + 1
end if
end if
'------------------------------------------------------
'送料サポート時//Lineに追加＝カート領域の確保
'------------------------------------------------------
if cint(l_objRSet("送料区分")) = 1 then
Line = Line + 1
end if
l_objRSet.close
Set l_objRSet = Nothing
'----------------------------------------------------------------------
'初期表示//ichiranテーブル+shohinテーブルからお勧め商品をセレクト
'ログ保存
'----------------------------------------------------------------------
if Fast = "" then
if Hozon = 2 then
Hozonx("お勧め一覧")
end if
End If
l_strSql = "SELECT * FROM SHOHIN"
l_strSql = l_strSql & " WHERE 非表示区分 = 0 "
l_strSql = l_strSql & " AND SALE区分 = 1 "
l_strSql = l_strSql & " AND ACODE = ?"
l_strSql = l_strSql & " order by 商品ｺｰﾄﾞ"
Redim l_params(1)
l_params(1) = trim(session("shop"))
Set l_objRSet2 = l_objDbClass.doCursolOpen(l_strSql, l_params, 0, adOpenStatic, adLockReadOnly, 6)
RowCount = l_objRSet2.PageSize
PageCount = l_objRSet2.PageCount
TotalCount = l_objRSet2.RecordCount
CurrentRecord = 1
Scroll=trim(Request("pageno"))
if scroll <> "" then
If Len(Scroll) > 8 Then
PageNo = 1
ElseIf IsNumeric(Scroll) = False Then
PageNo = 1
Else
PageNo=Scroll
End If
if PageNo < 1 then
PageNo = 0
end if
else
PageNo = 1
end if
%>
商品一覧表示
<%if l_objRSet2.EOF and Fast = "" Then%>
お勧め商品は登録されていません。
<% l_objRSet2.close %>
<%else%>
おすすめ商品
<%l_objRSet2.AbsolutePage = PageNo%>
<%'if PageCount > 1 then%>
<%=pageno%>／<%=PageCount%>
<%'end if%>
<% Do While (Not l_objRSet2.Eof) and (RowCount >= CurrentRecord) %>
<% AccessKey = 63878 + CurrentRecord %>
<% swshosai = ""
l_strSql = "select count(値) as color from COLOR Where ACODE = "
l_strSql = l_strSql & "? AND 表示商品ｺｰﾄﾞ = ?"
Redim l_params(2)
l_params(1) = session("shop")
l_params(2) = trim(l_objRSet2("商品ｺｰﾄﾞ"))
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
color = cint(l_objRSet("color"))
l_strSql = "select count(値) as kikaku from KIKAKU Where ACODE = ?"
l_strSql = l_strSql & " AND 表示商品ｺｰﾄﾞ = ?"
Redim l_params(2)
l_params(1) = session("shop")
l_params(2) = trim(l_objRSet2("商品ｺｰﾄﾞ"))
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
kikaku = cint(l_objRSet("kikaku"))
if color > 0 or kikaku > 0 Then swshosai = "1" %>
&gamen=1&pageno=<%=Pageno%>">
<% If trim(l_objRSet2("携帯用商品名")) <> "" Then %>
<%=trim(l_objRSet2("携帯用商品名")) %>
<% Else %>
<%=trim(l_objRSet2("商品名")) %>
<% End If %>
<%l_objRSet2.MoveNext
CurrentRecord=CurrentRecord+1
loop %>
<% end if %>
<% Set l_objRSet2 = Nothing
set l_objRSet = nothing 'v5.1.4変更ソースここまで
%>
ｼｮｯﾋﾟﾝｸﾞｶｰﾄ
<% if PageNo > 1 then %>
前へ
<% end if %>
<% if (CLng(PageNo) < CLng(PageCount)) then %>
次へ
<% end if %>
SHOP MENUへ
戻る
<%
Call l_clsSession.UpdateSession
errchk
Call l_clsSession.dberrchk()
Set l_clsSession = Nothing
Call l_objDbClass.dberrchk()
Set l_objDbClass = nothing
%>