<!-- #include file="include.asp" -->
<%
'################################################
' 名称 ：ログイン
' 作成日：2002/8/9
' 作成者：山崎
' 目的 ：ログイン画面を表示する。
' 概要 ：
'################################################
%>
<%
main()
Sub main()
'タイムスタンプ判定
Dim LimitDate
LimitDate = "2018/03/31"
LimitDate = "2017/10/03"
If DateDiff("s", LimitDate, Now) > 0 Then
' Response.Write("<font size=""+2"">このアプリケーションは使用期限を過ぎています</font><br><br>使用期限：" & LimitDate & "")
' Exit Sub
End If
If MajorVersion < 5 Then '実践5以降は無条件スルー
If VersionLimit <> "" And IsNumeric(VersionLimit) Then
If VersionLimit > 0 Then
'USER_AGENT判定
Dim TmpUserAgent
Dim TmpStrAry
TmpUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
TmpStrAry = Split(TmpUserAgent, "Windows NT")
If UBound(TmpStrAry) > 0 Then
TmpUserAgent = TmpStrAry(1)
TmpStrAry = Split(TmpUserAgent, ";")
If UBound(TmpStrAry) > 0 Then
TmpUserAgent = TmpStrAry(0)
TmpUserAgent = Trim(TmpUserAgent)
If TmpUserAgent <> "" And IsNumeric(TmpUserAgent) Then
TmpUserAgent = CDbl(TmpUserAgent)
'Response.Write(TmpUserAgent)
'Exit Sub
If TmpUserAgent > VersionLimit Then
'Response.Write(TmpUserAgent)
'Exit Sub
Response.Write("<span style=""font-family: 'Times New Roman';""><font size=""+2"">Unsupported Operating System</font><br><br>This application is not compatible with the version of the operating system. (Windows NT " & TmpUserAgent & ")</span>")
Exit Sub
End If
End If
End If
End If
End If
End If
End If
'システム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
Dim TmpServerName
TmpServerName = Request.ServerVariables("SERVER_NAME")
'デバッグ用
' TmpServerName = "www.sfc-jpn.jp"
' TmpServerName = "www2.sfc-jpn.jp"
' TmpServerName = "www3.sfc-jpn.jp"
' AppTitle = "サイバー会計21Web（"
' AppTitle = "吉原商業高等学校 総合実践システム"
' AppTitle = "関商工高等学校 総合実践システム"
' AppTitle = "ビジネス実践 原価会計対応版（" 'ビジネス実践 原価会計対応版
' AppTitle = "コンピュータ会計 総合実践システム（" '堺市立高校用設定
' SetupNendo = "橘高等学校 原価会計システム"
' AppTitle = "中央高等学校版総合実践システム"
'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 %>";
function EnterLogin() {
if (window.event.keyCode == 13) {
form1.submit();
}
}
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#<% If MajorVersion => 5 Then %>183874<% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then %>000000<% Else %>002060<% End If %>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" vlink="#CCCCFF" alink="#CCCCFF">
<form OnKeyDown="if(document.activeElement.name=='Password'){EnterLogin();}else{FormKeyDown(this);}" name="form1" method="POST" action="default_bin.asp" autocomplete="off">
<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="1004" HEIGHT="686" border="<% = debug_tb %>" CELLPADDING="0" CELLSPACING="0" background="<%
'ランダム背景
Dim GazoFileAry
ReDim GazoFileAry(0)
Dim objFS
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Dim objDIR
Dim objFile
Dim FileFolder
FileFolder = "/" & HomeAlias & "/data/topimage"
If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then
objFS.CreateFolder(Server.MapPath(FileFolder))
End If
Set objDIR = objFS.GetFolder(Server.MapPath(FileFolder))
For Each objFile In objDIR.Files
If LCase(Right(objFile.Name, 4)) = ".jpg" Or LCase(Right(objFile.Name, 4)) = ".png" Or LCase(Right(objFile.Name, 4)) = ".gif" Then
ReDim PreServe GazoFileAry(UBound(GazoFileAry) + 1) '配列+1
GazoFileAry(UBound(GazoFileAry)) = objFile.Name
End If
Next
If UBound(GazoFileAry) > 0 Then
Randomize
Dim RndNo
RndNo = Int((UBound(GazoFileAry) * Rnd) + 1) '1～最大配列数の数値を生成（Fix関数では正しく処理されない？）
Response.Write(FileFolder & "/" & GazoFileAry(RndNo)) 'ランダム背景
ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web
Response.Write("images/top_bg_ca.jpg")
ElseIf MajorVersion >= 6 Then
'sj6定義
Response.Write("images/top_bg_sj6.png")
ElseIf MajorVersion >= 5 Then
'sj5定義
If AppTitle = "堺市版ビジネス実践システム" Then '堺高校用設定(2016)
Response.Write("images/top_bg_sj5_sakai.png")
ElseIf AppTitle = "中央高等学校版総合実践システム" Then '中央高校用設定(2020)
Response.Write("images/top_bg_sj5_chuoh.png")
Else
Response.Write("images/top_bg_sj5.gif")
End If
Else
'sj4定義
If Left(AppTitle,18) = "コンピュータ会計 総合実践システム（" Then '堺高校用設定（旧sj4）
Response.Write("images/top_bg_sj4_muji.jpg")
ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版（" Then 'ビジネス実践 原価会計対応版 設定
Response.Write("images/top_bg_bjg.jpg")
Else
Response.Write("images/top_bg_sj4.jpg")
End If
End If
%>?<% = GB_STU %>">
<!--
<tr>
<td align="center">
<table width="96%" border="<% = debug_tb %>" cellspacing="0" cellpadding="0" height="100%">
-->
<TR>
<TD height="16" 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 width="21"> </TD>
<TD class="tx1214"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>">
Copyright<span onClick="tblbtn( '<% = HomeAliasSL %>system/default0.asp?admin=<% = Request("admin") %>')"> © </span>2003-2021<BR>System・Future Corporation Ltd.<BR>
All rights reserved.</font><BR>
</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.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>" height="25"> </TD>
<TD width="22"> </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 %>
<% If UBound(GazoFileAry) = 0 Then 'ランダム背景では非表示 %>
<% If AppTitle = "堺市版ビジネス実践システム" Then '堺高校用設定(2016)では非表示 %>
<% ElseIf AppTitle = "中央高等学校版総合実践システム" Then '中央高校用設定(2020)では非表示 %>
<% Else %>
<% If MajorVersion => 5 And Left(AppTitle,12) <> "サイバー会計21Web（" Then %>
<!-- 高さ合わせ空テーブル -->
<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<TR>
<TD HEIGHT="156"> </TD>
</TR>
</TABLE>
<% If MajorVersion = 5 Then %>
<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0" width="1004" height="91" background="images/top_bg_sj5_anime.gif">
<TR>
<TD> </TD>
</TR>
</table>
<% End If %>
<% Else %>
<!-- 高さ合わせ空テーブル -->
<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<TR>
<% If 0=1 Then %>
<% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %>
<TD HEIGHT="390"> </TD>
<% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %>
<TD HEIGHT="193"> </TD>
<% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %>
<TD HEIGHT="193"> </TD>
<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム（" Then '堺高校用設定 %>
<TD HEIGHT="290"> </TD>
<% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版（" Then 'ビジネス実践 原価会計対応版 %>
<TD HEIGHT="267"> </TD>
<% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %>
<TD HEIGHT="230"> </TD>
<% Else %>
<TD HEIGHT="276"> </TD>
<% End If%>
</TR>
</TABLE>
<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<TR>
<TD width="22"> </TD>
<% If 0=1 Then %>
<% ElseIf Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %>
<TD WIDTH="21"> <TD>
<TD align="right" valign="top">
<!--
<div style="position:relative; width:100%;">
<div style="position:absolute;width:242px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#ffd700;border:solid <% = debug_tb %>px #ffffff;">
<% = SetupNendo %>版
</div>
</div>
-->
<% ElseIf TmpServerName = "www.sfc-jpn.jp" Then 'Webサイト %>
<TD WIDTH="627"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:228px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00"><I>
体験コース版
</I></div>
</div>
<% ElseIf TmpServerName = "www2.sfc-jpn.jp" Then 'サーバー方式 %>
<TD WIDTH="587"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:271px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00"><I>
インターネット版
</I></div>
</div>
<% ElseIf TmpServerName = "www3.sfc-jpn.jp" Or TmpServerName = "www4.sfc-jpn.jp" Then '学校間取引 %>
<TD WIDTH="576"> <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:40px;color:#FFFF00"><I>
全国学校間取引
</I></div>
</div>
<% ElseIf Left(AppTitle,17) = "吉原商業高等学校 総合実践システム" Then '吉原商業用設定 %>
<TD WIDTH="547"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:314px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:38px;color:#FFFF00"><I><% = SetupNendo %>版<BR>吉原商業高等学校<BR>総合実践システム</I></div>
</div>
<% ElseIf Left(AppTitle,16) = "関商工高等学校 総合実践システム" Then '関商工用設定 %>
<TD WIDTH="560"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:301px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:38px;color:#FFFF00"><I><% = SetupNendo %>版<BR>関商工高等学校<BR>総合実践システム</I></div>
</div>
<% ElseIf Left(AppTitle,18) = "コンピュータ会計 総合実践システム（" Then '堺市立高校用設定 %>
<TD WIDTH="450"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:471px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:32px;color:#FFFF00"><I><% = SetupNendo %>版 堺市立堺高等学校</I></div>
<div style="position:absolute;top:48px;width:514px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:64px;color:#ffbd00"><I>コンピュータ会計 <BR>総合実践システム</I></div>
</div>
<% ElseIf SetupNendo = "橘高等学校 原価会計システム" Then '橘高校用設定 %>
<TD WIDTH="510"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:355px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00"><I>橘高等学校<BR>原価会計システム版</I></div>
</div>
<% ElseIf Left(AppTitle,15) = "ビジネス実践 原価会計対応版（" Then 'ビジネス実践 原価会計対応版 %>
<TD WIDTH="604"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:242px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00"><% = SetupNendo %>版</div>
</div>
<% ElseIf Right(AppTitle,11) = "（長野県学校間取引版）" Then '長野県学校間取引版 %>
<TD WIDTH="500"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:360px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00"><I>長野県学校間取引版</I></div>
</div>
<% Else '通常版 %>
<TD WIDTH="613"> <TD>
<TD align="right" valign="top">
<div style="position:relative; width:100%;">
<div style="position:absolute;width:244px;filter:progid:DXImageTransform.Microsoft.Glow(Color=#000000,Strength=1);font-size:40px;color:#FFFF00;border:solid <% = debug_tb %>px #ffffff;"><I>
<% = SetupNendo %>版
</I></div>
</div>
<% End If%>
</TD>
</TR>
</table>
<% End If %>
<% End If %>
<% End If %>
</TD>
</TR>
<TR>
<TD height="78">
<table width="100%" border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<TR>
<TD height="50" width="<%
If MajorVersion >= 5 Then
%>435<%
Else
If Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web
%>344<%
Else
%>460<%
End If
End If
%>" align="lett" valign="bottom">
<table border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<TR>
<TD width="22"> </TD>
<% If MajorVersion => 5 Then %>
<TD align="left" valign="bottom" style="font-size:30px;color:#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>363636<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>BBBBEE<% End If %>">
<% = SetupNendo %>版
</TD>
<TD width="16"> </TD>
<% End If %>
<TD align="left" valign="bottom" class="tx1618">
<font color="#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% 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="left" valign="bottom">
<table height="50" border="<% = debug_tb %>" cellpadding="0" cellspacing="0">
<tr>
<td width="88" height="30" valign="middle" align="right" class="tx1618"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>"><B>ログインID</B></font> </td>
<td width="145" height="30" valign="middle">
<input type="text" name="GakuseiBango" style="width:140px;" class="tbox4_w" value="<% = GakuseiBango %>" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrTrim(this,true);" autocomplete="off">
</td>
</tr>
<tr>
<td width="88" height="25" valign="middle" align="right" class="tx1618"><font color="#<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>474747<% ElseIf MajorVersion = 6 Then %>FFFFFF<% Else %>CCCCFF<% End If %>"><B>パスワード</B></font> </td>
<td width="145" height="25" valign="middle">
<input type="password" name="Password" style="width:140px;" class="tbox4_w" 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="form1.submit();" background="images/spbtn_login<% If Left(AppTitle,12) = "サイバー会計21Web（" Then %>ca.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>"> </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.gif<% ElseIf MajorVersion = 6 Then %>6.png<% Else %>.gif<% End If %>?<% = GB_STU %>"<% End If %>> </td>
<TD width="22"> </TD>
<% If Left(AppTitle,12) = "サイバー会計21Web（" Then 'サイバー会計21Web %>
<TD width="5" height="25"></td>
<% End If %>
</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() {
//if (0==1) { //広島商業用
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
%>