home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiacssls.asp < prev    next >
Text File  |  1997-11-12  |  4KB  |  142 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4. <% 
  5. Const L_ENTERVALUE_TEXT="Please enter a value"
  6. Const L_BROWSE_TEXT="Browse..."
  7. Const L_DENIED_TEXT="Denied"
  8. Const L_GRANTED_TEXT="Granted"
  9. Const L_ACCESSDENIED_TEXT="Access Denied"
  10.  
  11. %>
  12.  
  13. <HTML>
  14. <HEAD>
  15.     <TITLE></TITLE>
  16.     <SCRIPT LANGUAGE="JavaScript">
  17.         function chgStatus(indexnum){
  18.             parent.head.listFunc.sel=indexnum
  19.             self.location.href="iiacssls.asp";
  20.             
  21.         }
  22.  
  23.         function chkFull(thiscntrl,defval){
  24.             if (this.value==defval){
  25.                 alert("<%= L_ENTERVALUE_TEXT %>");
  26.             }
  27.         }
  28.  
  29.         function clearDomain(){
  30.             if (document.listform.editMe.value !="" || document.listform.Subnet.value !=""){
  31.                 document.listform.domain.value="";
  32.             }
  33.         }
  34.  
  35.         function clearIP(){
  36.             if (document.listform.domain.value !=""){
  37.                 document.listform.editMe.value="";
  38.                 document.listform.Subnet.value="";
  39.             }
  40.         }
  41.  
  42.         function SetUpdated(){
  43.         //check to see if our event was triggered by a delete. if so, we don't
  44.         //want to set the cached object values, or we'll be overwriting 
  45.         //the wrong item.
  46.  
  47.         if (parent.head.listFunc.noupdate){
  48.             parent.head.listFunc.noupdate = false;
  49.         }
  50.         else{
  51.             var i=parent.head.listFunc.sel;
  52.             parent.head.cachedList[i].ip=document.listform.editMe.value;
  53.             parent.head.cachedList[i].Subnet=document.listform.Subnet.value;
  54.             parent.head.cachedList[i].domain=document.listform.domain.value;
  55.             parent.head.cachedList[i].updated=true;
  56.         }
  57.     }
  58.         
  59.     </SCRIPT>
  60. </HEAD>
  61.  
  62. <BODY BGCOLOR="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0>
  63.  
  64. <FORM NAME="listform">
  65.  
  66. <SCRIPT LANGUAGE="JavaScript">
  67.  
  68.     editOK=false;
  69.  
  70.     sel=eval(parent.head.listFunc.sel);
  71.     Grant=(parent.head.document.userform.GrantbyDefault.value=="True");
  72.  
  73.     var writestr = "<TABLE BORDER=0 CELLPADDING = 2 CELLSPACING = 0>"
  74.         
  75.     for (var i=0; i < parent.head.cachedList.length; i++) {
  76.         if (parent.head.cachedList[i].access){
  77.             accessstr = "<%= L_GRANTED_TEXT %>";
  78.         }
  79.         else{
  80.             accessstr = "<%= L_DENIED_TEXT %>";
  81.         }
  82.         if (Grant != parent.head.cachedList[i].access){
  83.             if (!parent.head.cachedList[i].deleted){
  84.                 
  85.                 if (sel!=i) {
  86.                     writestr += "<TR>"                                    
  87.                     writestr += writeCol(1,75,"<A HREF='javascript:chgStatus("+i+");'>" + accessstr + "</A>");                
  88.                     writestr += writeCol(1,90,parent.head.cachedList[i].ip);
  89.                     writestr += writeCol(1,90,parent.head.cachedList[i].Subnet);
  90.                     writestr += writeCol(1,100,parent.head.cachedList[i].domain);                                                        
  91.                     writestr += "</TR>";
  92.                 }
  93.                 else{    
  94.                     editOK=true;                
  95.                     writestr += "<TR BGCOLOR=#DDDDDD>"                                    
  96.                     writestr += writeCol(1,75,"<A HREF='javascript:chgStatus("+i+");'>" + accessstr + "</A>");                
  97.                     writestr += writeCol(1,90,"<INPUT NAME='editMe' VALUE='"+parent.head.cachedList[i].ip +"' SIZE=10 onBlur='clearDomain();SetUpdated();'>");
  98.                     writestr += writeCol(1,90,"<INPUT NAME='Subnet' VALUE='"+parent.head.cachedList[i].Subnet+"' SIZE=10 onBlur='clearDomain();SetUpdated();'>");
  99.                     writestr += writeCol(1,130,"<INPUT NAME='domain' VALUE='"+parent.head.cachedList[i].domain + "' SIZE=15 onBlur='clearIP();SetUpdated();'>");                                                        
  100.                     writestr += "</TR>";
  101.                 }
  102.             }
  103.         }
  104.     }
  105.     writestr += "</TABLE>";
  106.     document.write(writestr);    
  107.     
  108.     function displayVal(dispstr, altstr){
  109.         if (dispstr == ""){
  110.             dispstr = altstr;
  111.         }
  112.         return dispstr;
  113.     }
  114.     
  115.     function writeCol(colspan,w,str){
  116.             var writestr = "<TD";
  117.             if (colspan != ""){
  118.                 writestr += " COLSPAN = " + colspan;
  119.             }
  120.             if (w != ""){
  121.                 writestr += " WIDTH = " + w;
  122.             }        
  123.             <% if Session("IsIE") then %>
  124.                 writestr += " STYLE = 'font-face: Helv; font-size: 8pt;'";
  125.             <% end if %>            
  126.             writestr += "><FONT SIZE = 1 FACE = 'Helv,ARIAL'>" + str + "</FONT></TD>";
  127.     
  128.             return writestr;    
  129.     }        
  130.     
  131. </SCRIPT>
  132. </FORM>
  133. <SCRIPT LANGUAGE="JavaScript">    
  134.  
  135.     if (editOK){
  136.         document.listform.editMe.focus();
  137.     }
  138. </SCRIPT>
  139.  
  140. </BODY>
  141. </HTML>
  142.