<% ' ' ' %> <% main() Sub main() 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") = "" Dim GakuseiBango, Shimei, ShimeiRyakuMeisyo, Password, GakuseiGuorpCD, GroupPassword GakuseiBango = Request("GakuseiBango") Shimei = Request("Shimei") ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo") Password = Request("Password") GakuseiGuorpCD = Request("GakuseiGuorpCD") GroupPassword = Request("GroupPassword") Dim Query Dim Content Dim ii Dim SystemCD, tmp, tmp2, UserName SystemCD = Request("SystemCD") Query = "exec SPMシステム一覧" Set Content = OpenQuery(Query) ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 tmp = Content.Fields("システムCD") tmp2 = Content.Fields("ユーザー名") Content.MoveNext Loop If ii = 1 Then SystemCD = tmp UserName = tmp2 End If %> <% = AppTitle %>
<% 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 %>