<!-- #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") %>')"> &copy; </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">&nbsp;</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">&nbsp;</TD>
	<% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %>
		<TD HEIGHT="163">&nbsp;</TD>
	<% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %>
		<TD HEIGHT="163">&nbsp;</TD>
	<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム(" Then '堺高校用設定 %>
		<TD HEIGHT="250">&nbsp;</TD>
	<% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %>
		<TD HEIGHT="200">&nbsp;</TD>
	<% Else %>
		<TD HEIGHT="230">&nbsp;</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">&nbsp;<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">&nbsp;<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">&nbsp;<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">&nbsp;<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">&nbsp;<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">&nbsp;<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">&nbsp;<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>コンピュータ会計&nbsp;&nbsp;&nbsp;<BR>総合実践システム</I></span>
	<% ElseIf SetupNendo  = "橘高等学校 原価会計システム" Then '橘高校用設定 %>
		<TD WIDTH="430">&nbsp;<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">&nbsp;<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">&nbsp;<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">&nbsp;<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>&nbsp;</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>&nbsp;</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">&nbsp;</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">&nbsp;</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 %>>&nbsp;</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
%>