|
|
<%@ LANGUAGE = VBScript %><% 'Option Explicit %><!-- #include file="../directives.inc" -->
<!--#include file="jsbrowser.str"-->
<% 'Call this page with a query string of ?sname=machinename'example: http://larad01/iis/iicnct.asp?sname=larad01
'On Error Resume Next
Dim path, sname, scripttimeout, FileSystem, quote, errd, currentADsObj, lastobjDim newid, topid, firstid, currentid, numNewItems
'This script can take a _long_ time to execute,'as we may be dealing with thousands of items'to add to our JScript object.'save our current script timeout value & set to a much longer value...
scripttimeout = Server.ScriptTimeOutServer.ScriptTimeOut = 2000
Set FileSystem=CreateObject("Scripting.FileSystemObject")
path=Request.QueryString("fspath")
quote=chr(34)errd=Falselastobj = ""%>
<HTML><HEAD><SCRIPT LANGUAGE="JavaScript">
var theList=parent.head.cachedList;var listFuncs = new parent.head.listFuncs();
<%
if errd=0 then
newid=Request("newid") firstid=newid if firstid="" then firstid=0 end if currentid=Request("item") if currentid="" then currentid=firstid newid=newid + 1 end if numNewItems=0 Response.write "//" & path Response.write "//" & currentid
addDirs path, currentid Server.ScriptTimeOut = scripttimeoutend if
Sub addDirs(path, parentid) Dim thisid, thisname, thisstate, thisadspath, i, f if path <> "" then if FileSystem.FolderExists(path) then Set f=FileSystem.GetFolder(path) For Each i In f.SubFolders thisid=newid SetJscriptObj i, i.Name,parentid numNewItems=numNewItems + 1 Next end if end ifEnd Sub
Sub SetJscriptObj(path, caption, parentid) %> theList[<%= newid %>]=new parent.head.listObj(<%= newid %>,"<%= Replace(path,"\","\\") %>","<%= caption %>",<%= parentid %>); <% newid=newid + 1End Sub
' we need to insert the whole group into the correct place In the array.' since we Set the first entry (machine) to the exisitng place In the array,' the Next level In the hierarchy (vservers) will be pointing to the correct' parent ids. However, the following level (vdirs, and below) will be pointing' to the parent ids as they existed at the bottom of the array, before the' move, and will need to be adjusted.%>
<% if errd=0 then %>
var item=<%= firstid %>; currentid=<%= currentid %>; if (currentid !=item){
x=currentid + 1; //correct the id on the "new" objects for (var i=item; i < theList.length; i++) { theList[i].id=x; if (theList[i].parentid !=currentid){ theList[i].parentid=theList[i].parentid - (item - (currentid + 1)); } x++; } //move the following records "down" the array for (var i=currentid + 1; i < item;i++){
theList[i].id=theList[i].id + <%= numNewItems %>; if (theList[i].parentid >currentid){ theList[i].parentid=theList[i].parentid + <%= numNewItems %>; } }
}
//and re-sort. theList[0].sortList(); theList[0].markTerms();
if (theList.length==1){ listFuncs.selIndex=0; theList[0].selected=true; } else{ theList[listFuncs.selIndex].selected=false; listFuncs.selIndex=<%= currentid %>; theList[<%= currentid %>].selected=true; }
// Force a refresh listFuncs.loadList();
<% else %> alert("<%= L_CNCTERR_TEXT %> (<%= err %>)");<% end if %>
</SCRIPT>
<% if err <> 0 then %><% Response.write "err: " & err.description %><BR><% Response.write "currentcontainer: " & currentADsObj.ADsPath %><BR><% Response.write " " & currentADsObj.KeyType %><BR><% Response.write "Err Container:" & lastobj %><BR><% end if %>
</HEAD><BODY></BODY></HTML>
|
