<% ' ' ' %> <% 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 %> <% = HtmlHeader("") %>
<% 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("", "")) %>
<% = HtmlFooter %> <% End Sub %>