<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi, Syuryobi ,GB_GakuseiBango %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(0)) Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "Œo—•”", "tblbtn( '/sj4web/user/bk/menu_s1.asp')", "Œo—‰Û", "tblbtn( '/sj4web/user/bk/menu_s11.asp')", "‹L’ ƒ`ƒFƒbƒN", "", "", "")) Response.Write(HttpL3("ˆê——•\Ž¦","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("‹L’ ƒ`ƒFƒbƒN", "")) %>
<% = HtmlFooter %>@ <% End Sub %>