55 lines
1.5 KiB
Plaintext
55 lines
1.5 KiB
Plaintext
|
<%@ LANGUAGE = VBScript %>
|
||
|
|
<% Option Explicit %>
|
||
|
|
<!-- #include file="directives.inc" -->
|
||
|
|
|
||
|
|
<!--#include file="iirename.str"-->
|
||
|
|
|
||
|
|
<HTML>
|
||
|
|
|
||
|
|
<%
|
||
|
|
On Error Resume Next
|
||
|
|
|
||
|
|
Dim nodename, path, currentobj, newobj, sel,baseobj, basepath
|
||
|
|
|
||
|
|
nodename=Request.QueryString("nodename")
|
||
|
|
path=Request.QueryString("path")
|
||
|
|
sel=Request.QueryString("sel")
|
||
|
|
Set currentobj=GetObject(path)
|
||
|
|
|
||
|
|
Response.write nodename & "<BR>"
|
||
|
|
Response.write path & "<BR>"
|
||
|
|
if Instr(currentobj.KeyType,"Server") then
|
||
|
|
currentobj.ServerComment = nodename
|
||
|
|
currentobj.SetInfo
|
||
|
|
Set newobj = GetObject(path)
|
||
|
|
elseif Instr(currentobj.KeyType,"VirtualDir") then
|
||
|
|
|
||
|
|
Response.write currentobj.ADsPath & "<BR>"
|
||
|
|
|
||
|
|
'and cyle through the baseobj till we find the next whack,
|
||
|
|
'building up the path in new name as we go
|
||
|
|
basepath = Mid(currentobj.ADsPath,1,InStrRev(currentobj.ADsPath,"/")-1)
|
||
|
|
Response.write baseobj & "<BR>"
|
||
|
|
Set baseobj=GetObject(basepath)
|
||
|
|
|
||
|
|
Response.write nodename & "<BR>"
|
||
|
|
Set newobj = baseobj.MoveHere(currentobj.Name,nodename)
|
||
|
|
newobj.SetInfo
|
||
|
|
Response.write err
|
||
|
|
end if
|
||
|
|
|
||
|
|
%>
|
||
|
|
|
||
|
|
<BODY BGCOLOR="#000000" TEXT="#FFCC00" TOPMARGIN=0 LEFTMARGIN=0>
|
||
|
|
<SCRIPT LANGUAGE="JavaScript">
|
||
|
|
<% if err.Number = 0 then %>
|
||
|
|
// Now that we've set it in the object, we need to update our client cachedList:
|
||
|
|
top.title.nodeList[<%= sel %>].title = "<%= nodename %>";
|
||
|
|
top.title.nodeList[<%= sel %>].path = "<%= newobj.ADsPath %>"
|
||
|
|
top.body.list.location.href="iisrvls.asp";
|
||
|
|
<% else %>
|
||
|
|
alert("<%= L_RENAME_ERR %> (<%= err.description %>)");
|
||
|
|
<% end if %>
|
||
|
|
</SCRIPT>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|