<%
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 HomepageFolder
HomepageFolder = "" & HomeAliasSL & ShopFolderSL
If Not(fso.FolderExists(Server.MapPath(HomepageFolder))) Then
fso.CreateFolder(Server.MapPath(HomepageFolder))
End If
HomepageFolder = HomepageFolder & GB_ShopAdmin & "/"
If Not(fso.FolderExists(Server.MapPath(HomepageFolder))) Then
fso.CreateFolder(Server.MapPath(HomepageFolder))
End If
Dim FCnt
'現在のフォルダ
Dim ActFolder
ActFolder = "/"
'一つ上のフォルダ
Dim PrevFolder
If Request("Folder") <> "" Then
ActFolder = Request("Folder")
Dim ActFolderAry
ActFolderAry = Split(ActFolder, "/")
For FCnt = 0 To UBound(ActFolderAry)
'フォルダ階層再帰処理で存在しなければ作成
If ActFolderAry(FCnt) <> "" Then
HomepageFolder = HomepageFolder & ActFolderAry(FCnt) & "/"
If Not(fso.FolderExists(Server.MapPath(HomepageFolder))) Then
fso.CreateFolder(Server.MapPath(HomepageFolder))
End If
End If
Next
'一つ上のフォルダ
Dim LastFolderFlg
LastFolderFlg = 0 '最終フォルダから逆に重ねるため最終フォルダを除外するためのフラグ
For FCnt = UBound(ActFolderAry) To 0 Step -1
If ActFolderAry(FCnt) <> "" Then
If LastFolderFlg = 0 Then
LastFolderFlg = 1
Else
PrevFolder = ActFolderAry(FCnt) & "/" & PrevFolder '一つ上のフォルダ
End If
End If
Next
End If
'Response.Write(ActFolder & " " & PrevFolder)
'Exit Sub
'ショップ情報取得
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("Webページ公開")
ActName = "" & Content.Fields("名称")
If ActName = "" Then
ActName = "" & Content.Fields("学校名")
End If
End If
%>