|
|
<%@ 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 %>
|