<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If 'Response.Write("ビジターログイン画面") 'Response.Write(GB_VisitorID) 'Exit Sub %> <% Dim Logout Logout = Request("Logout") If Logout = "1" Then 'ログインIDをクリアする Session("ECMallUserID") = "" GB_UserID = Session("ECMallUserID") End If Dim ErrFlg ErrFlg = Request("ErrFlg") If ErrFlg = "1" Then ErrFlg = "ビジターIDまたはパスワードが合いません。" ElseIf ErrFlg = "2" Then ErrFlg = "入力されたビジターIDはすでに登録されています。" ElseIf ErrFlg = "9" Then ErrFlg = "入力されたビジターIDは登録されていません。" 'リマインダのエラー ElseIf ErrFlg = "99" Then ErrFlg = "演習が存在しません。管理者にお問合せください。" End If Dim LoginID LoginID = Request("LoginID") Dim Mail Mail = Request("Mail") Dim Query Dim Content Dim Content2 'セッションクリア（テスト用） ' Session("ECMallUserID") = "" ' GB_UserID = Session("ECMallUserID") If Mode = "" Then Mode = "1" End If %>
<% If ErrFlg <> "" Then %> <% End If %> <% If Mode = "2" And LocalMode <> "1" Then %> <% End If %> <% If Mode = "2" Then %> <% End If %> <% If 0=1 And Mode = "1" Then 'パスワードがわからなければメールが見れないので問合せは無理 %> <% End If %>
<% = ErrFlg %>
<% = Spacer(1, 6) %>
プライバシーポリシーに同意する
<% = Spacer(1, 10) %>
<% If Mode = "2" Then %>登録情報<% Else %>ビジターIDとパスワード<% End If %>を入力してください
<% = Spacer(1, 10) %>
<% If Mode = "2" Then %>登録する<% End If %>ビジターID <% If 0=1 And Mode = "1" Then 'パスワードがわからなければメールが見れないので問合せは無理 %> <% End If %>
<% = Spacer(13, 1) %> <% = ActionButton3Image("Return", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 98, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "パスワード問合せ", "tx1214w", "center", "Reminder();") %>
<% = Spacer(1, 6) %>
あなたのお名前
<% = Spacer(1, 6) %>
<% If Mode = "2" Then %>任意の<% End If %>パスワード <% If Mode = "2" Then %> <% Else %> <% End If %>
<% = Spacer(3, 1) %> <% If Mode = "2" Then %> <% = ActionButton3Image("LoginBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 60, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "登録する", "tx1416w", "center", "SubmitCheck();") %> <% Else %> <% = ActionButton3Image("LoginBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 60, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ログイン", "tx1416w", "center", "SubmitCheck();") %> <% End If %> <% = Spacer(20, 1) %> <% = ActionButton3Image("Return", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 32, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "戻る", "tx1416w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "';") %> <% = ActionButton3Image("Return", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 64, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "新規登録", "tx1416w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=2';") %>
<% = Spacer(1, 6) %>
※パスワードを忘れた場合はビジターIDのみ入力し
「パスワード問合せ」をクリックしてください。
<% End Sub %>