650<% Else %>686<% End If %>" border="<% = debug_tb %>" CELLPADDING="0" CELLSPACING="0" background="<% 'ランダム背景 Dim GazoFileAry ReDim GazoFileAry(0) Dim objFS Set objFS = Server.CreateObject("Scripting.FileSystemObject") Dim objDIR Dim objFile Dim FileFolder FileFolder = "/" & HomeAlias & "/data/topimage" If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then objFS.CreateFolder(Server.MapPath(FileFolder)) End If Set objDIR = objFS.GetFolder(Server.MapPath(FileFolder)) For Each objFile In objDIR.Files If LCase(Right(objFile.Name, 4)) = ".jpg" Or LCase(Right(objFile.Name, 4)) = ".png" Or LCase(Right(objFile.Name, 4)) = ".gif" Then ReDim PreServe GazoFileAry(UBound(GazoFileAry) + 1) '配列+1 GazoFileAry(UBound(GazoFileAry)) = objFile.Name End If Next If UBound(GazoFileAry) > 0 Then Randomize Dim RndNo RndNo = Int((UBound(GazoFileAry) * Rnd) + 1) '1～最大配列数の数値を生成（Fix関数では正しく処理されない？） Response.Write(FileFolder & "/" & GazoFileAry(RndNo)) 'ランダム背景 ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web 'If GB_IEmode <> "1" Then Response.Write("images/top_bg_ca_edge.jpg") 'Else ' Response.Write("images/top_bg_ca.jpg") 'End If ElseIf MajorVersion >= 7 Then 'sj7定義 If AppTitle = "総合実践システム" Then '総合実践システム(2023) ※北陸高校 Response.Write("images/top_bg_sj7_sogo.png") 'この画像は学校名を入れてないので汎用で使える Else Response.Write("images/top_bg_sj7.png") End If ElseIf MajorVersion >= 6 Then 'sj6定義 Response.Write("images/top_bg_sj6.png") ElseIf MajorVersion >= 5 Then 'sj5定義 If AppTitle = "堺市版ビジネス実践システム" Then '堺高校用設定(2016) Response.Write("images/top_bg_sj5_sakai.png") ElseIf AppTitle = "中央高等学校版総合実践システム" Then '中央高校用設定(2020) Response.Write("images/top_bg_sj5_chuoh.png") Else Response.Write("images/top_bg_sj5.gif") End If Else 'sj4定義 If Left(AppTitle,18) = "コンピュータ会計総合実践システム（" Then '堺高校用設定（旧sj4） Response.Write("images/top_bg_sj4_muji.jpg") ElseIf Left(AppTitle,15) = "ビジネス実践原価会計対応版（" Then 'ビジネス実践原価会計対応版設定 Response.Write("images/top_bg_bjg.jpg") Else Response.Write("images/top_bg_sj4.jpg") End If End If %>?<% = GB_STU %>">

474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>"> Copyright')"> © 2003-2024
System Future Company Ltd.
All rights reserved.<% '= MajorVersion %>

<% If VSMEnabled = 1 Then '仮想ショッピングモール表示 %>

<% Else %> <% If GB_IEmode = "1" Then 'Edgeではログオフ後に閉じるボタンが反応しない %> <% End If %>

ca.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>" height="25">

<% End If %>

<% If TopPageUseFlash = 1 Then %>

<% End If %> <% If UBound(GazoFileAry) = 0 Then 'ランダム背景では非表示 %> <% If AppTitle = "堺市版ビジネス実践システム" Then '堺高校用設定(2016)では非表示 %> <% ElseIf AppTitle = "中央高等学校版総合実践システム" Then '中央高校用設定(2020)では非表示 %> <% Else %> <% If MajorVersion => 5 And Left(AppTitle,12) <> "サイバー会計21Web（" Then %>

<% If MajorVersion = 5 Then %>

<% End If %> <% Else %> <% If 0=1 Then %> <% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %> <% ElseIf Left(AppTitle,17) = "吉原商業高等学校総合実践システム" Then '吉原商業用設定 %> <% ElseIf Left(AppTitle,16) = "関商工高等学校総合実践システム" Then '関商工用設定 %> <% ElseIf Left(AppTitle,18) = "コンピュータ会計総合実践システム（" Then '堺高校用設定 %> <% ElseIf Left(AppTitle,15) = "ビジネス実践原価会計対応版（" Then 'ビジネス実践原価会計対応版 %> <% ElseIf SetupNendo = "橘高等学校原価会計システム" Then '橘高校用設定 %> <% Else %> <% End If%>

<% If 0=1 Then %> <% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %>

<% ElseIf TmpServerName = "www.sfc-jpn.jp" Then 'Webサイト %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:228px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00"> 体験コース版

<% ElseIf TmpServerName = "www2.sfc-jpn.jp" Then 'サーバー方式 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:271px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00"> インターネット版

<% ElseIf TmpServerName = "www3.sfc-jpn.jp" Or TmpServerName = "www4.sfc-jpn.jp" Then '学校間取引 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:282px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00"> 全国学校間取引

<% ElseIf Left(AppTitle,17) = "吉原商業高等学校総合実践システム" Then '吉原商業用設定 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:314px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:38px;line-height:40px;color:#FFFF00"><% = SetupNendo %>版
吉原商業高等学校
総合実践システム

<% ElseIf Left(AppTitle,16) = "関商工高等学校総合実践システム" Then '関商工用設定 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:301px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:38px;line-height:40px;color:#FFFF00"><% = SetupNendo %>版
関商工高等学校
総合実践システム

<% ElseIf Left(AppTitle,18) = "コンピュータ会計総合実践システム（" Then '堺市立高校用設定 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:471px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:32px;line-height:34px;color:#FFFF00"><% = SetupNendo %>版　堺市立堺高等学校

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;top:48px;width:514px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:64px;line-height:66px;color:#ffbd00">コンピュータ会計
総合実践システム

<% ElseIf SetupNendo = "橘高等学校原価会計システム" Then '橘高校用設定 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:355px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00">橘高等学校
原価会計システム版

<% ElseIf Left(AppTitle,15) = "ビジネス実践原価会計対応版（" Then 'ビジネス実践原価会計対応版 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:242px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00"><% = SetupNendo %>版

<% ElseIf Right(AppTitle,11) = "（長野県学校間取引版）" Then '長野県学校間取引版 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:360px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00">長野県学校間取引版

<% Else '通常版 %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; position:absolute;width:244px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;line-height:42px;color:#FFFF00;border:solid <% = debug_tb %>px #ffffff;"> <% = SetupNendo %>版

<% End If%>

<% End If %> <% End If %> <% End If %>

344<% Else %>460<% End If End If %>" align="lett" valign="bottom"> <% If MajorVersion => 5 Then %> <% End If %>

Alial<% Else %>'ＭＳＰゴシック'<% End If %>; font-size:30px;line-height:30px;color:#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>121e36<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>BBBBEE<% End If %>"> <% = SetupNendo %>版

474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>"> 0 Then %> onClick="form1.GakuseiBango.value='<% = AdminGakuseiBango %>';form1.Password.value='<% = AdminPassword %>';form1.submit();"<% End If %>>Version<% = SetupVersion %>

<% If GB_IEmode = "1" Then %>474747<% Else %>ffffff<% End If %><% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>">ログインID
<% If GB_IEmode = "1" Then %>474747<% Else %>ffffff<% End If %><% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>">パスワード			ca.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>">

<% If Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %> <% End If %>

0 Then %> class="tbtn" onClick="tblbtn( 'reguser.asp')" background="images/spbtn_newid<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>ca.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>"<% End If %>>