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.
245 lines
5.2 KiB
245 lines
5.2 KiB
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="directives.inc" -->
|
|
|
|
<% if Session("FONTSIZE") = "" then %>
|
|
<!--#include file="iito.inc"-->
|
|
<% else %>
|
|
<!--#include file="iiauth.str"-->
|
|
<!--#include file="iianoncm.str"-->
|
|
<%
|
|
On Error Resume Next
|
|
|
|
Dim path, currentobj
|
|
|
|
path=Session("dpath")
|
|
Session("path")=path
|
|
Session("SpecObj")=""
|
|
Session("SpecProps")=""
|
|
Set currentobj=GetObject(path)
|
|
%>
|
|
|
|
<!--#include file="iiset.inc"-->
|
|
<!--#include file="iisetfnt.inc"-->
|
|
<%
|
|
' Do not use top.title.Global.update flag if page is loaded into a dialog
|
|
bUpdateGlobal = false
|
|
%>
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>New</TITLE>
|
|
|
|
<SCRIPT LANGUAGE="javascript">
|
|
|
|
<!--#include file="iijsfuncs.inc"-->
|
|
|
|
function loadHelp()
|
|
{
|
|
top.title.Global.helpFileName="iipy_6";
|
|
}
|
|
|
|
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 SetDomain()
|
|
{
|
|
dname = document.userform.DefaultLogonDomain.value;
|
|
dname=prompt("<%= L_ENTERDOMAIN_TEXT %>",dname);
|
|
if ((dname != "") && (dname != null))
|
|
{
|
|
document.userform.DefaultLogonDomain.value=dname;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
function warnBasic(chkcntrl)
|
|
{
|
|
if (chkcntrl.checked)
|
|
{
|
|
if (!confirm("<%= L_BASICWARNING1_TEXT & L_BASICWARNING2_TEXT & L_BASICWARNING3_TEXT & L_BASICWARNING4_TEXT%>"))
|
|
{
|
|
chkcntrl.checked = false;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
function warnDigest(chkcntrl)
|
|
{
|
|
if (chkcntrl.checked)
|
|
{
|
|
if (!confirm("<%= L_DIGESTWARN_TEXT %>"))
|
|
{
|
|
chkcntrl.checked = false;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
function SetUser()
|
|
{
|
|
<% if Session("IsAdmin") then %>
|
|
thefile="iipop.asp?pg=iianon.asp&tools=no";
|
|
title="AnonymousUser"
|
|
width = <%= iHScale(L_IIANON_W) %>;
|
|
height = <%= iVScale(L_IIANON_H) %>;
|
|
popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
|
|
if(popbox !=null){
|
|
if (popbox.opener==null){
|
|
popbox.opener=self;
|
|
}
|
|
}
|
|
<% end if %>
|
|
}
|
|
|
|
</SCRIPT>
|
|
|
|
</HEAD>
|
|
|
|
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 onLoad="loadHelp();" >
|
|
|
|
<FORM NAME="userform">
|
|
<TABLE HEIGHT="100%" WIDTH="100%" CELLPADDING=0 CELLSPACING=0>
|
|
<TR><TD VALIGN="top">
|
|
<TABLE BORDER=0 BGCOLOR="<%= Session("BGCOLOR") %>" CELLPADDING=10 CELLSPACING=0>
|
|
|
|
<TR>
|
|
<TD>
|
|
<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0>
|
|
<TR>
|
|
<TD VALIGN="top" COLSPAN = 2>
|
|
<%= sFont("","","",True) %>
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<% if Session("IsAdmin") then %>
|
|
<%= checkbox("AuthAnonymous","setCntrlState(this.checked,btnAnonUser);", false) %>
|
|
<% else %>
|
|
<%= checkbox("AuthAnonymous","", false) %>
|
|
<% end if %>
|
|
<B>
|
|
<%= L_ANON_TEXT %>
|
|
</B>
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_ANON_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<P>
|
|
<%= L_NOUSERNEEDED_TEXT %>
|
|
</TD>
|
|
</TR>
|
|
<TD >
|
|
<%= sFont("","","",True) %>
|
|
<%= L_ACCOUNTUSED_TEXT %>
|
|
</TD>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<INPUT TYPE="button" NAME="btnAnonUser" VALUE="<%= L_EDIT_TEXT %>" OnClick="SetUser();">
|
|
<INPUT TYPE="hidden" NAME="AnonymousUserName" VALUE="<%= currentobj.AnonymousUserName %>">
|
|
<INPUT TYPE="hidden" NAME="AnonymousUserPass" VALUE="<%= currentobj.AnonymousUserPass %>">
|
|
<INPUT TYPE="hidden" NAME="AnonymousPasswordSync" VALUE="<%= currentobj.AnonymousPasswordSync %>">
|
|
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD COLSPAN = 2>
|
|
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD VALIGN="top" COLSPAN = 2>
|
|
<%= sFont("","","",True) %>
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<B>
|
|
<%= L_AUTHACCESS_TEXT %>
|
|
</B>
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_AUTHACCESS_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<P>
|
|
<%= L_AUTHRESTR_TEXT %><BR>
|
|
* <%= L_ANONDISABLED_TEXT %><BR>
|
|
* <%= L_ACCESSRESTRICTED_TEXT %> <P>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= checkbox("AuthBasic","warnBasic(this);setCntrlState(this.checked,btnDefDomain);", false) %>
|
|
<%= L_BASIC_TEXT %> <%= L_CLEARPASS_TEXT %>
|
|
<P>
|
|
<%= L_DEFAULTDOMAIN_TEXT %>
|
|
<P>
|
|
</TD>
|
|
<TD ALIGN="bottom">
|
|
<INPUT TYPE="button" NAME="btnDefDomain" VALUE="<%= L_EDIT_TEXT %>" OnClick="SetDomain();">
|
|
<INPUT TYPE="hidden" NAME="DefaultLogonDomain" VALUE="<%= currentobj.DefaultLogonDomain %>">
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= checkbox("AuthMD5","warnDigest(this);", false) %>
|
|
<%= L_DIGEST_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= checkbox("AuthNTLM","", false) %>
|
|
<%= L_NTLM_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
|
|
|
|
</TABLE>
|
|
</BLOCKQUOTE>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
|
|
|
|
</FORM>
|
|
|
|
<P>
|
|
</TD></TR>
|
|
</TABLE>
|
|
|
|
<script language="JavaScript">
|
|
<% if Session("IsAdmin") then %>
|
|
setCntrlState(document.userform.chkAuthAnonymous.checked,document.userform.btnAnonUser);
|
|
<% else %>
|
|
setCntrlState(false,document.userform.btnAnonUser);
|
|
<% end if %>
|
|
|
|
setCntrlState(document.userform.chkAuthBasic.checked,document.userform.btnDefDomain);
|
|
</script>
|
|
|
|
</BODY>
|
|
</HTML>
|
|
|
|
<% end if %>
|