<!-- #include file="include.asp" --> <% '################################################ ' 名称 :ログイン ' 作成日: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("データベースへの接続でエラーが発生しました<BR><BR>エラーメッセージ : " & 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" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="./binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="./include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="./includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="./include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="./includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="./javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>000000<% Else %>002060<% End If %>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" vlink="#CCCCFF" alink="#CCCCFF"> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="default_bin.asp"> <input type="hidden" name="admin" value="<% = Request("admin") %>"> <table width="100%" border="<% = debug_tb %>" cellspacing="0" cellpadding="0" height="100%"> <tr> <td align="center"> <TABLE WIDTH="825" HEIGHT="540" border="<% = debug_tb %>" CELLPADDING="0" CELLSPACING="0" background="images/top_bg_<% If Left(AppTitle,12) = "サイバー会計21Web(" Then 'サイバー会計21Web %>ca<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム(" Then '堺高校用設定 %>sj4_muji<% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版(" Then 'ビジネス実践 原価会計対応版 設定 %>bjg<% Else %>sj4<% End If %>.jpg"> <tr> <td align="center"> <table width="95%" border="<% = debug_tb %>" cellspacing="0" cellpadding="0" height="100%"> <TR> <TD height="15" align="right"></TD> </TR> <TR> <TD HEIGHT="65" valign="top"> <table Width="100%" border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <TD> <table height="24" width="250" border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <tr> <TD class="tx1214"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>cccccc<% Else %>CCCCFF<% End If %>"> Copyright<span onClick="tblbtn( '<% = HomeAliasSL %>system/default0.asp?admin=<% = Request("admin") %>')"> © </span>2003-2009<BR>System・Future Corporation Ltd.<BR> All rights reserved.</font><BR> <% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %> <div style="font-size:12px;color:#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>eeffee<% Else %>CCCCFF<% End If %>"><a href="http://www.sfc-jpn.jp" target="_brank">スーパー実践くん4WebCollabo 企画・開発の<br>システムフューチャー株式会社のホームページ</a></div> <% End If%> </TD> </tr> </table> </td> <TD align="right" valign="top"> <table border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <TD width="75" valign="top" class="tbtn" onclick="ExitFlg=0;top.window.close()"; width="60" background="<% = HomeAliasSL %>images/top_spbtn_close<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>ca<% End If %>.gif" height="25"> </TD> </TR> </table> </TD> </tr> </table> </td> </TR> <TR> <TD height="382" valign="top"> <% If TopPageUseFlash = 1 Then %> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="<% = HomeAliasSL %>binx/swflash.cab#version=6,0,29,0" width="780" height="390"> <param name="movie" value="<% = HomeAliasSL %>images/sjttl2.swf"> <param name="quality" value="high"> <param name="BGCOLOR" value="#8D9BCC"> <embed src="<% = HomeAliasSL %>images/sjttl2.swf" width="780" height="390" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" bgcolor="#8D9BCC"></embed></object> <% End If %> <table border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <% If 0=1 Then %> <% ElseIf Left(AppTitle,12) = "サイバー会計21Web(" Then 'サイバー会計21Web %> <TD HEIGHT="312"> </TD> <% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %> <TD HEIGHT="163"> </TD> <% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %> <TD HEIGHT="163"> </TD> <% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム(" Then '堺高校用設定 %> <TD HEIGHT="250"> </TD> <% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %> <TD HEIGHT="200"> </TD> <% Else %> <TD HEIGHT="230"> </TD> <% End If%> </TR> </TABLE> <table border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <% If 0=1 Then %> <% ElseIf Left(AppTitle,12) = "サイバー会計21Web(" Then 'サイバー会計21Web %> <TD WIDTH="30"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:187px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I> <% = SetupNendo %>版 </I></div> </div> <% ElseIf Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then 'Webサイト %> <TD WIDTH="524"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:176px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I> 体験コース版 </I></div> </div> <% ElseIf Request.ServerVariables("SERVER_NAME") = "www2.sfc-jpn.jp" Then 'サーバー方式 %> <TD WIDTH="491"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:210px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I> インターネット版 </I></div> </div> <% ElseIf Request.ServerVariables("SERVER_NAME") = "www3.sfc-jpn.jp" Then '学校間取引 %> <TD WIDTH="486"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:217px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I> 全国学校間取引 </I></div> </div> <% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %> <TD WIDTH="460"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="font-size:31px;color:#FFFF00"><I><% = SetupNendo %>版<BR>吉原商業高等学校<BR>総合実践システム</I></div> </div> <% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %> <TD WIDTH="460"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="font-size:31px;color:#FFFF00"><I><% = SetupNendo %>版<BR>関商工高等学校<BR>総合実践システム</I></div> </div> <% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム(" Then '堺高校用設定 %> <TD WIDTH="380"> <TD> <TD align="right" valign="top"> <span style="font-size:27px;color:#FFFF00"><I><% = SetupNendo %>版 堺市立堺高等学校</I></span><BR> <span style="font-size:47px;color:#ffbd00"><I>コンピュータ会計 <BR>総合実践システム</I></span> <% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %> <TD WIDTH="430"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="font-size:31px;color:#FFFF00"><I>橘高等学校<BR>原価会計システム版</I></div> </div> <% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版(" Then 'ビジネス実践 原価会計対応版 %> <TD WIDTH="500"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:187px;font-size:31px;color:#FFFF00;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);"><% = SetupNendo %>版</div> </div> <% ElseIf Right(AppTitle,11) = "(長野県学校間取引版)" Then '長野県学校間取引版 %> <TD WIDTH="420"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:282px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I>長野県学校間取引版</I></div> </div> <% Else '通常版 %> <TD WIDTH="513"> <TD> <TD align="right" valign="top"> <div style="position:relative; width:100%;"> <div style="position:absolute;width:187px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:31px;color:#FFFF00"><I> <% = SetupNendo %>版 </I></div> </div> <% End If%> </TD> </TR> </table> </TD> </TR> <TR> <TD height="78"> <table width="100%" border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <TD height="50" width="<% If Left(AppTitle,12) = "サイバー会計21Web(" Then 'サイバー会計21Web %>262<% Else %>164<% End If %>" align="lett" valign="bottom"> <table border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <TD align="right" valign="bottom" width="100" class="tx1214"> <font color="#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>333333<% Else %>CCCCFF<% End If %>"> <span class="tx1214"<% If DebugFlg > 0 Then %> onClick="form1.GakuseiBango.value='<% = AdminGakuseiBango %>';form1.Password.value='<% = AdminPassword %>';form1.submit();"<% End If %>>Version</span>:<% = SetupVersion %></font> </TD> </TR> </table> </TD> <TD height="50" align="lett" valign="bottom"> <table height="50" border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <tr> <td width="70" height="25" valign="bottom" align="right" class="tx1214"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>474747<% Else %>FF4411<% End If %>"><B>ログインID</B></font> </td> <td width="90" height="25" valign="bottom"> <input type="text" name="GakuseiBango" style="width:110px; height:20px" class="tbox1" value="<% = GakuseiBango %>" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);"> </td> </tr> <tr> <td width="70" height="25" valign="bottom" align="right" class="tx1214"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>474747<% Else %>FF4411<% End If %>"><B>パスワード</B></font> </td> <td width="90" height="25" valign="bottom"> <input type="password" name="Password" style="width:110px; height:20px" class="tbox1" size="20" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);"> </td> <td width="5" height="25"> </td> <td width="91" height="25" align="center" valign="middle" class="tbtn" onClick="submit()" background="images/spbtn_login<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>ca<% End If %>.gif"> </td> </tr> </table> </TD> <TD height="50" align="right" valign="bottom"> <table border="<% = debug_tb %>" cellpadding="0" cellspacing="0"> <TR> <TD width="102" height="25" align="center" valign="middle"<% If IDTourokuButton > 0 Then %> class="tbtn" onClick="tblbtn( 'reguser.asp')" background="images/spbtn_newid<% If Left(AppTitle,12) = "サイバー会計21Web(" Then %>ca<% End If %>.gif"<% End If %>> </td> <TD width="5" height="25"></td> </TR> </table> </TD> </TR> </table> </TD> </TR> </TABLE> </td> </tr> </TABLE> </td> </tr> </table> </form> </body> <SCRIPT LANGUAGE="JavaScript"> <!-- //cnsapass.ini存在チェックによる運用管理判定 if (typeof(Init3()) != "object" && CheckAdminPC()) { form1.admin.value = "1"; } function Init3() { try { var fso; fso = new ActiveXObject("Scripting.FileSystemObject"); } catch(e) { return e; } return ""; } function CheckAdminPC() { var w_chk, fso, w_dir, w_tmpdir, w_fnm; var bExist; bExist = 0; w_chk = "cnsapass.ini"; fso = new ActiveXObject("Scripting.FileSystemObject"); w_dir = "c:"; w_tmpdir = "c:\\winnt\\system"; if (fso.FolderExists(w_tmpdir)) { w_dir = w_tmpdir; w_fnm = w_dir + "\\" + w_chk; if (fso.FileExists(w_fnm)) { bExist = 1; } } w_tmpdir = "c:\\winnt\\system32"; if (fso.FolderExists(w_tmpdir)) { w_dir = w_tmpdir; w_fnm = w_dir + "\\" + w_chk; if (fso.FileExists(w_fnm)) { bExist = 1; } } w_tmpdir = "c:\\windows\\system"; if (fso.FolderExists(w_tmpdir)) { w_dir = w_tmpdir; w_fnm = w_dir + "\\" + w_chk; if (fso.FileExists(w_fnm)) { bExist = 1; } } w_tmpdir = "c:\\windows\\system32"; if (fso.FolderExists(w_tmpdir)) { w_dir = w_tmpdir; w_fnm = w_dir + "\\" + w_chk; if (fso.FileExists(w_fnm)) { bExist = 1; } } if (bExist == 0) { return false; } return true; } //デバッグ用表示 // alert("\nclientWidth:" + document.body.clientWidth + "px \n\nclientHeight:" + document.body.clientHeight + "px \n\n"); // alert("\nDecorativeWidth:" + DecorativeWidth + "px \n\nDecorativeHeight:" + DecorativeHeight + "px \n\n"); --> </SCRIPT> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> //フォーカスコントロール <% If GakuseiBango <> "" And GakuseiBangoErr <> "1" Then %> form1.Password.focus(); <% Else %> form1.GakuseiBango.focus(); form1.GakuseiBango.select(); <% End If %> </SCRIPT> <% = HtmlFooter %> </html> <% CloseQuery() End Sub %>