<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
On Error Resume Next
' AppIsolated flags - This is the order in which they appear in the select list.
Const IISAO_APPROT_INPROC = 0
Const IISAO_APPROT_POOL = 2
Const IISAO_APPROT_ISOLATE = 1
Dim path, currentobj, spath, approot, thisroot, isApp, instobj, displayapproot, displaythisroot,appStartingPoint
path=UCase(Session("dpath"))
spath=UCase(Session("spath"))
if spath = "" then
spath = Mid(path,1,InStr(path,"/ROOT")-1)
Session("spath")=spath
end if
Set currentobj=GetObject(path)
Set instobj=GetObject(spath)
Session("SpecObj")=spath
Session("SpecProps")=""
approot = UCase(currentobj.AppRoot)
' if Session("vtype") = "svc" Or IISAO_APPROT_ISOLATE = currentobj.AppIsolated then
' show process options
isApp = False
if len(approot) <> 0 then
thisroot = UCase(currentobj.ADsPath)
approot = Mid(approot,Instr(approot,"W3SVC")+5)
thisroot = Mid(thisroot,Instr(thisroot,"W3SVC")+5)
if Right(approot,1) = "/" then
thisroot = thisroot & "/"
end if
if thisroot=approot then
isApp = True
end if
Session("approot") = "IIS://LOCALHOST/W3SVC" & Mid(approot,1,len(approot))
end if
approot = Mid(approot,Instr(approot,"ROOT")+4)
thisroot = Mid(thisroot,Instr(thisroot,"ROOT")+4)
if Left(thisroot,1) = "/" then
thisroot = Mid(thisroot,2)
end if
displaythisroot = "[" & instobj.ServerComment & "]" & "/" & thisroot
if Right(displaythisroot,1) = "/" then
displaythisroot = Mid(displaythisroot, 1, len(displaythisroot)-1)
end if
if isApp then
if Left(approot,1) = "/" then
approot = Mid(approot,2)
end if
if Session("vtype") = "svc" then
displayapproot = L_WEBMASTER_TEXT
else
displayapproot = "[" & instobj.ServerComment & "]" & "/" & approot
if Right(displayapproot,1) = "/" then
displayapproot = Mid(displayapproot, 1, len(displayapproot)-1)
end if
end if
appStartingPoint = displayapproot
else
displayapproot = L_NOAPP_TEXT
appStartingPoint = displaythisroot
end if
dirkeyType = "IIsWebDirectory"
%>
<%
function writeFSPath(fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly)
On Error Resume Next
Dim thispath, fspath, parenttype, parentobj
if Session("vtype") = "dir" then
thispath = Session("dpath")
fspath = ""
parenttype = ""
Do Until Instr(parenttype, "VirtualDir") <> 0
'we need clear our path not found error..
err = 0
fspath = "/" + fspath
'and cyle through the baseobj till we find the next whack,
'building up the path in new name as we go
Do Until Right(thispath,1) = "/"
fspath = Right(thispath,1) & fspath
thispath = Mid(thispath,1,Len(thispath)-1)
Loop
'add the whack to the beginning of the path...
'once we're out, we need to lop off the last whack...
thispath = Mid(thispath,1,Len(thispath)-1)
'and try to set the object again...
Set parentobj=GetObject(thispath)
if err <> 0 then
parenttype = ""
else
parenttype=parentobj.KeyType
end if
Loop
fspath = parentobj.Path & "\" & Replace(fspath,"/","\")
if len(fspath) > 50 then
fspath = Left(fspath, 50) & "..."
end if
writeFSPath = disabletextstart & sFont("","","",True) & fspath & "" & disabletextend
else
if Session("vtype") = "svc" then
writeFSPath = disabledbox(err,"text","Path","",fieldsize,fieldsize,onchangeproc,onfocusproc,onblurproc,hidden,adminonly)
else
if Instr(currentobj.Path,"\\") > 0 then
currentobj.Path = ""
end if
writeFSPath = text("Path",fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly)
end if
end if
end function
%>
<% if Session("canBrowse") then %>
<% end if %>
" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" >
<%= sFont("","","",True) %>
<% end if %>