<!-- #include file="include.asp" -->

<%
'################################################
'	 名称	:ログイン
'	 作成日:2002/8/9
'	 作成者:山崎
'	 目的 :ログイン画面を表示する。
'	 概要	:
'		<<表示>>
'		・画面サイズを800x600にする
'################################################
%>



<%
main()
Sub main()

	Dim GakuseiBango
	GakuseiBango = Request("GakuseiBango")
	If Session("Admin") <> "1" Then
	Session("Admin") = "0"
	End If
	If Request("admin") = "1" Then
	Response.Cookies("Admin")("No")= "1"
		Session("Admin") = "1"

	End If



%>
<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" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="include.js"></script>
<script language="JScript" src="includesj.js"></script>
<script language="JScript.Encode" src="include_enc.js"></script>
<script language="JScript.Encode" src="includesj_enc.js"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#002060" 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_sj4.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="#CCCCFF">
				Copyright &copy; System・Future Corporation Ltd.,<BR>
				2003-2007. All Rights Reserved.</font><BR>
				<% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %>
				<div id="cursor" style="font-size:12px;color:#CCCCFF"><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="/sj4web/images/top_spbtn_close.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="/sj4web/binx/swflash.cab#version=6,0,29,0" width="780" height="390">
		<param name="movie" value="/sj4web/images/sjttl2.swf">
		<param name="quality" value="high">
		<param name="BGCOLOR" value="#8D9BCC">
		<embed src="/sj4web/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>
		<TD HEIGHT="230">&nbsp;</TD>
	</TR>
	</TABLE>

	<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
	<TR>
	<% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %>
		<TD WIDTH="528">&nbsp;<TD>
		<TD align="right" valign="top">
			<div id="cursor" style="font-size:31px;color:#FFFF00"><I>体験コース版</I></div>
	<% ElseIf Request.ServerVariables("SERVER_NAME") = "www2.sfc-jpn.jp" Then %>
		<TD WIDTH="495">&nbsp;<TD>
		<TD align="right" valign="top">
			<div id="cursor" style="font-size:31px;color:#FFFF00"><I>インターネット版</I></div>
	<% ElseIf Request.ServerVariables("SERVER_NAME") = "www3.sfc-jpn.jp" Then %>
		<TD WIDTH="494">&nbsp;<TD>
		<TD align="right" valign="top">
			<div id="cursor" style="font-size:31px;color:#FFFF00"><I>全国学校間取引</I></div>
	<% Else %>
		<TD WIDTH="515">&nbsp;<TD>
		<TD align="right" valign="top">
			<div id="cursor" style="font-size:31px;color:#FFFF00"><I>平成<% = SetupHeisei %>年度版</I></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="164" align="lett" valign="bottom">

	<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
	<TR>
		<TD align="right" valign="bottom" width="100" class="tx1214" onClick="tblbtn( '/sj4web/system/default0.asp?admin=<% = Request("admin") %>')">
			<font color="#CCCCFF">
				Version:<% = 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="#FF4411"><B>ログインID</B></font>&nbsp;</td>
		<td width="90" height="25" valign="bottom">
			<input type="text" name="GakuseiBango" style="width:100px; height:20px" class="tbox1" value="<% = GakuseiBango %>">
		</td>
	</tr>
	<tr>
		<td width="70" height="25" valign="bottom" align="right" class="tx1214"><font color="#FF4411"><B>パスワード</B></font>&nbsp;</td>
		<td width="90" height="25" valign="bottom">
			<input type="password" name="Password" style="width:100px; height:20px" class="tbox1" size="20">
		</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.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" class="tbtn" onClick="tblbtn( 'reguser.asp')" background="images/spbtn_newid.gif">&nbsp;</td>
		<TD width="5" height="25"></td>
	</TR>
	</table>
	</TD>
	</TR>
	</table>
	</TD>
	</TR>
	</TABLE>
	</td>
	</tr>
	</TABLE>
	</td>
</tr>
</table>
</form>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>