mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
212 lines
4.4 KiB
212 lines
4.4 KiB
<%@ 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")=spath
|
|
end if
|
|
|
|
Set currentobj=GetObject(path)
|
|
Set instobj=GetObject(spath)
|
|
|
|
Session("SpecObj")=spath
|
|
Session("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 %>
|
|
|
|
|
|
|
|
|