<!-- #include file="./include.asp" -->
<%
'<!--
'################################################
' 名称 ：学生情報追加
' 作成日：2002/8/22
' 作成者：山崎
' 目的 ：学生Mに追加する
' 概要 ：
' <<表示>>
' ・学生情報登録に必要な入力フィールドが表示
'################################################
'-->
'
'
%>
<%
main()
Sub main()
Dim GakuseiBango, Shimei, ShimeiRyakuMeisyo, Password, GakuseiGuorpCD, GroupPassword
'更新モードの戻り先
Dim RedirectURL
RedirectURL = Request("RedirectURL")
'更新モード
If RedirectURL <> "" Then
'http://サーバー名を除外
RedirectURL = Right(RedirectURL, Len(RedirectURL) - InStr(RedirectURL, HomeAliasSL) + 1)
'TimeUniq引数を除外
If InStr(RedirectURL, "TimeUniq=") > 0 Then
RedirectURL = Left(RedirectURL, InStr(RedirectURL, "TimeUniq=") - 2) '&または?が存在するので-2
End If
'取得
Query = "exec SPMユーザー取得 '" & GB_SystemCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GakuseiBango = "" & Content.Fields("学生番号")
Shimei = "" & Content.Fields("氏名")
ShimeiRyakuMeisyo = "" & Content.Fields("氏名略名称")
Password = "" & Content.Fields("パスワード")
GakuseiGuorpCD = "" & Content.Fields("学生グループCD")
End If
'更新後及び戻るボタンの飛び先を保存しておく
Query = "exec SPMユーザー更新_戻り先 '" & GB_SystemCD & "', '" & GB_GakuseiNo & "', '" & RedirectURL & "'"
Set Content = OpenQuery(Query)
Else
'セッション初期化
Session(HomeAlias & "GakuseiNo") = ""
Session(HomeAlias & "GakuseiShimei") = ""
Session(HomeAlias & "EnshuCD") = ""
Session(HomeAlias & "EnshuKubun") = ""
Session(HomeAlias & "EnshuKubunmei") = ""
Session(HomeAlias & "EnshuCD") = ""
Session(HomeAlias & "EnshuMeisyo") = ""
Session(HomeAlias & "KaikeiKaishibi") = ""
Session(HomeAlias & "KaikeiSyuryobi") = ""
Session(HomeAlias & "TenkiKubun") = ""
Session(HomeAlias & "Shohizei") = ""
Session(HomeAlias & "KaisyaCD") = ""
Session(HomeAlias & "Gyosyu") = ""
Session(HomeAlias & "GyosyuMeisyo") = ""
Session(HomeAlias & "KaisyaMeisyo") = ""
Session(HomeAlias & "JisyaFlag") = ""
Session(HomeAlias & "GyosyuKubun") = ""
Session(HomeAlias & "GyosyuColor") = ""
Session(HomeAlias & "GyosyuColorObj") = ""
Session(HomeAlias & "SeitoNo") = ""
End If
'クエリがあれば優先
If "" & Request("GakuseiBango") <> "" Then
GakuseiBango = Request("GakuseiBango")
End If
If "" & Request("Shimei") <> "" Then
Shimei = Request("Shimei")
End If
If "" & Request("ShimeiRyakuMeisyo") <> "" Then
ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo")
End If
If "" & Request("Password") <> "" Then
Password = Request("Password")
End If
If "" & Request("GakuseiGuorpCD") <> "" Then
GakuseiGuorpCD = Request("GakuseiGuorpCD")
End If
If "" & Request("GroupPassword") <> "" Then
GroupPassword = Request("GroupPassword")
End If
Dim ErrMsg
ErrMsg = Request("ErrMsg")
Dim Query
Dim Content
Dim ii
Dim SystemCD
Query = "exec SPMシステム一覧"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("デフォルトフラグ") = 1 Then
SystemCD = Content.Fields("システムCD")
End If
Content.MoveNext
Loop
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 1;
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="reguser_bin.asp" autocomplete="off">
<input type="hidden" name="RedirectURL" value="<% = RedirectURL %>">
<%
Response.Write(HtmlDesign(7))
Response.Write(HttpL1(4))
Response.Write(HttpL2("", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "","", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="30" BGCOLOR="#FFFFFF" style="BORDER:1px solid #000000" WIDTH="600" HEIGHT="1">
<TR>
<TD ALIGN="CENTER" BACKGROUND="<% = HomeAliasSL %>images/window_bk.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR ALIGN="CENTER" VALIGN="BOTTOM">
<TD HEIGHT="30" COLSPAN="3" ALIGN="CENTER" VALIGN="BOTTOM">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="24" width="100%" class="tx1618">
<% If ErrMsg <> "" Then %>
<TR>
<TD height="44" valign="top" align="center"><font color="#ff0000"><b><% = ErrMsg %></b></font></TD>
</TR>
<% End If %>
<TR>
<TD height="26" valign="top" align="left">ログイン情報を入力してください</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR ALIGN="CENTER">
<TD COLSPAN="3" VALIGN="MIDDLE" ALIGN="CENTER">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border:solid 1px #FF66BB">
<TR>
<TD>
<table border="0" cellpadding="8" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="230" class="tx1618">
<input type="hidden" name="SystemCD" value="<% = SystemCD %>">
<tr>
<td nowrap>ログインID</td>
<% If RedirectURL = "" Then %>
<td nowrap><input type="text" name="GakuseiBango" value="<% = GakuseiBango %>" size="20" class="tbox4" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrLeftEdge(this,12,true,false);FormStrTrim(this,true);"></td>
<% Else %>
<td nowrap><input type="text" name="GakuseiBango" value="<% = GakuseiBango %>" size="20" class="tbox4_ro" readonly></td>
<% End If %>
</tr>
<tr>
<td nowrap>氏名</td>
<td nowrap><input type="text" name="Shimei" value="<% = Shimei %>" size="32" class="tbox4_ime" onBlur="FormStrLeftIME(this, 18, true)"></td>
</tr>
<tr>
<td nowrap>略名称</td>
<td nowrap><input type="text" name="ShimeiRyakuMeisyo" value="<% = ShimeiRyakuMeisyo %>" size="13" class="tbox4_ime" onBlur="FormStrLeftIME(this,8,true);"><span class="tx1416">（捺印として利用されます）</span></td>
</tr>
<tr>
<td nowrap>パスワード</td>
<td nowrap><input type="text" name="Password" value="<% = Password %>" size="15" class="tbox4" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false)" onBlur="FormStrLeftEdge(this,12,true,false);FormStrTrim(this,true);"></td>
</tr>
<% If RedirectURL = "" Then %>
<tr>
<td nowrap>所属するグループ</td>
<td nowrap>
<select size="1" name="GakuseiGuorpCD" STYLE="width:320px" class="tbox4">
<option value=""> </option>
<%
Query = "exec SPMグループ一覧 '" & SystemCD & "',''"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("非表示フラグ") <> "1" Then
Response.Write("<option value=""" & Content.Fields("学生グループCD") & """")
If Content.Fields("学生グループCD") = GakuseiGuorpCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("グループ名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td nowrap>グループキー</td>
<td nowrap><input type="text" name="GroupPassword" value="<% = GroupPassword %>" size="20" class="tbox4" onkeyup="FormStrLeft(this,40,false,false);" onKeypress="FormStrLeft(this,40,false,false)" onBlur="FormStrLeftEdge(this,40,true,false);FormStrTrim(this,true);"></td>
</tr>
<% Else %>
<input type="hidden" name="GakuseiGuorpCD" value="<% = GakuseiGuorpCD %>">
<% End If %>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD HEIGHT="37" COLSPAN="3" valign="bottom">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="<% If RedirectURL <> "" Then %>ReturnRedirectURL()<% Else %>tblbtn('<% = HomeAliasSL %>logout.asp')<% End If %>;" BGCOLOR="#33CCFF" CLASS="tbtn11" WIDTH="130">
<TR>
<TD WIDTH="10" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_rl.gif?<% = GB_STU %>"></TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_rc.gif?<% = GB_STU %>" WIDTH="110">戻 る</TD>
<TD WIDTH="10" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_rr.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td width="50%" align="right">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SubmitCheck();" BGCOLOR="#33CCFF" CLASS="tbtn11" WIDTH="130">
<TR>
<TD WIDTH="10" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_gl.gif?<% = GB_STU %>"></TD>
<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_gc.gif?<% = GB_STU %>" WIDTH="110">登 録</TD>
<TD WIDTH="10" BACKGROUND="<% = HomeAliasSL %>images/dlogbtn_gr.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function ReturnRedirectURL() {
tblbtn("<% = RedirectURL %>");
}
function SetShimeiRyakuMeisyo(str) {
}
function SubmitCheck() {
if (form1.GakuseiBango.value == "") {
alert("ログインIDを入力して下さい");
form1.GakuseiBango.focus();
return false;
}
if (form1.Shimei.value == "") {
alert("氏名を入力して下さい");
form1.Shimei.focus();
return false;
}
<% If RedirectURL = "" Then %>
if (form1.GakuseiGuorpCD.selectedIndex == 0) {
alert("所属するグループが選択されていません");
form1.GakuseiGuorpCD.focus();
return false;
}
if (form1.GroupPassword.value == "") {
alert("グループキーを入力して下さい");
form1.GroupPassword.focus();
return false;
}
<% End If %>
SubmitReal(form1);
return true;
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>