<!-- #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 © 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"> </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"> </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"> <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"> <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"> <TD> <TD align="right" valign="top"> <div id="cursor" style="font-size:31px;color:#FFFF00"><I>全国学校間取引</I></div> <% Else %> <TD WIDTH="515"> <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> </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> </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"> </td> <td width="91" height="25" align="center" valign="middle" class="tbtn" onClick="submit()" background="images/spbtn_login.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" class="tbtn" onClick="tblbtn( 'reguser.asp')" background="images/spbtn_newid.gif"> </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 %>