<% '################################################ ' 名称 ：ログイン ' 作成日：2002/8/9 ' 作成者：山崎 ' 目的　：ログイン画面を表示する。 ' 概要 ： ' <<表示>> ' ・画面サイズを800x600にする '################################################ %> <% main() Sub main() 'システム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 'debug_tb = "1" %> <% = AppTitle %> 000000<% Else %>002060<% End If %>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" vlink="#CCCCFF" alink="#CCCCFF">
">
ca<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム（" Then '堺高校用設定 %>sj4_muji<% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版（" Then 'ビジネス実践 原価会計対応版 設定 %>bjg<% Else %>sj4<% End If %>.jpg">
cccccc<% Else %>CCCCFF<% End If %>"> Copyright')"> © 2003-2009
System・Future Corporation Ltd.
All rights reserved.
<% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %> <% End If%>
ca<% End If %>.gif" height="25"> 
<% If TopPageUseFlash = 1 Then %> <% End If %> <% 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 SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %> <% Else %> <% End If%>
      
<% If 0=1 Then %> <% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %>
 
<% = SetupNendo %>版
<% ElseIf Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then 'Webサイト %> 		 
体験コース版
<% ElseIf Request.ServerVariables("SERVER_NAME") = "www2.sfc-jpn.jp" Then 'サーバー方式 %> 		 
インターネット版
<% ElseIf Request.ServerVariables("SERVER_NAME") = "www3.sfc-jpn.jp" Then '学校間取引 %> 		 
全国学校間取引
<% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %> 		 
<% = SetupNendo %>版
吉原商業高等学校
総合実践システム
<% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %> 		 
<% = SetupNendo %>版
関商工高等学校
総合実践システム
<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム（" Then '堺高校用設定 %> 		  <% = SetupNendo %>版　堺市立堺高等学校
コンピュータ会計   
総合実践システム <% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %> 		 
橘高等学校
原価会計システム版
<% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版（" Then 'ビジネス実践 原価会計対応版 %> 		 
<% = SetupNendo %>版
<% ElseIf Right(AppTitle,11) = "（長野県学校間取引版）" Then '長野県学校間取引版 %> 		 
長野県学校間取引版
<% Else '通常版 %> 		 
<% = SetupNendo %>版
<% End If%>
262<% Else %>164<% End If %>" align="lett" valign="bottom">
333333<% Else %>CCCCFF<% End If %>"> 0 Then %> onClick="form1.GakuseiBango.value='<% = AdminGakuseiBango %>';form1.Password.value='<% = AdminPassword %>';form1.submit();"<% End If %>>Version:<% = SetupVersion %>
474747<% Else %>FF4411<% End If %>">ログインID 
474747<% Else %>FF4411<% End If %>">パスワード    ca<% End If %>.gif"> 
0 Then %> class="tbtn" onClick="tblbtn( 'reguser.asp')" background="images/spbtn_newid<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>ca<% End If %>.gif"<% End If %>> 
<% = HtmlFooter %> <% CloseQuery() End Sub %>