<%@ 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>