<% '################################################ ' 名称 ：ログイン ' 作成日：2002/8/9 ' 作成者：山崎 ' 目的　：ログイン画面を表示する。 ' 概要 ： '################################################ %> <% main() Sub main() 'タイムスタンプ判定 Dim LimitDate LimitDate = "2018/03/31" LimitDate = "2017/10/03" If DateDiff("s", LimitDate, Now) > 0 Then ' Response.Write("このアプリケーションは使用期限を過ぎています

使用期限：" & LimitDate & "") ' Exit Sub End If '旧バージョンのアップデート用途は実質Edge対応以外にあり得ない＝制限してはならないのでこの制限は廃止 If 0=1 And MajorVersion < 5 Then '実践5以降は無条件スルー If VersionLimit <> "" And IsNumeric(VersionLimit) Then If VersionLimit > 0 Then 'USER_AGENT判定 Dim TmpUserAgent Dim TmpStrAry TmpUserAgent = Request.ServerVariables("HTTP_USER_AGENT") TmpStrAry = Split(TmpUserAgent, "Windows NT") If UBound(TmpStrAry) > 0 Then TmpUserAgent = TmpStrAry(1) TmpStrAry = Split(TmpUserAgent, ";") If UBound(TmpStrAry) > 0 Then TmpUserAgent = TmpStrAry(0) TmpUserAgent = Trim(TmpUserAgent) If TmpUserAgent <> "" And IsNumeric(TmpUserAgent) Then TmpUserAgent = CDbl(TmpUserAgent) 'Response.Write(TmpUserAgent) 'Exit Sub If TmpUserAgent > VersionLimit Then 'Response.Write(TmpUserAgent) 'Exit Sub Response.Write("Unsupported Operating System

This application is not compatible with the version of the operating system. (Windows NT " & TmpUserAgent & ")") Exit Sub End If End If End If End If End If End If End If 'システムCD強制 If GB_SystemCD = "" Then Session(HomeAlias & "SystemCD") = "SFC" GB_SystemCD = Session(HomeAlias & "SystemCD") End If Dim GakuseiBango GakuseiBango = Request("GakuseiBango") If Session(DBName & "Admin") <> "1" Then Session(DBName & "Admin") = "0" End If If Request("admin") = "1" Then Session(DBName & "Admin") = "1" Session(DBName & "AdminPC") = "1" End If Dim GakuseiBangoErr GakuseiBangoErr = Request("GakuseiBangoErr") Dim Query Dim Content 'データベースエラー表示機能追加（090123小野） On Error Resume Next Err.Clear() Set db = Server.CreateObject("ADODB.Connection") db.ConnectionTimeout = 60 db.CommandTimeout = 60 db.Open SQLConn If Err.Description <> "" Then Response.Write("データベースへの接続でエラーが発生しました

エラーメッセージ ： " & Err.Description) Exit Sub End If On Error Goto 0 Query = "exec SPMシステム一覧" 'この時点ではシステムコードが不明なので一覧から取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("デフォルトフラグ") = 1 Then SetupVersion = Content.Fields("バージョン") Exit Do End If Content.MoveNext Loop 'デバッグモード自動ログイン用 Dim AdminGakuseiBango Dim AdminPassword If DebugFlg > 0 Then Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.EOF Or Content.EOF) AdminGakuseiBango = UCase(Content.Fields("管理者コード")) AdminPassword = UCase(Content.Fields("パスワード")) Content.MoveNext Loop End If Dim TmpServerName TmpServerName = Request.ServerVariables("SERVER_NAME") 'デバッグ用 ' TmpServerName = "www.sfc-jpn.jp" ' TmpServerName = "www2.sfc-jpn.jp" ' TmpServerName = "www3.sfc-jpn.jp" ' AppTitle = "サイバー会計21Web（" ' AppTitle = "吉原商業高等学校 総合実践システム" ' AppTitle = "関商工高等学校 総合実践システム" ' AppTitle = "ビジネス実践 原価会計対応版（" 'ビジネス実践 原価会計対応版 ' AppTitle = "コンピュータ会計 総合実践システム（" '堺市立高校用設定 ' SetupNendo = "橘高等学校 原価会計システム" ' AppTitle = "中央高等学校版総合実践システム" debug_tb = "0" %> <% = HtmlHeader("") %> <% Dim PageBGColor PageBGColor= "" If MajorVersion => 5 Then PageBGColor = "183874" Else PageBGColor = "002060" End If %>
">
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定義 Response.Write("images/top_bg_sj7.png") 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-2023
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 %>>   
<% = HtmlFooter %> <% CloseQuery() End Sub %>