<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const L_ADDWEBUSERS_TEXT = "Web サイト オペレータ"
Const L_ADDFTPUSERS_TEXT = "FTP サイト オペレータ"
Const L_LISTNAMES_TEXT = "以下の Windows NT ユーザー アカウントに、このサイトのオペレータ権限を許可します:"
Const L_BUILTIN_TEXT = "BUILTIN\"
Const L_ENTERTRUSTEE_TEXT = "ドメイン名とユーザー名を入力してください。"
Const L_ADMINISTRATORS_TEXT = "Administrators"
Const L_DELERROR_TEXT = "このサイトのローカル管理者権限は削除できません。"
Const L_SAMPTRUSTEE_TEXT = "DOMAIN\\username"
Const L_SELECTITEM_TEXT = "最初に、一覧から削除するユーザーを選択する必要があります。"
Const L_EVERYONE_TEXT = "Everyone"
On Error Resume Next
Dim path, currentobj
path=Session("spath")
Session("path")=path
Set currentobj=GetObject(path)
Session("SpecObj")="Operators"
Session("SpecProps")="Trustee"
%>
<% if Session("stype")="www" then %>
<%= L_ADDWEBUSERS_TEXT %>
<% else %>
<%= L_ADDFTPUSERS_TEXT %>
<% end if %>
<%= L_LISTNAMES_TEXT %>
<% end if %>