<!-- #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
%>