<%
'--------------------------------------------
' 作 成 者：
' 名 称：bunrui.asp
' 機 能：カテゴリー検索
' 戻り画面：default.asp
' キー 1-5：shohin1.asp
' ６：shopping.asp
' ７：bunrui.asp
' ９：bunrui.asp
' ０：default.asp
'--------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
on error resume next
'-----------------変数宣言
Dim bunrui1
Dim l_objDbClass
Dim l_objRSet
Dim hozon
Dim DataBase
Dim l_strSql
Dim l_params
Dim l_clsSession
Dim AccessKey
Dim PageNo '現在ページ
Dim RowCount '行数
Dim PageCount 'ページ数
Dim TotalCount '総データ数
Dim CurrentRecord '現在ポイント
Dim Scroll 'スクロール制御
Dim SessionID
SessionID = Trim(Request("sessionid"))
Bunrui1 = trim(Request("Bunrui1"))
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
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("検索結果保存ﾌﾗｸﾞ"))
l_objRSet.close
%>
カテゴリ表示
<%
if Bunrui1 = "" then
Bunrui1 = 0
errchk
end if%>
<%
l_strSql = "select * from BUNRUI1 "
l_strSql = l_strSql & " WHERE ACODE = ?"
'l_strSql = l_strSql & " AND 新規区分 in (0)"
l_strSql = l_strSql & " AND 表示区分 in (0)"
l_strSql = l_strSql & " order by 携帯INFO1 desc"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doCursolOpen(l_strSql, l_params, 0, adOpenStatic, adLockReadOnly, 15)
RowCount = l_objRSet.PageSize
PageCount = l_objRSet.PageCount
TotalCount = l_objRSet.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
%>
商品一覧
<%l_objRSet.AbsolutePage = PageNo%>
<% If PageCount > 1 Then %>
<%=pageno%>／<%=PageCount%>
<% End If %>
<%
Do While (Not l_objRSet.Eof) and (RowCount >= CurrentRecord) %>
<% AccessKey = 63878 + CurrentRecord %>
&Pageb=<%=Pageno%>">
<% = trim(l_objRSet("分類1名称")) %>
<%l_objRSet.MoveNext
CurrentRecord=CurrentRecord+1
Loop
l_objRSet.close%>
ｼｮｯﾋﾟﾝｸﾞｶｰﾄ
<% if PageNo > 1 then %>
前へ
<% end if %>
<% if (CLng(PageNo) < CLng(PageCount)) then %>
次へ
<% end if %>
SHOP MENUへ
<% set l_objRSet = nothing
Call l_clsSession.UpdateSession
set l_objDbClass = nothing
%>