home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iisechd.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  7.1 KB  |  292 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.  
  9. <% 
  10. Const L_PWAUTH_TEXT="Password Authentication Method"
  11. Const L_AUTHMETHOD_TEXT="View or Set the password authentication method used for non-anonymous access to this resource."
  12. Const L_SECOMM_TEXT="Secure Communictions"
  13. Const L_VIEWSECOMM_TEXT="View or Set the secure communications method used when the virtual directory is accessed."
  14. Const L_EDIT_TEXT="Edit..."
  15. Const L_TCPRESTRICT_TEXT="TCP/IP Access Restrictions"
  16. Const L_BYDEFAULT_TEXT="By default, all computers are:"
  17. Const L_GRANTED_TEXT="Granted access"
  18. Const L_DENIED_TEXT="Denied access"
  19. Const L_EXCEPTBELOW_TEXT="Except those listed below:"
  20. Const L_ACCESS_TEXT="Access"
  21. Const L_IP_TEXT="IP Address"
  22. Const L_SubNET_TEXT="Subnet Mask"
  23. Const L_DOMAIN_TEXT="Domain"
  24. Const L_ACCESSDENIED_TEXT="Access Denied" 
  25. Const L_SELECTITEM_TEXT="Please select an item to delete."
  26.  
  27. On Error Resume Next 
  28.  
  29. Dim path, currentobj
  30.  
  31. path=Session("dpath")
  32. Set currentobj=GetObject(path)
  33.  
  34. function heading(width,thestring)
  35.     Dim i
  36.     width=width - len(thestring)
  37.     for i=width to 0 step -1
  38.         thestring=thestring & " "
  39.     Next
  40.     heading=thestring
  41. end function
  42.  
  43.  
  44.  %>
  45.  
  46. <!--#include file="iiset.inc"-->
  47.  
  48.  
  49. <HTML>
  50. <HEAD>
  51.     <TITLE></TITLE>
  52.     
  53. <SCRIPT LANGUAGE="JavaScript">
  54.  
  55.     function isNum(txtcntrl) {
  56.         str=txtcntrl.value;
  57.         for (var i=0; i < str.length; i++) {
  58.               var ch=str.substring(i, i + 1);
  59.               if ((ch < "0" || "9" < ch) && ch !=',') {
  60.                    alert("Please enter an integer.");
  61.                 txtcntrl.focus()
  62.             return false;
  63.               }
  64.          }
  65.         return true;
  66.     }
  67.  
  68.     function SetList(){
  69.     }
  70.  
  71.     function disableDefault(dir,fromCntrl, toCntrl){
  72.         if (!dir){
  73.             if (fromCntrl.value !=""){
  74.                 toCntrl.value=fromCntrl.value;
  75.                 fromCntrl.value="";
  76.             }
  77.         }
  78.         else{
  79.             if (toCntrl.value !=""){
  80.                 fromCntrl.value=toCntrl.value;
  81.                 toCntrl.value="";
  82.             }
  83.         }
  84.     }
  85.  
  86.     function enableDefault(chkCntrl){
  87.         chkCntrl.checked=true;
  88.     }
  89.  
  90.     function popBox(title, width, height, filename){
  91.         thefile=(filename + ".asp");
  92.         thefile="iipop.asp?pg="+thefile;
  93.         <% if Session("Browser") <> "IE3" then %>
  94.             width=width +25;
  95.             height=height + 50;                
  96.         <% end if %>
  97.  
  98.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  99.         if(popbox !=null){
  100.             if (popbox.opener==null){
  101.                 popbox.opener=self;
  102.             }
  103.         }
  104.     }
  105.  
  106. </SCRIPT>
  107.  
  108. </HEAD>
  109.  
  110. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" onLoad="loadList();"  LINK="#000000" VLINK="#000000">
  111. <FORM NAME="userform">
  112. <TABLE CELLSPACING=0 CELLPADDING=2>
  113. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_PWAUTH_TEXT %></B><P></FONT></TD></TR>
  114. <TR><TD>
  115.  
  116. <TABLE CELLSPACING=0 CELLPADDING=2>
  117.     <TR>
  118.         <TD>  </TD>
  119.         <TD WIDTH=50 VALIGN="middle"><IMG SRC="images/handshk.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
  120.         <TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_AUTHMETHOD_TEXT %></FONT></TD>
  121.         <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('Authenticate',500,510, 'iiauth')"></TD>
  122.     </TR>
  123. </TABLE>
  124.  
  125. </TD></TR>
  126. </TABLE>
  127. <HR>
  128. <TABLE CELLSPACING=0 CELLPADDING=2>
  129. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_SECCOMM_TEXT %></B><P></FONT></TD></TR>
  130. <TR><TD>
  131.  
  132. <TABLE CELLSPACING=0 CELLPADDING=2>
  133.     <TR>
  134.         <TD>  </TD>
  135.         <TD WIDTH=50 VALIGN="middle"><IMG SRC="images/key.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
  136.         <TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_VIEWSECOMM_TEXT %></FONT></TD>
  137.         <TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnCommunication" onClick="popBox('Communications',400,250, 'iicomm')"></TD>
  138.     </TR>
  139. </TABLE>
  140. </TD></TR>
  141. </TABLE>
  142.  
  143. <HR>
  144. <TABLE CELLSPACING=0 CELLPADDING=2>
  145. <TR><TD><FONT SIZE=1 FACE="HELV,ARIAL"><B><%= L_TCPRESTRICT_TEXT %></B></FONT></TD></TR>
  146. <TR><TD>
  147. <BLOCKQUOTE>
  148. <TABLE WIDTH="100%" CELLSPACING=0 CELLPADDING=2>
  149.     <TR>
  150.         <TD VALIGN="top">
  151.             <FONT SIZE=1 FACE="HELV,ARIAL">
  152.                     <%= L_BYDEFAULT_TEXT %>
  153.             </FONT>
  154.         </TD>
  155.         <TD VALIGN="top">
  156.             <FONT SIZE=1 FACE="HELV,ARIAL">
  157.                 <IMG SRC="images/smallkey.gif" WIDTH=17 HEIGHT=18 BORDER=0 ALIGN="middle">
  158.                 <%= radio("DefaultAccess",true,"", false) %>
  159.                 <%= L_GRANTED_TEXT %>
  160.                 <P>
  161.                 <IMG SRC="images/lock.gif" WIDTH=16 HEIGHT=18 BORDER=0  ALIGN="middle">
  162.                 <%= radio("DefaultAccess",false,"", false) %>
  163.                 <%= L_DENIED_TEXT %>
  164.             </FONT>
  165.         </TD>
  166.     </TR>
  167.     
  168.     <TR>
  169.         <TD><FONT SIZE=1 FACE="HELV,ARIAL"><%= L_EXCEPTBELOW_TEXT %></FONT></TD>
  170.     </TR>
  171. </TABLE>
  172. </BLOCKQUOTE>
  173. </TD></TR>
  174. </TABLE>
  175. <P>
  176. <TABLE BORDER=1 BORDERCOLORDARK="#CCCCCC" BORDERCOLORLIGHT="#CCCCCC">
  177. <TR>
  178. <TD BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#000000"><FONT SIZE=1 FACE="HELV,ARIAL">
  179.     <A HREF="javascript:sortList('fname');">
  180.         <%= heading(18,L_ACCESS_TEXT) %>
  181.     </A>
  182.     </FONT>
  183. </TD>
  184. <TD BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#000000"><FONT SIZE=1 FACE="HELV,ARIAL">
  185.     <A HREF="javascript:sortList('fsize');">
  186.         <%= heading(22,L_IP_TEXT) %>
  187.     </A>
  188.     </FONT>
  189. </TD>
  190. <TD BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#000000"><FONT SIZE=1 FACE="HELV,ARIAL">
  191.     <A HREF="javascript:sortList('ftype');">
  192.         <%= heading(19,L_SubNET_TEXT) %>
  193.     </A>
  194.     </FONT>
  195. </TD>
  196. <TD BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#000000"><FONT SIZE=1 FACE="HELV,ARIAL">
  197.     <A HREF="javascript:sortList('ftype');">
  198.         <%= heading(32,L_DOMAIN_TEXT) %>
  199.     </A>
  200.     </FONT>
  201. </TD>
  202. </TR>
  203. </TABLE>
  204.  
  205.  
  206. </FORM>
  207. <FORM name="hiddenform">
  208.     <INPUT TYPE="hidden" NAME="index" VALUE=0>
  209. </FORM>
  210.  
  211. <SCRIPT LANGUAGE="JavaScript">
  212.  
  213.     function loadList(){
  214.     parent.list.location.href="iisecls.asp";
  215.     }
  216.  
  217.     function sortList(sortby, sortasc){
  218.     
  219.     }
  220.  
  221.     function addItem(){
  222.         i=cachedList.length
  223.         cachedList[i]=new listObj("New Application", ".new", "\\path", "Low");
  224.         document.hiddenform.index.value=i;
  225.         cachedList[i].updated=true;    
  226.         cachedList[i].newitem=true;
  227.         loadList();
  228.     }
  229.  
  230.     function delItem(){
  231.         if (document.hiddenform.index.value >= 0){
  232.             i=eval(document.hiddenform.index.value);
  233.             cachedList[i].deleted=true;
  234.             cachedList[i].updated=true;    
  235.              i=i-1;
  236.             
  237.             <% 'run through the list to find the Next non-deleted item %>
  238.             for (var j=i; j >=0; j--) {
  239.                 if (cachedList[j].deleted){
  240.                 }
  241.                 else{
  242.                     break            
  243.                 }
  244.             }
  245.     
  246.             document.hiddenform.index.value=j;
  247.             loadList();
  248.         }
  249.         else{
  250.             alert("<%= L_SELECTITEM_TEXT %>");
  251.         }
  252.     }
  253.  
  254.     function buildListForm(){
  255.     }
  256.  
  257.     function SetListVals(){
  258.     }
  259.  
  260.     function listFuncs(){
  261.         this.addItem=addItem;
  262.         this.delItem=delItem;
  263.         this.writeList=buildListForm;
  264.         this.SetListVals=SetListVals;
  265.         this.mainframe = top.opener.top;        
  266.     }
  267.  
  268.  
  269.  
  270.     function listObj(a,ip,s,dmn){
  271.         this.access=a;
  272.         this.ip=ip;
  273.         this.Subnet=s;
  274.         this.domain=dmn;
  275.         this.deleted=false;
  276.         this.updated=false;
  277.         this.newitem=false;
  278.     }
  279.  
  280.     cachedList=new Array(2)
  281.     for (var i=0; i < 2; i++) {
  282.         cachedList[i]=new listObj(true, "131.112.200.12","255.255.0.0","");
  283.     }
  284.  
  285.     listFunc=new listFuncs();
  286.  
  287. </SCRIPT>
  288. </BODY>
  289.  
  290. </HTML>
  291.  
  292. <% end if %>