|
|
<%@ LANGUAGE = VBScript %><% 'Option Explicit %><!-- #include file="directives.inc" -->
<%
' This script is the main container for the admin.. ' It holds the client-cached tree list, stored in cachedList ' in addition to a variety of global functions & customization ' flags. This script gets loaded once for the admin and is ' persistant throughout.
'$Const STR_SUPPORT_MULTI_SELECT = "hasDHTML"
%><!--#include file="iihd.str"--><!--#include file="iisetfnt.inc"-->
<!--#include file="iiaspstr.inc"-->
<html><head><title><%= L_ISM_TEXT %></title>
<script language="JavaScript">
// Create an instance of our Global Variables for reference by other frames... Global=new globalVars(); // Create the nodeList array nodeList=new Array(); nodeList[0]="";
<!--#include file="iijsfuncs.inc"--> function unload_popwindow() { if(Global.popwindow != null) Global.popwindow.close(); }
function helpBox() { if (Global.helpFileName==null) { alert("<%= L_NOHELP_ERRORMESSAGE %>"); } else { helpfile = Global.helpDir + Global.helpFileName+".htm"; thefile="iihelp.asp?pg=" + helpfile; <% if Session("hasDHTML") then %> window.showHelp("http://" + helpfile); <% else %>
window.open(thefile ,"Help","toolbar=no,scrollbars=yes,directories=no,menubar=yes,width=375,height=500"); <% end if %> } }
function aboutBox() { popbox=window.open("iiabout.asp","about","toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+525+",height="+300); if(popbox !=null){ if (popbox.opener==null){ popbox.opener=self; } }
}
function globalVars(){
// Sets the global variables for the script. // These may be changed to quickly customize the tree's apperance
// Fonts this.face="Helv,Arial"; this.fSize=1;
// Spacing this.vSpace=2; this.hSpace=4; this.tblWidth=500; this.selTColor="#FFCC00"; this.selFColor="#000000"; this.selUColor="<%= Session("BGCOLOR") %>";
// Images this.imagedir="images/"; this.appIcon = "app"; this.spaceImg=this.imagedir + "space.gif"; this.lineImg=this.imagedir + "line.gif"; this.plusImg=this.imagedir + "plus.gif"; this.minusImg=this.imagedir + "minus.gif"; this.emptyImg=this.imagedir + "blank.gif"; this.plusImgLast=this.imagedir + "plusl.gif"; this.minusImgLast=this.imagedir + "minusl.gif"; this.emptyImgLast=this.imagedir + "blankl.gif"; this.stateImg=new Array(); this.stateImg[0]=this.imagedir + "stop.gif"; this.stateImg[1]=this.imagedir + "go.gif"; this.stateImg[2]=this.imagedir + "pause.gif";
// Instant State this.displaystate=new Array(); this.displaystate[0]=""; this.displaystate[2]=""; this.displaystate[4]="<%= L_STOPPEDDISP_TEXT %>"; this.displaystate[6]="<%= L_PAUSEDDISP_TEXT %>"; this.state=new Array(); this.state[4]="<%= L_STOPPED_TEXT %>"; this.state[2]="<%= L_STARTED_TEXT %>"; this.state[1]="<%= L_STARTING_TEXT %>"; this.state[3]="<%= L_STOPPING_TEXT %>";
// ID of selected item this.selId=0; this.selName=""; this.selSType=""; this.selVType=""; //$ Multi-select this.selCount = 1; <% if Session(STR_SUPPORT_MULTI_SELECT) then %> this.bSupportMultiSelect = true; this.selList = new Array(); this.selList[0] = 0; <% else %> this.bSupportMultiSelect = false; <% end if %> //Help this.helpFileName="iipxmain.htm"; this.helpDir="<%= Request.ServerVariables("SERVER_NAME") %>/iishelp/iis/htm/core/"
// Other Flags this.showState=false; this.dontAsk=false; this.updated=false; this.homeurl=top.location.href; this.siteProperties = false; this.working = false; //Global var to hold the window object, so we can refer to the current window from a parent frame. this.popwindow = null; } function nodeListInterfaceDef() { this.selectItem = selectItem; <% if Session(STR_SUPPORT_MULTI_SELECT) then %> this.selectMulti = selectMulti; <% end if %> } var nodeListInterface = new nodeListInterfaceDef();
<% if Session(STR_SUPPORT_MULTI_SELECT) then %> function selectMulti( index ) { if( nodeList[index].selected == true ) { selectRemove( index ); } else { selectAdd( index ); } Global.selId = Global.selList[0]; } function selectAdd( index ) { nodeList[index].selected = true; Global.selList[Global.selCount++] = index; } function selectRemove( index ) { if( Global.selCount > 0 ) { var i, j; for( i = 0; i < Global.selCount; i++ ) { if( Global.selList[i] == index ) { break; } } if( i < Global.selCount ) { nodeList[Global.selList[i]].selected = false; for( j = i + 1; j < Global.selCount; j++ ) { Global.selList[j-1] = Global.selList[j]; } Global.selCount--; } } } function selectItem( item ) { // Deselect all currently selected items for( var i = 0; i < Global.selCount; i++ ) { nodeList[Global.selList[i]].selected = false; } // Select the new item nodeList[item].selected = true; Global.selId = Global.selList[0] = item; Global.selCount = 1; }<% else %> function selectItem(item) { nodeList[Global.selId].selected=false; Global.selId=item; nodeList[item].selected=true; }<% end if %>
function openLocation(){ //opens the property sheet for the selected node, //regardless of service type or node type. this //script calls iiset.asp which sets the appropriate //session variables for server side persistance throughout //the property sheet var path; var sel=Global.selId; Global.selName=nodeList[sel].title; Global.selSType=nodeList[sel].stype; Global.selVType=nodeList[sel].vtype;
top.body.iisstatus.location.href=("iistat.asp?thisState=Loading");
path="stype=" + Global.selSType; path=path + "&vtype=" + Global.selVType; path=path + "&title=" +escape(nodeList[sel].title);
if (nodeList[sel].vtype=="server"){ path=path + "&spath=" + escape(nodeList[sel].path); path=path + "&dpath=" + escape(nodeList[sel].path) + "/Root"; } else{ path=path + "&spath="; path=path + "&dpath=" + escape(nodeList[sel].path); }
page="iiset.asp?"+path; //iiset.asp sets the serverside session variables... top.connect.location.href=(page); }
function sortOrder(a,b){
x=a.id - b.id
return x } function sortList(){ nodeList.sort(sortOrder); }
function insertNode(title,caption,parent,vtype,stype, fIsApp){
//add a new node to the client-cached list var nodepath; var indexnum=nodeList.length; var Nextid=parent+1;
// Clear the current selection before we start monkeying with // the list. selectItem( 0 ); if (nodeList[parent].vtype=="server"){ nodepath=nodeList[parent].path + "/Root/" + title; } else{ if (nodeList[parent].vtype=="comp"){ if (stype == "www"){ nodepath=nodeList[parent].path + "/W3SVC/" + title; } else{ nodepath=nodeList[parent].path + "/MSFTPSVC/" + title; } } else{ nodepath=nodeList[parent].path + "/" + title; } } title=title;
while ((nodeList.length > Nextid) && (nodeList[Nextid].parent >=parent)) { if(nodeList[Nextid].parent==parent){ if(nodeList[Nextid].title > title){ break; } } Nextid=Nextid +1; }
if (nodeList.length <=Nextid){ var newid=nodeList.length; } else{ var newid=nodeList[Nextid].id; }
nodeList[indexnum]=nodeList[parent].addNode(new listObj(indexnum,caption,nodepath,vtype,4)); nodeList[indexnum].isCached=false; nodeList[indexnum].id=newid; if( fIsApp != 0 ) { nodeList[indexnum].icon = Global.imagedir + "app"; nodeList[indexnum].isApp = true; } for (var i=newid; i < indexnum; i++) { nodeList[i].id=nodeList[i].id + 1; if (nodeList[i].parent >=nodeList[indexnum].id){ nodeList[i].parent=nodeList[i].parent +1; } }
nodeList[parent].open=true; nodeList[0].sortList(); nodeList[0].markTerms(); selectItem(newid);
top.body.list.location.href="iisrvls.asp"; } function browseItem() { popBox('Browse',640,480, nodeList[Global.selId].loc); }
function deleteItem() { // marks items in the client cached list as deleted... nodeList[Global.selId].deleted=true; if (Global.selId+1 !=listLength){ deleteChildren(Global.selId); } markTerms(); top.body.list.location="iisrvls.asp"; }
function deleteChildren(item){ var z=item+1; while (nodeList[z].parent >=item) { nodeList[z].deleted=true; z=z+1; if(z >=nodeList.length){ break; } } }
function deCache(){
//marks a node as uncached (forcing a recache when expanded) //and marks all child nodes as deleted
sel=Global.selId; nodeList[sel].isCached=false; nodeList[sel].open=false; if (sel+1 !=listLength){ deleteChildren(sel); } markTerms(); }
function markTerms(){ //marks cached list items as being a terminater (ie, having no siblings) //this forces an "end" gif in the tree view... var i listLength=nodeList.length; for (i=0; i < listLength; i++) { nodeList[i].lastChild=isLast(i); } }
function isLast(item){ var i; last=false; if (item+1==listLength){ last=true; } else{ if (nodeList[item].parent==null){ last=true; for (i=item+1; i < listLength; i++) { if (nodeList[i].parent==null){ last=false; break; } } } else{ last=true; var y=item+1; while(nodeList[y].parent >=nodeList[item].parent){ if(nodeList[y].parent==nodeList[item].parent){ if(!nodeList[y].deleted){ last=false; break; } } y=y+1; if ((y)==listLength){ break; } } } } return last; }
function addNode(childNode){ //adds a new node to the tree, setting some default parameters childNode.parent=this.id; childNode.level=this.level +1;
dir="images/" if (childNode.vtype=="vdir"){ childNode.loc=nodeList[this.id].loc + childNode.title+"/"; childNode.icon=dir+ "vdir"; } else{ if (childNode.vtype=="dir"){ childNode.loc=nodeList[this.id].loc + childNode.title+"/"; childNode.icon=dir + "dir"; } else{ if (childNode.stype=="www"){ childNode.loc="http://"+childNode.title+"/"; childNode.icon=dir +"www"; } if (childNode.stype=="ftp"){ childNode.loc="ftp://"+childNode.title+"/"; childNode.icon=dir +"ftp"; } } }
return childNode; }
function connect(){ serverurl=prompt("Please enter the URL of the server you wish to connect to:", "http://<%= Request.ServerVariables("SERVER_NAME") %>/iisadmin/") if (serverurl !=""){ page="iicnct.asp"; top.body.iisstatus.location="iistat.asp?thisState=Loading"; top.connect.location=page; } }
function cache(item){ // perftest // The two lines below call different tree caching scripts. To change between them // simply uncomment one and comment out the other.
// page="iicache.asp?sname="+escape(nodeList[item].path)+"&Nextid="+nodeList.length+"¤tid="+item; page="iicache2.asp?sname=" + escape(nodeList[item].path) + "&fspath=" + escape(nodeList[item].fspath);
<% if (browser<>"ns") then %> top.body.iisstatus.location.href="iistat.asp?thisState=Loading"; <% end if %> top.connect.location.href=page; } function loadPage(){ top.body.location.href='iibody.asp'; } function inheritenceItem(property, path){ this.property = property; this.path = path; } function iListsortOrder(a,b){ x=((a.property + a.path) - (b.property + b.path)); return x }
function listObj(id, title, path,vtype,state){
// This is the object that represents each line item // In the tree structure.
// ID is the id refered to by the parent property // title is the text string that appears In the list // parent is the ID of the parent list item // level is the depth of the list item, 0 being the furthest left on the tree // href is the location to open when selected // open is a flag that determines whether children are displayed // state is a flag to determine the state (4=stopped, 2=running) // selected is an interenal flag // openLocation is the function that opens the href file In a frame //sortby will change to reflect the new sort order when a new item is added to the list.
this.id=id; this.title=title; this.path=path; this.keytype=""; this.fspath=""; this.err=""; this.stype=""; if (path.indexOf("W3SVC") !=-1){ this.stype="www"; }
if (path.indexOf("FTPSVC") !=-1){ this.stype="ftp"; }
this.vtype=vtype;
this.open=false; this.state=state; this.displaystate = Global.displaystate[state]; this.isApp = false; this.isCached=false; this.isWorkingServer=false;
this.parent=null; this.level=1; this.loc="http://"+this.title; dir="images/";
this.icon=dir +"comp";
this.href="blank.htm"; this.deleted=false; this.selected=false; this.lastChild=false;
//methods this.openLocation=openLocation; this.addNode=addNode; this.insertNode=insertNode; this.deleteItem=deleteItem; this.deCache=deCache; this.browseItem=browseItem; this.markTerms=markTerms; this.cache=cache; this.connect=connect; this.sortList=sortList; this.restricted ="";
}
// Create a blank array for our set data path inheritence list inheritenceList = new Array();
// Fill the nodeList array with objects. // The array items will be displayed In the id # order, // as Jscript has limited array sorting capabilities. // Children should always follow their parent item. <%
On Error Resume Next Dim newid, computer, thisinstance, currentADsObj, FileSystem Dim thisname computer="localhost" thisinstance=Request.ServerVariables("INSTANCE_ID")
if Session("isAdmin") then
%> //the localhost nodeList[0]=new listObj(0,"<%= Request.ServerVariables("SERVER_NAME") %>","IIS://<%= computer %>", "comp",1);
nodeList[0].isCached=true; nodeList[0].open=true; nodeList[0].selected=true;
<% newid=1
%>//FTPSVC<% Set currentADsObj=GetObject("IIS://" & computer & "/MSFTPSVC") addInstances currentADsObj,0,"server"
%>//W3SVC<% Set currentADsObj=GetObject("IIS://" & computer & "/W3SVC") addInstances currentADsObj,0,"server" else Set FileSystem=CreateObject("Scripting.FileSystemObject") Set currentADsObj=GetObject("IIS://" & computer & "/W3SVC/" & thisInstance) thisname=currentADsObj.ServerComment if thisname="" then thisname="[Web Site #" & currentADsObj.Name & "]" end if %> //the instance nodeList[0]=new listObj(0,"<%= thisname %>","IIS://<%= computer %>/W3SVC/<%= thisinstance %>", "server",2); nodeList[0].isWorkingServer=false; nodeList[0].isCached=true; nodeList[0].open=true; nodeList[0].icon="images/www"; nodeList[0].loc="http://<%= Request.ServerVariables("SERVER_NAME") %>/";
<% newid=1
addNodes currentADsObj,0,"vdir" end if
Sub addInstances(Container, parentid, vtype) On Error Resume Next Dim thisname, Child, thisid, thisstate For Each Child In Container if Instr(Child.KeyType,"Server") <> 0 then thisid=newid thisname=Child.Name thisstate="" thisname=Child.ServerComment if thisname="" then if Instr(Child.KeyType,"Ftp") <> 0 then thisname="[FTP Site #" & Child.Name & "]" else thisname="[Web Site #" & Child.Name & "]" end if end if thisstate=Child.ServerState if err=0 then SetJscriptObj thisname, Child.ADsPath,parentid, vtype, thisstate, false, "",False if Child.Name=Request.ServerVariables("INSTANCE_ID") then if InStr(Child.ADsPath,"W3SVC") then SetWorkingInstance thisid end if end if if Child.ClusterEnabled then %> nodeList[<%= thisid %>].restricted="<%= L_CLUSTERSERVERUI_TEXT %>"; <% end if else if err = &H800401E4 or err = 70 then Response.Status = "401 access denied" end if end if end if 'this child may have err'd but we need to enum the rest anyway, so we clear our error... err.Clear Next End Sub
Sub addNodes(Container, parentid, vtype) On Error Resume Next Dim thisname, isApp, thisid, thisstate, thisroot, approot For Each Child In Container if Instr(Child.KeyType, "VirtualDir") <> 0 then thisid=newid thisname=Child.Name thisstate=2 isApp = False approot=LCase(Child.AppRoot) if len(approot) <> 0 then thisroot = LCase(Child.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 if UCase(thisname) <> "ROOT" then SetJscriptObj thisname, Child.ADsPath, parentid, vtype, thisstate, true, Child.Path, isApp addNodes Child, thisid, "vdir" 'addDirs Child.Path, Child.ADsPath, thisid, "dir" else addNodes Child, parentid, "vdir" 'addDirs Child.Path, Child.ADsPath, parentid, "dir" end if end if Next End Sub
Sub addDirs(path, adspath, parentid, vtype) On Error Resume Next Dim thisid,thisname,thisstate,i,f, thispath
if Instr(UCase(adspath),"W3SVC") <> 0 then if path <> "" then if Left(path,2) <> "\\" then If FileSystem.FolderExists(path) Then Set f=FileSystem.GetFolder(path) For Each i In f.SubFolders thisid=newid thisstate=2 thispath=adspath & "/" & i.Name SetJscriptObj i.Name,thispath, parentid, vtype, thisstate, true,i, false if err=0 then addDirs i, thispath, thisid, "dir" end if Next End If end if end if end if
End Sub
Sub SetJscriptObj(caption, path, parentid, vtype,state, cached,fspath,isApp) %> nodeList[<%= newid %>]=nodeList[<%= parentid %>].addNode(new top.title.listObj(<%= newid %>,"<%= sJSLiteral(caption) %>","<%= sJSLiteral(path) %>","<%= vtype %>",<%= state %>)); <% if cached then %> nodeList[<%= newid %>].isCached=true; <% else %> nodeList[<%= newid %>].isCached=false; <% end if %> <% if isApp then %> nodeList[<%= newid %>].icon = Global.imagedir + "app"; nodeList[<%= newid %>].isApp = true; <% end if %> nodeList[<%= newid %>].fspath="<%= replace(fspath,"\","\\") %>";
<% newid=newid +1 End Sub Sub SetWorkingInstance(thisid) %> nodeList[<%= thisid %>].isWorkingServer=true; <% End Sub %>
markTerms();
</script>
</head>
<body Background="images/cube.gif" text="#FFFFFF" topmargin="0" leftmargin="0" onload="loadPage();" onunload="unload_popwindow();">
<table width="100%" cellpadding="0" cellspacing="0" border="0" align="LEFT"> <tr> <td> <IMG SRC="images/Ismhd.gif" WIDTH=189 HEIGHT=19 BORDER=0 alt="<%= L_ISM_TEXT %>" HSPACE=0 VSPACE=0> </td> <td align="right" valign="middle"> <%= sFont("","","#FFFFFF",True) %>
<a href="http://<%= Request.ServerVariables("SERVER_NAME") %>/iishelp/iis/misc/default.asp" target="window"> <IMG SRC="images/Doc.gif" WIDTH=16 HEIGHT=16 BORDER=0 ALT="<%= L_DOCS_TEXT %>"> </A> <a href="javascript:helpBox();"> <IMG SRC="images/help.gif" WIDTH=16 HEIGHT=16 BORDER=0 ALT="<%= L_HELP_TEXT %>"> </A> </FONT> </td> </tr></table><form name="hiddenform"> <input type="hidden" name="slash" value="\"></form>
</body></html>
|
