|
|
<%@ LANGUAGE = VBScript %><% Option Explicit %><!-- #include file="directives.inc" -->
<% if Session("FONTSIZE") = "" then %> <!--#include file="iito.inc"--><% else %> <!--#include file="iifvdnt.str"--><%
On Error Resume Next
Dim path, spath, instobj, currentobj
path=UCase(Session("dpath"))
spath=UCase(Session("spath"))
if spath = "" then spath = Mid(path,1,InStr(path,"/ROOT")-1) Session("spath")=spathend if
Set currentobj=GetObject(path)Set instobj=GetObject(spath)
Session("SpecObj")=spathSession("SpecProps")="MSDosDirOutput"Set currentobj=GetObject(path)
%>
<!--#include file="iiset.inc"--><!--#include file="iisetfnt.inc"--><HTML><HEAD><TITLE></TITLE><SCRIPT LANGUAGE="JavaScript"> <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> top.title.Global.helpFileName="iipz_5"; <% else %> top.title.Global.helpFileName="iipz_3"; <% end if %> var Global=top.title.Global; <!--#include file="iijsfuncs.inc"--> function disableDefault(dir,fromCntrl, toCntrl){ if (!dir){ if (fromCntrl.value !=""){ toCntrl.value=fromCntrl.value; fromCntrl.value=""; } } else{ if (toCntrl.value !=""){ fromCntrl.value=toCntrl.value; toCntrl.value=""; } } }
function enableDefault(chkCntrl){ chkCntrl.checked=true; } function setLog(chkCntrl){ if (chkCntrl.checked){ document.userform.DontLog.value = "False"; } else{ document.userform.DontLog.value = "True"; } }
function SetBool(){ if (document.userform.rdohdnMSDOSDirOutput[0].checked){ document.userform.MSDOSDirOutput.value="False" } else{ document.userform.MSDOSDirOutput.value="True" } }
function listFuncs(){ this.writeList=buildListForm; }
function buildListForm(){ }
listFunc=new listFuncs();
</SCRIPT></HEAD>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" >
<%= sFont("","","",True) %><HR><FORM NAME="userform" onSubmit="return false"><TABLE BORDER=0 CELLPADDING=0><TR> <TD> <%= sFont("","","",True) %> <%= L_PATH_TEXT %> </FONT> </TD> <TD> <% if InStr(currentobj.Path,"\\") then %> <%= text("Path",45,"","","",false,true) %> <% else %> <INPUT NAME="Path" VALUE="\\" SIZE=45 <%= Session("DEFINPUTSTYLE") %>> <% end if %>
</TD></TR><TR> <TD><%= sFont("","","",True) %> <%= L_USERNAME_TEXT %> </FONT> </TD> <TD><%= sFont("","","",True) %> <%= text("UNCUserName",45,"","","",false,true) %> </FONT> </TD></TR><TR> <TD><%= sFont("","","",True) %> <%= L_PASSWORD_TEXT %> </FONT> </TD> <TD><%= sFont("","","",True) %> <%= pword("UNCPassword",45,"","","",false,true) %> </FONT> </TD></TR>
<TR HEIGHT=4> <TD> </TD></TR><TR> <TD COLSPAN=3> <%= sFont("","","",True) %> <%= checkbox("AccessRead","",false) %> <%= L_READ_TEXT %><BR> <%= checkbox("AccessWrite","",false) %> <%= L_WRITE_TEXT %><BR> <% if currentobj.DontLog then %> <INPUT TYPE="checkbox" NAME="hdnDontLog" OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR> <INPUT TYPE="hidden" NAME="DontLog" VALUE="True"> <% else %> <INPUT TYPE="checkbox" NAME="hdnDontLog" CHECKED OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR> <INPUT TYPE="hidden" NAME="DontLog" VALUE="False"> <% end if %> </FONT> </TD></TR>
</TABLE><% if Session("vtype") = "svc" or Session("vtype") = "server" then%>
<!-- set the current object = to the instance level object for MSDOSDirOutput -->
<P><IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle"><%= L_DIRECTORYSTYLE_TEXT %><IMG SRC="images/hr.gif" WIDTH=350 HEIGHT=2 BORDER=0 ALIGN="middle"><P><TABLE BORDER=0 CELLPADDING=0 WIDTH = 200><TR> <TD COLSPAN=3> <%= sFont("","","",True) %> <%= printradio("hdnMSDOSDirOutput", not instobj.MSDOSDirOutput, "SetBool();",false) %> <%= L_UNIX_TEXT %>® </FONT> </TD></TR><TR> <TD COLSPAN=3> <%= sFont("","","",True) %> <%= printradio("hdnMSDOSDirOutput", instobj.MSDOSDirOutput, "SetBool();",false) %> <%= L_MSDOS_TEXT %>® <% if instobj.MSDOSDirOutput then %> <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="True"> <% else %> <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="False"> <% end if %> </FONT> </TD></TR></TABLE><% end if %></FORM>
</FONT></BODY>
</HTML>
<% end if %>
|
