home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
pelne
/
optionp
/
ins.cab
/
nngen.asp.4
< prev
next >
Wrap
Text File
|
1997-10-12
|
9KB
|
273 lines
<% Response.Expires = 0 %>
<%
REM LOCALIZATION
L_PAGETITLE_TEXT = "Microsoft Internet Service Manager"
L_GENERALPROPS_TEXT = "General Properties for"
L_ALLOWCLIENTPOSTING_TEXT = "Allow Client Posting"
L_MAXPOSTSIZE_TEXT = "Maximum post size:"
L_KILOBYTES_TEXT = "kilobytes"
L_MAXCONNSIZE_TEXT = "Maximum connection size:"
L_MEGABYTES_TEXT = "megabytes"
L_ALLOWFEEDPOSTING_TEXT = "Allow Feed Posting"
L_ALLOWCNTRLMSGS_TEXT = "Allow Control Messages"
L_SMTPSERVER_TEXT = "SMTP server for moderated groups:"
L_DFLTMOD_TEXT = "Default moderator domain:"
L_ADMINISTRATOR_TEXT = "Administrator Email account:"
L_ENTERINTEGER_ERRORMESSAGE = "Please enter an integer between 0 and "
REM END LOCALIZATION
%>
<% svr = Request("svr") %>
<HTML>
<HEAD>
<TITLE><% = L_PAGETITLE_TEXT %></TITLE>
<SCRIPT LANGUAGE = "javascript">
<% REM Create uForm object and methods %>
uForm = new Object();
uForm.writeForm = writeForm;
uForm.readCache = readCache;
function readCache() {
hform = top.menu.document.hiddenform;
uform = document.userform;
uform.chkConfigAllowClientPosting.checked = (hform.chkConfigAllowClientPosting.value == "1");
uform.hdnConfigServerPostSoftLimit.value = hform.txtConfigServerPostSoftLimit.value;
uform.hdnConfigServerPostHardLimit.value = hform.txtConfigServerPostHardLimit.value;
if (uform.chkConfigAllowClientPosting.checked) {
uform.txtConfigServerPostSoftLimit.value = uform.hdnConfigServerPostSoftLimit.value;
uform.txtConfigServerPostHardLimit.value = uform.hdnConfigServerPostHardLimit.value;
}
uform.chkConfigAllowFeedPosting.checked = (hform.chkConfigAllowFeedPosting.value == "1");
uform.hdnConfigServerFeedSoftLimit.value = hform.txtConfigServerFeedSoftLimit.value;
uform.hdnConfigServerFeedHardLimit.value = hform.txtConfigServerFeedHardLimit.value;
if (uform.chkConfigAllowFeedPosting.checked) {
uform.txtConfigServerFeedSoftLimit.value = uform.hdnConfigServerFeedSoftLimit.value;
uform.txtConfigServerFeedHardLimit.value = uform.hdnConfigServerFeedHardLimit.value;
}
uform.chkConfigAllowControlMessages.checked = (hform.chkConfigAllowControlMessages.value == "1");
uform.txtConfigSmtpServerAddress.value = hform.txtConfigSmtpServerAddress.value;
uform.txtConfigDefaultModeratorDomain.value = hform.txtConfigDefaultModeratorDomain.value;
uform.txtAdministratorEmail.value = hform.txtAdministratorEmail.value;
}
function writeForm() {
hform = top.menu.document.hiddenform;
uform = document.userform;
hform.chkConfigAllowClientPosting.value = (chkToTxt(uform.chkConfigAllowClientPosting));
hform.txtConfigServerPostSoftLimit.value = uform.hdnConfigServerPostSoftLimit.value;
hform.txtConfigServerPostHardLimit.value = uform.hdnConfigServerPostHardLimit.value;
hform.chkConfigAllowFeedPosting.value = (chkToTxt(uform.chkConfigAllowFeedPosting));
hform.txtConfigServerFeedSoftLimit.value = uform.hdnConfigServerFeedSoftLimit.value;
hform.txtConfigServerFeedHardLimit.value = uform.hdnConfigServerFeedHardLimit.value;
hform.chkConfigAllowControlMessages.value = (chkToTxt(uform.chkConfigAllowControlMessages));
hform.txtConfigSmtpServerAddress.value = uform.txtConfigSmtpServerAddress.value;
hform.txtConfigDefaultModeratorDomain.value = uform.txtConfigDefaultModeratorDomain.value;
hform.txtAdministratorEmail.value = uform.txtAdministratorEmail.value
}
<% REM Javascript function chkToTxt converts checkbox bools to text value for hiddenform %>
function chkToTxt(chkControl)
{
if (chkControl.checked)
{
return "1";
}
else {
return "0";
}
}
<% REM Javascript function setUpdated sets "updated" flag in hiddenform when a field is changed %>
function setUpdated()
{
top.menu.document.hiddenform.updated.value = "true";
}
function maintainChk(index)
{
uform = document.userform;
if (uform.elements[index].checked)
{
uform.elements[index+1].value = uform.elements[index+2].value;
uform.elements[index+3].value = uform.elements[index+4].value;
}
else
{
uform.elements[index+2].value = uform.elements[index+1].value;
uform.elements[index+4].value = uform.elements[index+3].value;
uform.elements[index+1].value = "";
uform.elements[index+3].value = "";
}
}
function maintainTxt(txtIndex,chkIndex)
{
uform = document.userform;
uform.elements[txtIndex+1].value = uform.elements[txtIndex].value;
if (!(uform.elements[chkIndex].checked))
{
uform.elements[chkIndex].checked = true;
maintainChk(chkIndex);
}
}
<% REM Javascript function checkRange checks values between 0 and specified range %>
function checkRange(thisControl,range)
{
if (isFull(thisControl.value) && isNum(thisControl.value))
{
if (thisControl.value > range)
{
alert("<% = L_ENTERINTEGER_ERRORMESSAGE %>" + range + ".");
thisControl.focus()
}
}
}
</SCRIPT>
<!--#include file="nnisnum.htm" -->
<!--#include file="nnisfull.htm" -->
</HEAD>
<BODY BGCOLOR="#CCCCCC" TEXT="#000000" TOPMARGIN="10">
<FORM NAME="userform" onSubmit="return false">
<P><IMG SRC="images/gnicttl.gif" ALIGN="textmiddle" HEIGHT=10 WIDTH=10> <FONT SIZE=2 FACE="Arial"><B><% = L_GENERALPROPS_TEXT %> </B></FONT><FONT FACE="Times New Roman" SIZE=3><I><% = svr %></I></FONT>
<P>
<TABLE WIDTH=100% CELLPADDING=0>
<TR><TD>
<FONT SIZE=2 FACE="Arial">
<INPUT NAME="chkConfigAllowClientPosting" TYPE="checkbox" onBlur="maintainChk(0);setUpdated();" onClick="maintainChk(0);setUpdated();"> <B><% = L_ALLOWCLIENTPOSTING_TEXT %></B>
<BLOCKQUOTE>
<TABLE WIDTH=410>
<TR>
<TD WIDTH=200 ALIGN="left">
<FONT SIZE=2 FACE="Arial"><% = L_MAXPOSTSIZE_TEXT %></FONT>
</TD>
<TD WIDTH=210 ALIGN="left">
<INPUT NAME="txtConfigServerPostSoftLimit" TYPE="text" onBlur="checkRange(this,32000);maintainTxt(1,0);setUpdated();" onChange="checkRange(this,32000);maintainTxt(1,0);setUpdated();" SIZE=5>
<FONT SIZE=2 FACE="Arial"><% = L_KILOBYTES_TEXT %></FONT>
<INPUT NAME="hdnConfigServerPostSoftLimit" TYPE="hidden">
</TD>
</TR>
<TR>
<TD HEIGHT=4 BGCOLOR="#CCCCCC"></TD>
</TR>
<TR>
<TD WIDTH=200 ALIGN="left">
<FONT SIZE=2 FACE="Arial"><% = L_MAXCONNSIZE_TEXT %></FONT>
</TD>
<TD WIDTH=210 ALIGN="left">
<INPUT NAME="txtConfigServerPostHardLimit" TYPE="text" onBlur="checkRange(this,4000);maintainTxt(3,0);setUpdated();" onChange="checkRange(this,4000);maintainTxt(3,0);setUpdated();" SIZE=5>
<FONT SIZE=2 FACE="Arial"><% = L_MEGABYTES_TEXT %></FONT>
<INPUT NAME="hdnConfigServerPostHardLimit" TYPE="hidden">
</TD>
</TR>
<TR>
<TD HEIGHT=4></TD>
</TR>
</TABLE>
</BLOCKQUOTE>
<P>
<INPUT NAME="chkConfigAllowFeedPosting" TYPE="checkbox" onClick="maintainChk(5);setUpdated();"> <B><% = L_ALLOWFEEDPOSTING_TEXT %></B><P>
<BLOCKQUOTE>
<TABLE WIDTH=410>
<TR>
<TD WIDTH=200 ALIGN="left">
<FONT SIZE=2 FACE="Arial"><% = L_MAXPOSTSIZE_TEXT %></FONT>
</TD>
<TD WIDTH=210 ALIGN="left">
<INPUT NAME="txtConfigServerFeedSoftLimit" TYPE="text" OnBlur="checkRange(this,32000);maintainTxt(6,5);setUpdated();" onChange="checkRange(this,32000);maintainTxt(6,5);setUpdated();" SIZE=5>
<FONT SIZE=2 FACE="Arial"><% = L_KILOBYTES_TEXT %></FONT>
<INPUT NAME="hdnConfigServerFeedSoftLimit" TYPE="hidden">
</TD>
</TR>
<TR>
<TD HEIGHT=4></TD>
</TR>
<TR>
<TD WIDTH=200 ALIGN="left">
<FONT SIZE=2 FACE="Arial"><% = L_MAXCONNSIZE_TEXT %></FONT><BR>
</TD>
<TD WIDTH=210>
<INPUT NAME="txtConfigServerFeedHardLimit" TYPE="text" onBlur="checkRange(this,4000);maintainTxt(8,5);setUpdated();" onChange="checkRange(this,4000);maintainTxt(8,5);setUpdated();" SIZE=5>
<FONT SIZE=2 FACE="Arial"><% = L_MEGABYTES_TEXT %></FONT>
<INPUT NAME="hdnConfigServerFeedHardLimit" TYPE="hidden"><BR>
</TD>
</TR>
<TR>
<TD HEIGHT=4></TD>
</TR>
</TABLE>
</BLOCKQUOTE>
<INPUT NAME="chkConfigAllowControlMessages" TYPE="checkbox" onClick="setUpdated();"> <% = L_ALLOWCNTRLMSGS_TEXT %>
<BR>
<TABLE WIDTH=565>
<TR>
<TD WIDTH=265>
<FONT SIZE=2 FACE="Arial"><% = L_SMTPSERVER_TEXT %>
</TD>
<TD WIDTH=300>
<INPUT NAME="txtConfigSmtpServerAddress" TYPE="text" VALUE="" onBlur="setUpdated();" onChange="setUpdated();" SIZE=25>
</TD>
</TR>
<TR>
<TD HEIGHT=4></TD>
</TR>
<TR>
<TD WIDTH=265>
<FONT SIZE=2 FACE="Arial"><% = L_DFLTMOD_TEXT %>
</TD>
<TD WIDTH=300>
<INPUT NAME="txtConfigDefaultModeratorDomain" TYPE="text" VALUE = "" onBlur="setUpdated();" onChange="setUpdated();" SIZE=25>
</TD>
</TR>
<tr>
<td>
<FONT SIZE=2 FACE="Arial">
<% = L_ADMINISTRATOR_TEXT %>
</font>
</td>
<td>
<INPUT NAME="txtAdministratorEmail" TYPE="text" VALUE="" onBlur="setUpdated();" onChange="setUpdated();" Size="25">
</td>
</tr>
</TABLE>
</TABLE>
</FORM>
<script language="javascript">
readCache();
</script>
</BODY>
</HTML>