<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
' If Not(VisitorCheck()) Then
' Exit Sub
' End If
If Not(ShopAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim ActShopID
ActShopID = Request("ActShopID")
If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then
Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。 " & vbCrLf)
Response.Write("同一PC上で複数のIDでログインすることはできません。 " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("戻る" & vbCrLf)
Exit Sub
End If
%>
<%
Dim Query
Dim Content
Dim Content2
'画像フォルダ作成
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim ImageFolder
ImageFolder = "" & HomeAliasSL & ItemFolderSL
If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
fso.CreateFolder(Server.MapPath(ImageFolder))
End If
ImageFolder = ImageFolder & GB_ShopAdmin & "/"
If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
fso.CreateFolder(Server.MapPath(ImageFolder))
End If
Dim Item
Item = Request("Item")
Dim Order
Order = Request("Order")
If Order = "" Then
Order = "New"
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 Kaihatsu
Dim Cat
Dim SubCat
Dim Area
Dim Pref
Dim Meisho
Dim Kakaku
Dim ShohiZei
Dim Hozon
Dim HozonTemp
Dim Osusume
Dim Shokai
Dim ImageFile(3)
Dim ActFileNum(3)
Dim ImageFileListView
Dim Biko
Dim OrderMax
Dim NoCart
Dim NoCartURL
Dim PublishItem
If Item <> "" Then
If IsNumeric(Item) Then
'商品存在チェック
Set Content = QueryGetItemAdmin(GB_ShopAdmin, Item, "", "", Order, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Kaihatsu = "" & Content.Fields("生徒開発商品")
Cat = "" & Content.Fields("カテゴリID")
SubCat = "" & Content.Fields("サブカテゴリID")
Area = "" & Content.Fields("地方CD")
Pref = "" & Content.Fields("都道府県CD")
Meisho = "" & Content.Fields("名称")
Kakaku = "" & Content.Fields("価格")
ShohiZei = "" & Content.Fields("消費税フラグ")
Hozon = "" & Content.Fields("保存方法")
HozonTemp = "" & Content.Fields("保存温度")
OrderMax = "" & Content.Fields("注文上限")
Osusume = "" & Content.Fields("おすすめ")
NoCart = "" & Content.Fields("カート非利用")
NoCartURL = "" & Content.Fields("カート非利用URL") '値が存在すればURL、存在しなければ問合せフォーム
Shokai = Replace("" & Content.Fields("紹介文"), " ", vbCrLf)
ImageFile(1) = "" & Content.Fields("商品画像1")
ImageFile(2) = "" & Content.Fields("商品画像2")
ImageFile(3) = "" & Content.Fields("商品画像3")
ActFileNum(1) = "" & Content.Fields("商品画像トグル1")
ActFileNum(2) = "" & Content.Fields("商品画像トグル2")
ActFileNum(3) = "" & Content.Fields("商品画像トグル3")
ImageFileListView = "" & Content.Fields("商品画像一覧表示")
If ImageFileListView = "" Then
If ImageFile(1) <> "" Then
ImageFileListView = "1"
ElseIf ImageFile(2) <> "" Then
ImageFileListView = "2"
ElseIf ImageFile(3) <> "" Then
ImageFileListView = "3"
End If
End If
Biko = Replace("" & Content.Fields("備考"), " ", vbCrLf)
PublishItem = "" & Content.Fields("公開")
'画像フォルダ作成（商品IDをファイル名にするため商品IDフォルダは不要）
'ImageFolder = ImageFolder & Item & "/"
'If Not(fso.FolderExists(Server.MapPath(ImageFolder))) Then
' fso.CreateFolder(Server.MapPath(ImageFolder))
'End If
Else
'取得できなければ強制的に一覧に戻す
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?Order=" & Order & "")
End If
End If
End If
'ショップ情報取得
Dim DefaultDoc
Dim Publish
Dim ActName
Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
DefaultDoc = "" & Content.Fields("既定ドキュメント")
Publish = "" & Content.Fields("商品公開")
ActName = "" & Content.Fields("名称")
If ActName = "" Then
ActName = "" & Content.Fields("学校名")
End If
End If
%>
<%
End Sub
%>