<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% ' strings for localization Const L_ACCESSDENIED_TEXT="Access Denied" Const L_PATH_TEXT="Network share:" Const L_CONNECTAS_TEXT="Connect as..." Const L_USERNAME_TEXT="User Name:" Const L_PASSWORD_TEXT="Password:" Const L_ACCESSFLAGS_TEXT="Access Permissions" Const L_APPFLAGS_TEXT="Permissions" Const L_READ_TEXT="Read" Const L_WRITE_TEXT="Write" Const L_SCRIPT_TEXT="Script" Const L_EXECUTE_TEXT="Execute (including Script)" Const L_CONTENTCONTROL_TEXT="Content Control" Const L_LOGACCESS_TEXT="Log access" Const L_ENABLEBROWSING_TEXT="Directory browsing allowed" Const L_INDEX_TEXT="Index this directory" Const L_FRONTPAGE_TEXT="FrontPage Web" Const L_APPLICATIONS_TEXT="Application Settings" Const L_ISAPPROOT_TEXT="This is an application starting point" Const L_STARTPOINT_TEXT="Starting Point" Const L_APPNAME_TEXT="Name" Const L_ISOLATEAPP_TEXT="Run in separate memory space" Const L_NONE_TEXT = "None" Const L_CREATE_TEXT = " Create " Const L_REMOVE_TEXT = " Remove " Const L_UNLOAD_TEXT = " Unload " Const L_DISABLE_TEXT = " Disable " Const L_ENABLE_TEXT = " Enable " Const L_CONFIGURE_TEXT = " Configure... " Const L_NA_TEXT = " " Const L_APPMAP_TEXT = "Mappings... " On Error Resume Next Dim path, currentobj, spath, instobj, approot, thisroot, isApp, displayapproot path=Session("dpath") Set currentobj=GetObject(path) spath=Session("spath") Set instobj=GetObject(spath) Session("SpecObj")=spath Session("SpecProps")="FrontPageWeb" approot = currentobj.AppRoot if len(approot) <> 0 then thisroot = LCase(currentobj.ADsPath) approot = Mid(approot,Instr(approot,"w3svc/")+1) thisroot = Mid(thisroot,Instr(thisroot,"w3svc/")+1) & "/" if thisroot=approot then isApp = True end if end if %> <% Session("isInProc") = currentobj.AppIsolated %>

<%= L_PATH_TEXT %> <% if InStr(currentobj.Path,"\\") then %> <%= text("Path",30,"","","",false,true) %>   <% else %> <%= inputbox(0,"text","Path","\\",30,"","","",False,True,False) %> <% end if %>

<%= L_USERNAME_TEXT %> <%= text("UNCUserName",30,"","","",false,true) %>

<%= L_PASSWORD_TEXT %> <%= pword("UNCPassword",30,"","","",false,true) %>

<%= L_ACCESSFLAGS_TEXT %>
<%= checkbox("AccessRead","",false) %> <%= L_READ_TEXT %>
<%= checkbox("AccessWrite","",false) %> <%= L_WRITE_TEXT %>

      <%= L_CONTENTCONTROL_TEXT %>
<% if currentobj.DontLog then %> <%= L_LOGACCESS_TEXT %>
<% else %> <%= L_LOGACCESS_TEXT %>
<% end if %> <%= checkbox("EnableDirBrowsing","",false) %> <%= L_ENABLEBROWSING_TEXT %>
<%= checkbox("ContentIndexed","",false) %> <%= L_INDEX_TEXT %>
<% if Session("vtype") <> "dir" then %> <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> <% if instobj.FrontPageWeb=True then %> <%= L_FRONTPAGE_TEXT %> <% else %> <%= L_FRONTPAGE_TEXT %> <% end if %> <% end if %> <% end if %>

<%= L_APPLICATIONS_TEXT %>

<%= L_APPNAME_TEXT %>: <%= disabletextstart & " " & disabletextend %>

<%= L_STARTPOINT_TEXT %>: <% approot = Mid(approot,Instr(approot,"ROOT")+4) if Left(approot,1) = "/" then approot = Mid(approot,2) end if displayapproot = "[" & instobj.ServerComment & "]" & "/" & approot if Right(displayapproot,1) = "/" then displayapproot = Mid(displayapproot, 1, len(displayapproot)-1) end if %> <%= disabletextstart & "" & displayapproot & " " & disabletextend %>

<%= checkbox("AppIsolated","setIsolated(this.checked);",true) %> <%= L_ISOLATEAPP_TEXT %>

<%= L_APPFLAGS_TEXT %>:

<% if not isApp then %> <% if Session("IsAdmin") then %>

<% end if %> <% else %> <% if Session("IsAdmin") then %>
<% end if %>

<% end if %>

<% end if %>