<!-- #include file="./include.asp" -->
<%
main()
Sub main()
'インターネットアクセス拒否時に強制許可するフラグ
If Request("permit") <> "" Then
Session("ECMallPermit") = Request("permit")
End If
If Not(InternetCheck()) Then
Exit Sub
End If
If Not(VisitorCheck()) Then
Exit Sub
End If
'Response.Write(GB_VisitorID)
'Exit Sub
%>
<!-- #include file="./include_top.asp" -->
<%
Dim Shop
Shop = Request("Shop") 'こっちは処理対象
Dim Mode
Mode = Request("Mode")
If Request("Logout") = "1" Then
'管理者ログアウト時の処理
Session("ECMallSysAdmin") = ""
GB_SysAdmin = Session("ECMallSysAdmin")
Session("ECMallShopAdmin") = ""
GB_ShopAdmin = Session("ECMallShopAdmin")
End If
Dim ItemViewCnt
ItemViewCnt = 30 '1ページの表示件数
Dim Page
Page = Request("Page")
If Page = "" Or Not(IsNumeric(Page)) Then
Page = "0"
End If
Page = CInt(Page)
Dim Shoplist
Shoplist = Request("Shoplist")
If Area = "0" Then
'データ補正
Query = " UPDATE TF商品 SET 地方CD = 0, 都道府県CD = 0 WHERE 地方CD IS NULL "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
Dim Search
Search = Request("Search")
Dim Order
Order = Request("Order")
If Order = "" Then
Order = "New"
End If
Dim Query
Dim Content
Dim Content2
%>
<!-- #include file="./include_left.asp" -->
<form name="form1" method="POST" action="<% = HomeAliasSL %>" style="margin:0px;">
<input type="hidden" name="SelShop" value="<% = SelShop %>">
<input type="hidden" name="Item" value="<% = Item %>">
<input type="hidden" name="CatRet" value="">
<input type="hidden" name="Cat" value="<% = Cat %>">
<input type="hidden" name="SubCat" value="<% = SubCat %>">
<input type="hidden" name="Area" value="<% = Area %>">
<input type="hidden" name="Pref" value="<% = Pref %>">
<input type="hidden" name="Order" value="<% = Order %>">
<table border="0" cellspacing="0" width="100%" class="tx1416">
<tr>
<td>
<% If SelShop <> "" Then 'ショップ画面 %>
<%
Dim TmpShopPage
TmpShopPage = "maintenance.html"
Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
If "" & Content.Fields("既定ドキュメント") <> "" And "" & Content.Fields("Webページ公開") = "1" Then
TmpShopPage = "shop/" & Content.Fields("ショップID") & "/" & Content.Fields("既定ドキュメント")
End If
End If
'Response.Write(TmpShopPage)
'Exit Sub
%>
<% If Item = "All" Then 'ショップ商品一覧 %>
<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
<tr>
<td>
<!--
<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=New">更新日の新しい順<a>
/
<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=Old">更新日の古い順<a>
/
<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=Low">価格の安い順<a>
/
<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=High">価格の高い順<a>
-->
<a href="#" onClick="form1.Order.value='New';form1.submit();">更新日の新しい順<a>
/
<a href="#" onClick="form1.Order.value='Old';form1.submit();">更新日の古い順<a>
/
<a href="#" onClick="form1.Order.value='Low';form1.submit();">価格の安い順<a>
/
<a href="#" onClick="form1.Order.value='High';form1.submit();">価格の高い順<a>
</td>
</tr>
</table>
<% = HTMLItemList(SelShop, "", "", "", "Cat", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?SelShop=" & SelShop & "&Item=" & Item & "&Order=" & Order, False) %>
<% ElseIf Item <> "" Then 'ショップ商品詳細 %>
<%
Set Content = QueryGetItem(SelShop, Item, "", "", "", Order, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
<tr>
<td valign="middle">
<% If "" & Content.Fields("商品画像") <> "" Then %>
<% = InscribedImage(HomeAliasSL & ItemFolderSL & Content.Fields("ショップID") & "/" & Content.Fields("商品画像"), IMGSizeItemView, IMGSizeItemView) %>
<% End If %>
</td>
</tr>
<tr>
<td class="tx1820">
<b><% = Content.Fields("名称") %></b>
</td>
</tr>
<tr>
<td class="tx1618">
販売価格：<span class="tx1820"><b><% = ConvIntToMoney(Content.Fields("価格"), False, False) %></b></span> 円<% If "" & Content.Fields("消費税フラグ") = "1" Then %>（税込）<% Else %>（税別）<% End If %>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="" class="tx1416">
<tr>
<td>
数量
</td>
<td><% = Spacer(3, 1) %></td>
<td>
<input type="text" name="Qty" size="3" value="1" class="tb1416r" maxlength="7">
</td>
<td><% = Spacer(3, 1) %></td>
<td>
<% = ActionButton3Image("InsertCartBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 130, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "買い物かごに入れる", "tx1416w", "center", "location.href='" & HomeAliasSL & "cart_bin.asp?SelShop=" & SelShop & "&Shop=" & Content.Fields("ショップID") & "&Item=" & Item & "&Qty='+form1.Qty.value;") %>
</td>
</tr>
</table>
<!--
数量 <input type="text" name="Qty" size="3" value="1" class="tb1419r" maxlength="7">
<input type="button" value="買い物かごに入れる" onClick="location.href='<% = HomeAliasSL %>cart_bin.asp?SelShop=<% = SelShop %>&Shop=<% = Content.Fields("ショップID") %>&Item=<% = Item %>&Qty='+form1.Qty.value;">
-->
</td>
</tr>
<tr>
<td>
<% = Content.Fields("紹介文") %>
</td>
</tr>
</table>
<%
Else
'取得できなければ強制的に一覧に戻す
Response.Redirect("" & HomeAliasSL & "?SelShop=" & SelShop & "&Item=All")
End If
%>
<% ElseIf Mode <> "" Then 'お支払方法・送料についてor特定商取引法に基づく表示 %>
<%
'パラメータ取得
Dim Jigyosha
Dim Postal
Dim Address
Dim TEL
Dim FAX
Dim Henpin
Dim FuryoHason
Dim OrderLimit
Dim Etc
Dim Sekininsha
Dim ShopAddr
Dim TimeTable
Dim HaisouFlg(3)
Dim HaisouMei(3)
Dim Haisou(3)
Dim KessaiFlg(3)
Dim KessaiMei(3)
Dim Kessai(3)
Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Jigyosha = "" & Content.Fields("事業者名")
Postal = "" & Content.Fields("郵便番号")
Address = "" & Content.Fields("住所")
TEL = "" & Content.Fields("TEL")
FAX = "" & Content.Fields("FAX")
Sekininsha = "" & Content.Fields("責任者")
ShopAddr = "" & Content.Fields("店舗メールアドレス")
TimeTable = "" & Content.Fields("営業時間等")
Henpin = "" & Content.Fields("返品条件等")
FuryoHason = "" & Content.Fields("不良破損")
OrderLimit = "" & Content.Fields("注文有効期限")
Etc = "" & Content.Fields("その他条件")
HaisouFlg(1) = "" & Content.Fields("配送方法公開1")
HaisouFlg(2) = "" & Content.Fields("配送方法公開2")
HaisouFlg(3) = "" & Content.Fields("配送方法公開3")
HaisouMei(1) = "" & Content.Fields("配送方法名称1")
HaisouMei(2) = "" & Content.Fields("配送方法名称2")
HaisouMei(3) = "" & Content.Fields("配送方法名称3")
Haisou(1) = "" & Content.Fields("配送方法1")
Haisou(2) = "" & Content.Fields("配送方法2")
Haisou(3) = "" & Content.Fields("配送方法3")
KessaiFlg(1) = "" & Content.Fields("決済方法公開1")
KessaiFlg(2) = "" & Content.Fields("決済方法公開2")
KessaiFlg(3) = "" & Content.Fields("決済方法公開3")
KessaiMei(1) = "" & Content.Fields("決済方法名称1")
KessaiMei(2) = "" & Content.Fields("決済方法名称2")
KessaiMei(3) = "" & Content.Fields("決済方法名称3")
Kessai(1) = "" & Content.Fields("決済方法1")
Kessai(2) = "" & Content.Fields("決済方法2")
Kessai(3) = "" & Content.Fields("決済方法3")
End If
Dim Cnt
HaisouFlg(0) = False '0を全体存在フラグとする
For Cnt = 1 To UBound(HaisouFlg)
If HaisouFlg(Cnt) = "1" And (HaisouMei(Cnt) <> "" Or Haisou(Cnt) <> "") Then
HaisouFlg(0) = True '0を全体存在フラグとする
Exit For
End If
Next
KessaiFlg(0) = False '0を全体存在フラグとする
For Cnt = 1 To UBound(KessaiFlg)
If KessaiFlg(Cnt) = "1" And (KessaiMei(Cnt) <> "" Or Kessai(Cnt) <> "") Then
KessaiFlg(0) = True '0を全体存在フラグとする
Exit For
End If
Next
If Mode = "mailorderlaw" Then
%>
特定商取引法に基づく表示
<%
End If
If KessaiFlg(0) Then
%>
<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
<tr>
<td>
お支払方法について
</td>
</tr>
</table>
<table border="1" cellspacing="0" class="tx1416">
<%
Dim KCnt
For KCnt = 1 To UBound(KessaiFlg)
If KessaiFlg(KCnt) = "1" And (KessaiMei(KCnt) <> "" Or Kessai(KCnt) <> "") Then
%>
<tr height="30">
<td>
<% = KessaiMei(KCnt) %>
</td>
</tr>
<tr>
<td>
<% = Kessai(KCnt) %>
</td>
</tr>
<%
End If
Next
%>
</table>
<%
End If
If HaisouFlg(0) Then
%>
<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
<tr>
<td nowrap>
配送方法・送料について
</td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" class="tx1416">
<%
Dim HCnt
For HCnt = 1 To UBound(HaisouFlg)
If HaisouFlg(HCnt) = "1" And (HaisouMei(HCnt) <> "" Or Haisou(HCnt) <> "") Then
%>
<tr height="30">
<td>
<% = HaisouMei(HCnt) %>
</td>
</tr>
<tr>
<td>
<% = Haisou(HCnt) %>
</td>
</tr>
<%
End If
Next
%>
</table>
<%
End If
If Mode = "mailorderlaw" Then '特定商取引法に基づく表示
%>
<table border="1" cellpadding="4" cellspacing="1" class="tx1416">
<tr>
<td>
事業者名
</td>
<td>
<% = Jigyosha %>
</td>
</tr>
<tr>
<td>
郵便番号
</td>
<td>
<% = Postal %>
</td>
</tr>
<tr>
<td>
住所
</td>
<td>
<% = Address %>
</td>
</tr>
<tr>
<td>
TEL
</td>
<td>
<% = TEL %>
</td>
</tr>
<tr>
<td>
FAX
</td>
<td>
<% = FAX %>
</td>
</tr>
<tr>
<td>
責任者氏名
</td>
<td>
<% = Sekininsha %>
</td>
</tr>
<tr>
<td>
お問合せメールアドレス
</td>
<td>
<% = ShopAddr %>
</td>
</tr>
<tr>
<td>
営業時間・問合せ受付時間・休業日等
</td>
<td>
<% = TimeTable %>
</td>
</tr>
<tr>
<td>
返品に関わる条件
</td>
<td>
<% = Henpin %>
</td>
</tr>
<tr>
<td>
不良品・破損時の対応
</td>
<td>
<% = FuryoHason %>
</td>
</tr>
<tr>
<td>
ご注文の有効期限
</td>
<td>
<% = OrderLimit %>
</td>
</tr>
<tr>
<td>
その他販売条件
</td>
<td>
<% = Etc %>
</td>
</tr>
</table>
<%
End If
%>
<% Else 'アップロードされたページ %>
<iframe name="ShopPage" id="ShopPage" width="99.7%" src="<% = HomeAliasSL & TmpShopPage %>?<% = Uniq %>" frameborder="0" name="_ｔｏｐ" scrolling="auto"></iframe>
<SCRIPT LANGUAGE="JavaScript">
<!--
//フレームサイズ可変
var WinH = 0;
VariableLayerHeight("ShopPage", 106);
function VariableLayerHeight(LayerName, MinusHeight) {
//最初の1回目を実行（繰り返し間隔が短い場合は不要）
VariableLayerHeightSub(LayerName, MinusHeight);
//繰り返し実行
IntervalVariableLayerHeight = setInterval("VariableLayerHeightSub('" + LayerName + "', " + MinusHeight + ")", 250);
}
function VariableLayerHeightSub(LayerName, MinusHeight) {
//クライアントのブラウザ表示領域サイズを取得
//var WinW = document.body.clientWidth; //←bodyはIEでバグることがある
if (document.documentElement.clientHeight != WinH) {
WinH = document.documentElement.clientHeight;
//alert(WinH);
if (WinH - MinusHeight > 0) {
document.getElementById(LayerName).style.height = (WinH - MinusHeight) + 'px';
}
}
}
-->
</SCRIPT>
<% End If %>
<% Else '※ ※ ※ ※ ※ ※ ※ ※ ※ ※ 以下モール画面 ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ %>
<% '検索窓 %>
<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
<tr>
<td>
<input type="text" name="Search" value="<% = Search %>" style="width:200px;" class="tb1620ime">
</td>
<% If Cat <> "" Then %>
<td>
<% = ActionButton3Image("SearchCategory", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 144, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "選択カテゴリから検索", "tx1416w", "center", "form1.submit();") %>
<!--
<input type="button" value="選択カテゴリから検索" style="width:120px;height:22px;" onClick="form1.submit();">
-->
</td>
<% End If %>
<td>
<% = ActionButton3Image("SearchAllItem", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 130, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "全ての商品から検索", "tx1416w", "center", "form1.Cat.value='';form1.SubCat.value='';form1.submit();") %>
<!--
<input type="button" value="全ての商品から検索" style="width:120px;height:22px;" onClick="form1.Cat.value='';form1.SubCat.value='';form1.submit();">
-->
</td>
</tr>
</table>
<% If Search <> "" Then '検索一覧 %>
<table border="0" cellpadding="0" cellspacing="4" width="100%" class="tx1416">
<tr>
<td>
<!--
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=New&Search=<% = Search %>">更新日の新しい順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Old&Search=<% = Search %>">更新日の古い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Low&Search=<% = Search %>">価格の安い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=High&Search=<% = Search %>">価格の高い順<a>
-->
<a href="#" onClick="form1.Order.value='New';form1.submit();">更新日の新しい順<a>
/
<a href="#" onClick="form1.Order.value='Old';form1.submit();">更新日の古い順<a>
/
<a href="#" onClick="form1.Order.value='Low';form1.submit();">価格の安い順<a>
/
<a href="#" onClick="form1.Order.value='High';form1.submit();">価格の高い順<a>
</td>
</tr>
<tr>
<td>
<% = HTMLItemList("", "", Cat, SubCat, "Cat", Search, Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?CatRet=" & CatRet & "&Cat=" & Cat & "&SubCat=" & SubCat & "&Order=" & Order, True) %>
</td>
</tr>
</table>
<% ElseIf Cat <> "" Then 'モールのカテゴリ商品一覧 %>
<table border="0" cellpadding="0" cellspacing="4" width="100%" class="tx1416">
<tr>
<td>
<!--
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=New">更新日の新しい順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Old">更新日の古い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Low">価格の安い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=High">価格の高い順<a>
-->
<a href="#" onClick="form1.Order.value='New';form1.submit();">更新日の新しい順<a>
/
<a href="#" onClick="form1.Order.value='Old';form1.submit();">更新日の古い順<a>
/
<a href="#" onClick="form1.Order.value='Low';form1.submit();">価格の安い順<a>
/
<a href="#" onClick="form1.Order.value='High';form1.submit();">価格の高い順<a>
</td>
</tr>
<tr>
<td>
<%
Query = "exec SPMカテゴリ取得 " & Cat & ""
If SubCat <> "" Then
Query = Query & ", " & SubCat & ""
Else
Query = Query & ", 1"
End If
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
[ <% = Content.Fields("名称") %> ]
<%
If SubCat <> "" Then
%>
- [ <% = Content.Fields("サブカテゴリ名称") %> ]
<%
End If
%>
の商品一覧
<%
End If
%>
</td>
</tr>
<tr>
<td>
<% = HTMLItemList("", "", Cat, SubCat, "Cat", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?CatRet=" & CatRet & "&Cat=" & Cat & "&SubCat=" & SubCat & "&Order=" & Order, True) %>
</td>
</tr>
</table>
<% ElseIf Area <> "" Then 'モールの地域商品一覧 %>
<table border="0" cellpadding="0" cellspacing="4" width="100%" class="tx1416">
<tr>
<td>
<!--
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=New">更新日の新しい順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Old">更新日の古い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=Low">価格の安い順<a>
/
<a href="<% = HomeAliasSL %>?Cat=<% = Cat %>&SubCat=<% = SubCat %>&Order=High">価格の高い順<a>
-->
<a href="#" onClick="form1.Order.value='New';form1.submit();">更新日の新しい順<a>
/
<a href="#" onClick="form1.Order.value='Old';form1.submit();">更新日の古い順<a>
/
<a href="#" onClick="form1.Order.value='Low';form1.submit();">価格の安い順<a>
/
<a href="#" onClick="form1.Order.value='High';form1.submit();">価格の高い順<a>
</td>
</tr>
<tr>
<td>
<%
If Pref <> "" Then
Query = " SELECT * FROM TM都道府県 WHERE 地方CD = " & Area & " AND 都道府県CD = " & Pref & " "
Else
Query = " SELECT * FROM TM地方 WHERE 地方CD = " & Area & " "
End If
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
[ <% = Content.Fields("名称") %> ]
の商品一覧
<%
End If
%>
</td>
</tr>
<tr>
<td>
<% = HTMLItemList("", "", Area, Pref, "Area", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?Area=" & Area & "&Pref=" & Pref & "&Order=" & Order, True) %>
</td>
</tr>
</table>
<% ElseIf Shoplist = "1" Then 'ショップ一覧 %>
<table border="0" cellpadding="0" cellspacing="4" width="100%" class="tx1416">
<%
If 0 = 1 Then
'ランダム値を振る方法（全レコードをUPDATEするので重い）
Set Content = QueryGetShop("Rnd", SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'ランダムモード
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("名称") <> "" Then
%>
<tr>
<td><% = Spacer(1, 4) %></td>
</tr>
<tr>
<td>
<a href="<% = HomeAliasSL %>?SelShop=<% = Content.Fields("ショップID") %>"><% = Content.Fields("名称") %><a>
</td>
</tr>
<%
End If
Content.MoveNext
Loop
Else
'配列化しランダムに取り出す方法
Dim ShopIDAry
Dim ShopNameAry
'配列化
Redim ShopIDAry(0)
Redim ShopNameAry(0)
Set Content = QueryGetShop("", SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("名称") <> "" Then
Redim PreServe ShopIDAry(UBound(ShopIDAry) + 1) '配列+1
Redim PreServe ShopNameAry(UBound(ShopNameAry) + 1) '配列+1
ShopIDAry(UBound(ShopIDAry)) = Content.Fields("ショップID")
ShopNameAry(UBound(ShopNameAry)) = Content.Fields("名称")
End If
Content.MoveNext
Loop
Dim ShopAryCnt
ShopAryCnt = UBound(ShopIDAry)
Do While ShopAryCnt > 0
Randomize
RndNo = Int((ShopAryCnt * Rnd) + 1) '1～最大配列数の数値を生成（Fix関数では正しく処理されない？）
%>
<tr>
<td><% = Spacer(1, 4) %></td>
</tr>
<tr>
<td>
<a href="<% = HomeAliasSL %>?SelShop=<% = ShopIDAry(RndNo) %>"><% = ShopNameAry(RndNo) %><a>
</td>
</tr>
<%
'RndNo以降の配列を前に詰める
Dim ACnt
For ACnt = RndNo + 1 to ShopAryCnt
ShopIDAry(ACnt - 1) = ShopIDAry(ACnt)
ShopNameAry(ACnt - 1) = ShopNameAry(ACnt)
Next
ShopAryCnt = ShopAryCnt - 1
Loop
End If
%>
</table>
<% Else 'モールTop %>
<!--
<% = Apptitle %> へようこそ！
-->
<%
Dim CellCnt
Dim RowCnt
Dim TmpImage
Set Content = QueryGetItem("", "", "", "", "", "New", SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
<table border="0" cellpadding="0" cellspacing="6" class="tx1416">
<tr>
<td colspan="3">
新着商品
</td>
</tr>
<%
For RowCnt = 1 to 2
%>
<tr>
<%
For CellCnt = 1 to 3
TmpImage = "image/spacer.gif"
If "" & Content.Fields("商品画像") <> "" Then
TmpImage = HomeAliasSL & ItemFolderSL & Content.Fields("ショップID") & "/" & Content.Fields("商品画像")
End If
%>
<td>
<div style="border:1px solid #999999;">
<table border="0" cellpadding="0" cellspacing="4">
<tr>
<td height="120" width="165" align="center" valign="middle"><a href="<% = HomeAliasSL %>?SelShop=<% = Content.Fields("ショップID") %>&Item=<% = Content.Fields("商品ID") %>"><% = InscribedImage(TmpImage, 120, 120) %><a></td>
</tr>
<tr>
<td>
<div style="height:32px;width:165px;overflow:hidden;text-align:center;color:#33a8da;cursor:pointer;" onClick="location.href='<% = HomeAliasSL %>?SelShop=<% = Content.Fields("ショップID") %>&Item=<% = Content.Fields("商品ID") %>';"><% = Content.Fields("名称") %></div>
</td>
</tr>
<tr>
<td align="center" nowrap>
\<% = ConvIntToMoney(Content.Fields("価格"), False, False) %><span class="tx1113"> (<% If "" & Content.Fields("消費税フラグ") = "1" Then %>税込<% Else %>税別<% End If %>)</span>
</td>
</tr>
<tr>
<td>
<div style="height:16px;width:165px;overflow:hidden;text-align:center;color:#ff5bff;cursor:pointer;" onClick="location.href='<% = HomeAliasSL %>?SelShop=<% = Content.Fields("ショップID") %>';"><% = Content.Fields("ショップ名称") %></div>
</td>
</tr>
</table>
</div>
</td>
<%
Content.MoveNext
If Content.BOF Or Content.EOF Then
Exit For
End If
Next
%>
</tr>
<%
If Content.BOF Or Content.EOF Then
Exit For
End If
Next
%>
</table>
<%
End If
%>
<%
'おすすめ商品を配列化しランダムに取り出す
Set Content = QueryGetItem("", "", "", "", "", "Osusume", SQLServer, DatabaseName, DatabaseUser, DatabasePass) 'おすすめ取得モード
If Not(Content.BOF Or Content.EOF) Then
Dim ItemIDAry
Dim ItemNameAry
Dim ItemImageAry
Dim ItemKakakuAry
Dim ItemShohizeiAry
Dim ItemShopIDAry
Dim ItemShopNameAry
'配列化
Redim ItemIDAry(0)
Redim ItemNameAry(0)
Redim ItemImageAry(0)
Redim ItemKakakuAry(0)
Redim ItemShohizeiAry(0)
Redim ItemShopIDAry(0)
Redim ItemShopNameAry(0)
Do While Not(Content.BOF Or Content.EOF)
Redim PreServe ItemIDAry(UBound(ItemIDAry) + 1) '配列+1
Redim PreServe ItemNameAry(UBound(ItemNameAry) + 1) '配列+1
Redim PreServe ItemImageAry(UBound(ItemImageAry) + 1) '配列+1
Redim PreServe ItemKakakuAry(UBound(ItemKakakuAry) + 1) '配列+1
Redim PreServe ItemShohizeiAry(UBound(ItemShohizeiAry) + 1) '配列+1
Redim PreServe ItemShopIDAry(UBound(ItemShopIDAry) + 1) '配列+1
Redim PreServe ItemShopNameAry(UBound(ItemShopNameAry) + 1) '配列+1
ItemIDAry(UBound(ItemIDAry)) = Content.Fields("商品ID")
ItemNameAry(UBound(ItemNameAry)) = Content.Fields("名称")
ItemImageAry(UBound(ItemImageAry)) = Content.Fields("商品画像")
ItemKakakuAry(UBound(ItemKakakuAry)) = Content.Fields("価格")
ItemShohizeiAry(UBound(ItemShohizeiAry)) = Content.Fields("消費税フラグ")
ItemShopIDAry(UBound(ItemShopIDAry)) = Content.Fields("ショップID")
ItemShopNameAry(UBound(ItemShopNameAry)) = Content.Fields("ショップ名称")
Content.MoveNext
Loop
Dim ItemAryCnt
ItemAryCnt = UBound(ItemIDAry)
%>
<table border="0" cellpadding="0" cellspacing="6" class="tx1416">
<tr>
<td colspan="3">
おすすめ商品（まだ作成中）
</td>
</tr>
<tr>
<%
Dim OsusumeCnt
OsusumeCnt = 0
Do While ItemAryCnt > 0
Randomize
RndNo = Int((ItemAryCnt * Rnd) + 1) '1～最大配列数の数値を生成（Fix関数では正しく処理されない？）
TmpImage = "image/spacer.gif"
If "" & ItemImageAry(RndNo) <> "" Then
TmpImage = HomeAliasSL & ItemFolderSL & ItemShopIDAry(RndNo) & "/" & ItemImageAry(RndNo)
End If
%>
<td>
<div style="border:1px solid #999999;">
<table border="0" cellpadding="0" cellspacing="4">
<tr>
<td height="150" width="165" align="center" valign="middle"><a href="<% = HomeAliasSL %>?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %>"><% = InscribedImage(TmpImage, 150, 150) %><a></td>
</tr>
<tr>
<td>
<div style="height:32px;width:165px;overflow:hidden;text-align:center;color:#33a8da;cursor:pointer;" onClick="location.href='<% = HomeAliasSL %>?SelShop=<% = ItemShopIDAry(RndNo) %>&Item=<% = ItemIDAry(RndNo) %>';"><% = ItemNameAry(RndNo) %></div>
</td>
</tr>
<tr>
<td align="center" nowrap>
\<% = ConvIntToMoney(ItemKakakuAry(RndNo), False, False) %><span class="tx1113"> (<% If "" & ItemShohizeiAry(RndNo) = "1" Then %>税込<% Else %>税別<% End If %>)</span>
</td>
</tr>
<tr>
<td>
<div style="height:16px;width:165px;overflow:hidden;text-align:center;color:#ff5bff;cursor:pointer;" onClick="location.href='<% = HomeAliasSL %>?SelShop=<% = ItemShopIDAry(RndNo) %>';"><% = ItemShopNameAry(RndNo) %></div>
</td>
</tr>
</table>
</div>
</td>
<%
OsusumeCnt = OsusumeCnt + 1
If OsusumeCnt >= 3 Then
Exit Do
End If
'RndNo以降の配列を前に詰める
Dim ICnt
For ICnt = RndNo + 1 to ItemAryCnt
ItemIDAry(ICnt - 1) = ItemIDAry(ICnt)
ItemNameAry(ICnt - 1) = ItemNameAry(ICnt)
ItemImageAry(ICnt - 1) = ItemImageAry(ICnt)
ItemKakakuAry(ICnt - 1) = ItemKakakuAry(ICnt)
ItemShohizeiAry(ICnt - 1) = ItemShohizeiAry(ICnt)
ItemShopIDAry(ICnt - 1) = ItemShopIDAry(ICnt)
ItemShopNameAry(ICnt - 1) = ItemShopNameAry(ICnt)
Next
ItemAryCnt = ItemAryCnt - 1
Loop
%>
</tr>
</table>
<%
End If
%>
<% End If %>
<% End If %>
</td>
</tr>
</table>
</form>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<!--
// VariableLayerHeight("ShopPage", 88);
-->
</SCRIPT>
<!-- #include file="./include_right.asp" -->
<!-- #include file="./include_bottom.asp" -->
<%
End Sub
%>