<% '################################################ ' 名称 ：ログイン ' 作成日：2002/8/9 ' 作成者：山崎 ' 目的　：ログイン画面を表示する。 ' 概要 ： ' <<表示>> ' ・画面サイズを800x600にする '################################################ %> <% main() Sub main() Dim GakuseiBango GakuseiBango = Request("GakuseiBango") If Session("Admin") <> "1" Then Session("Admin") = "0" End If If Request("admin") = "1" Then Response.Cookies("Admin")("No")= "1" Session("Admin") = "1" End If %>

">

Copyright © System・Future Corporation Ltd., 2003-2007. All Rights Reserved. <% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %> スーパー実践くん4WebCollabo 企画・開発の システムフューチャー株式会社のホームページ <% End If%> <% If TopPageUseFlash = 1 Then %> <% End If %> <% If Request.ServerVariables("SERVER_NAME") = "www.sfc-jpn.jp" Then %>   体験コース版 <% ElseIf Request.ServerVariables("SERVER_NAME") = "www2.sfc-jpn.jp" Then %>   インターネット版 <% ElseIf Request.ServerVariables("SERVER_NAME") = "www3.sfc-jpn.jp" Then %>   全国学校間取引 <% Else %>   平成<% = SetupHeisei %>年度版 <% End If%> ')"> Version:<% = SetupVersion %> ログインID  パスワード

<% = HtmlFooter %> <% End Sub %>