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

<%
'<!--
'################################################
'	名称	:商社メニュー
'	作成日:2002/10/18
'	作成者:山崎
'################################################
'-->
%>


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


<SCRIPT LANGUAGE="JavaScript">
function Init3()
{
	try{
		var fso;
		fso = new ActiveXObject("Scripting.FileSystemObject");
	}
	catch(e){
		return e;
	}

	return "";
}


function CheckAdminPC()
{
	<% If NoCheckAdminPC = 0 Then %>
	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;
	}
	<% End If %>
	return true;

}
</script>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%

Response.Write(HtmlDesign(7))

 %>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<form name="form1">
	<tr>
		<td>
			<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="font-size: 14px; border: 1px solid #000000" width="600" height="400">


							<TR>
								<TD ALIGN="CENTER" bgcolor="#CCFFFF" height="60">


<p>このページは、隠しページです。(6ページ目)<br>
必要の無い場合には、トップページに戻って下さい。<br>
<a href="default5.asp">前のページに戻る</a>
   <a href="/sj4web/default.asp">トップページへ戻る</a></p>


								</TD>
							</TR>
							<TR>
								<TD ALIGN="CENTER">

									<table border="1" cellpadding="0" cellspacing="0" width="400" height="200" class="tx1214" style="border-collapse:collapse" bordercolor="#666666">
										<tr>
											<td height="80">
このコンピューターの設定を確認します。<br>
											</td>
										</tr>
										<tr>
											<td>
									<SCRIPT LANGUAGE="JavaScript">
<% If Session("AdminPC") = "1" Then %>
												document.write("<font color='#0000ff'>このコンピューターで、運用管理を利用できる設定になっています。</font>");
<% Else %>
										if(typeof(Init3()) == "object")
										{
											document.write("このコンピューターは、生徒機の設定になっています。");
										}
										else
										{
											if(!CheckAdminPC())
											{
												document.write("このコンピューターは、生徒機の設定になっています。");
											}
											else
											{
												document.write("<font color='#0000ff'>このコンピューターで、運用管理を利用できる設定になっています。</font>");
											}
										}
<% End If %>
										</script>
											 </td>
										</tr>
									</table>

								</TD>
							</TR>
							<TR> 
								<TD ALIGN="CENTER" valign="top" height="90">
									<a href="default7.asp">次のページへ</a>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</form>
</table>

</div>
</body>

<% = HtmlFooter %>
</html>
<%
End Sub
%>