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.
317 lines
7.3 KiB
317 lines
7.3 KiB
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="directives.inc" -->
|
|
|
|
<% if Session("FONTSIZE") = "" then %>
|
|
<!--#include file="iito.inc"-->
|
|
<% else %>
|
|
<!--#include file="iiacsshd.str"-->
|
|
<%
|
|
|
|
On Error Resume Next
|
|
|
|
Dim path, currentobj, ipsecobj
|
|
|
|
path=Session("dpath")
|
|
Session("path")=path
|
|
Set currentobj=GetObject(path)
|
|
Set ipsecobj=currentobj.IPSecurity
|
|
|
|
Session("SpecObj")="IPSecurity"
|
|
Session("SpecProps")="GrantbyDefault,IPDeny,IPGrant,DomainGrant,DomainDeny"
|
|
%>
|
|
|
|
<!--#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
|
|
%>
|
|
<!--#include file="iiaspstr.inc"-->
|
|
|
|
<HTML>
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
function SetBool(){
|
|
if (document.userform.rdoGrantbyDefault[0].checked){
|
|
document.userform.GrantbyDefault.value="True"
|
|
}
|
|
else{
|
|
document.userform.GrantbyDefault.value="False"
|
|
}
|
|
loadList();
|
|
}
|
|
</SCRIPT>
|
|
|
|
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#000000" VLINK="#000000" ALINK="navy" LEFTMARGIN=5 TOPMARGIN=5 onLoad="loadList();loadHelp();">
|
|
|
|
<FORM NAME="userform">
|
|
|
|
<TABLE CELLSPACING=0 CELLPADDING=2>
|
|
<TR><TD ><%= sFont("","","",True) %><B><%= L_TCPRESTRICT_TEXT %></B></FONT></TD></TR>
|
|
<TR><TD>
|
|
<BLOCKQUOTE>
|
|
<TABLE WIDTH="100%" CELLSPACING=0 CELLPADDING=2>
|
|
<TR>
|
|
<TD VALIGN="top" >
|
|
<%= sFont("","","",True) %>
|
|
<%= L_BYDEFAULT_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
<TD VALIGN="top" >
|
|
<TABLE>
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<IMG SRC="images/smallkey.gif" WIDTH=17 HEIGHT=18 BORDER=0 ALIGN="middle">
|
|
</FONT>
|
|
</TD>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<% if ipsecobj.GrantbyDefault then %>
|
|
<INPUT TYPE="hidden" NAME="GrantbyDefault" VALUE="True">
|
|
<INPUT TYPE="radio" NAME="rdoGrantbyDefault" CHECKED OnClick="SetBool();">
|
|
<% else %>
|
|
<INPUT TYPE="hidden" NAME="GrantbyDefault" VALUE="False">
|
|
<INPUT TYPE="radio" NAME="rdoGrantbyDefault" OnClick="SetBool();">
|
|
<% end if %>
|
|
</FONT>
|
|
</TD>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= L_GRANTED_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<IMG SRC="images/lock.gif" WIDTH=16 HEIGHT=18 BORDER=0 ALIGN="middle">
|
|
</FONT>
|
|
</TD>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<% if ipsecobj.GrantbyDefault then %>
|
|
<INPUT TYPE="radio" NAME="rdoGrantbyDefault" OnClick="SetBool();">
|
|
<% else %>
|
|
<INPUT TYPE="radio" NAME="rdoGrantbyDefault" CHECKED OnClick="SetBool();">
|
|
<% end if %>
|
|
</FONT>
|
|
</TD>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<%= L_DENIED_TEXT %>
|
|
</FONT>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD ><%= sFont("","","",True) %><%= L_EXCEPTBELOW_TEXT %></FONT></TD>
|
|
</TR>
|
|
</TABLE>
|
|
</BLOCKQUOTE>
|
|
</TD></TR>
|
|
</TABLE>
|
|
|
|
</FORM>
|
|
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
|
|
<!--#include file="iijsfuncs.inc"-->
|
|
<!--#include file="iijsls.inc"-->
|
|
|
|
function loadHelp(){
|
|
top.title.Global.helpFileName="iipy_4";
|
|
}
|
|
|
|
function SetList(){
|
|
}
|
|
|
|
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 loadList(){
|
|
parent.list.location="iiacssls.asp";
|
|
}
|
|
|
|
|
|
function buildListForm(){
|
|
numrows=0;
|
|
for (var i=0; i < cachedList.length; i++) {
|
|
fullstr = cachedList[i].ip + cachedList[i].Subnet+ cachedList[i].domain;
|
|
if ((!cachedList[i].deleted) && (fullstr !="")){
|
|
numrows=numrows + 1;
|
|
}
|
|
}
|
|
qstr="numrows="+numrows;
|
|
qstr=qstr+"&cols=IPGrant&cols=IPDeny&cols=DomainGrant&cols=DomainDeny"
|
|
|
|
top.hlist.location.href="iihdn.asp?"+qstr;
|
|
<% 'the list values will be grabbed by the hiddenlistform script... %>
|
|
|
|
|
|
}
|
|
|
|
function SetListVals(){
|
|
listForm=top.hlist.document.hiddenlistform;
|
|
j=0;
|
|
for (var i=0; i < cachedList.length; i++) {
|
|
|
|
fullstr = cachedList[i].ip + cachedList[i].Subnet+ cachedList[i].domain;
|
|
if ((!cachedList[i].deleted) && (fullstr !="")){
|
|
ipSubnet=cachedList[i].ip + "," + cachedList[i].Subnet;
|
|
if (ipSubnet==","){
|
|
ipSubnet=""
|
|
}
|
|
else{
|
|
//if there is no subnet, set it to default...
|
|
if (ipSubnet.indexOf(",") == ipSubnet.length-1){
|
|
ipSubnet = ipSubnet + "255.255.255.255"
|
|
}
|
|
}
|
|
if (cachedList[i].access){
|
|
// this works because on entry, if the user enters a domain, the ip/Subnet will be cleared.
|
|
// if they enter an ip the domain will be cleared.
|
|
// ip/Subnet and domain should be mutually exclusive...
|
|
|
|
listForm.elements[j++].value=ipSubnet;
|
|
listForm.elements[j++].value="";
|
|
listForm.elements[j++].value=cachedList[i].domain;
|
|
listForm.elements[j++].value="";
|
|
}
|
|
else{
|
|
listForm.elements[j++].value="";
|
|
listForm.elements[j++].value=ipSubnet;
|
|
listForm.elements[j++].value="";
|
|
listForm.elements[j++].value=cachedList[i].domain;
|
|
}
|
|
}
|
|
cachedList[i].updated=false;
|
|
}
|
|
}
|
|
|
|
function listObj(i,a,ip,s,dmn){
|
|
this.id = i;
|
|
|
|
this.deleted=false;
|
|
this.updated=false;
|
|
this.newitem=false;
|
|
|
|
if (a == null)
|
|
{
|
|
if (document.userform != null)
|
|
{
|
|
a = !document.userform.rdoGrantbyDefault[0].checked;
|
|
}
|
|
else
|
|
{
|
|
a = false;
|
|
}
|
|
}
|
|
|
|
this.access=initParam(a,"");
|
|
this.ip=initParam(ip,"");
|
|
this.Subnet=initParam(s,"");
|
|
this.domain=initParam(dmn,"");
|
|
}
|
|
|
|
listFunc=new listFuncs("ip","",top.opener.top);
|
|
cachedList=new Array()
|
|
|
|
<%
|
|
Dim agrantlist, arraybound, aAccess, i, Nexti
|
|
Dim agrantDomains, adenylist, adenyDomains
|
|
|
|
agrantlist=ipsecobj.IPGrant
|
|
if IsArray(agrantlist) then
|
|
arraybound=UBound(agrantlist)
|
|
if agrantlist(0) <> "" then
|
|
for i=0 to arraybound
|
|
aAccess=getIP(agrantlist(i))
|
|
%>cachedList[<%= i %>]=new listObj(<%= i %>, true, "<%= aAccess(0) %>","<%= aAccess(1) %>","");<%
|
|
Next
|
|
end if
|
|
end if
|
|
|
|
Nexti=UBound(agrantlist)+1
|
|
agrantdomains=ipsecobj.DomainGrant
|
|
if IsArray(agrantdomains) then
|
|
arraybound=UBound(agrantdomains)
|
|
if agrantdomains(0) <> "" then
|
|
for i=0 to arraybound
|
|
%>cachedList[<%= Nexti %>]=new listObj(<%= Nexti %>, true, "","","<%= sJSLiteral(agrantdomains(i)) %>");<%
|
|
Nexti=Nexti + 1
|
|
Next
|
|
end if
|
|
end if
|
|
|
|
adenylist=ipsecobj.IPDeny
|
|
if IsArray(adenylist) then
|
|
arraybound=UBound(adenylist)
|
|
if adenylist(0) <> "" then
|
|
for i=0 to arraybound
|
|
aAccess=getIP(adenylist(i))
|
|
%>cachedList[<%= Nexti %>]=new listObj(<%= Nexti %>, false, "<%= aAccess(0) %>","<%= aAccess(1) %>","");<%
|
|
Nexti=Nexti + 1
|
|
Next
|
|
end if
|
|
end if
|
|
|
|
adenydomains=ipsecobj.DomainDeny
|
|
if IsArray(adenydomains) then
|
|
arraybound=UBound(adenydomains)
|
|
if adenydomains(0) <> "" then
|
|
for i=0 to arraybound
|
|
%>cachedList[<%= Nexti %>]=new listObj(<%= Nexti %>, false, "","","<%= sJSLiteral(adenydomains(i)) %>");<%
|
|
Nexti=Nexti + 1
|
|
Next
|
|
end if
|
|
end if
|
|
|
|
function getIP(bindstr)
|
|
|
|
dim one, ip, sn
|
|
|
|
one=Instr(bindstr,",")
|
|
if one > 0 then
|
|
ip=Trim(Mid(bindstr,1,(one-1)))
|
|
sn=Trim(Mid(bindstr,(one+1)))
|
|
if sn = "255.255.255.255" then
|
|
sn = ""
|
|
end if
|
|
else
|
|
ip=bindstr
|
|
end if
|
|
getIP=Array(ip,sn)
|
|
end function
|
|
|
|
%>
|
|
|
|
|
|
|
|
</SCRIPT>
|
|
</BODY>
|
|
|
|
</HTML>
|
|
<% end if %>
|