home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iipathls.asp < prev    next >
Text File  |  1997-11-12  |  2KB  |  66 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <HTML>
  6. <HEAD>
  7. <TITLE></TITLE>
  8. </HEAD>
  9.  
  10. <BODY BGCOLOR="#FFFFFF" LINK="#000000" VLINK="#000000" TOPMARGIN=10 TEXT="#000000">
  11.  
  12. <%
  13. Dim key, item
  14. For Each key in Request.Querystring 
  15.         Response.write key & ":" & Request.Querystring(key) & "<BR>"
  16. Next
  17. %>
  18. <FORM NAME="userform">
  19.  
  20. <SCRIPT LANGUAGE="JavaScript">
  21.     var wrtstr = "";
  22.  
  23.     var inheritenceList = top.opener.top.title.inheritenceList;
  24.     var lastproperty = "";
  25.  
  26.     //inheritenceList.sort(sortOrder);
  27.  
  28.     document.write ("<TABLE BORDER=0>");
  29.     for (var i=0;i < inheritenceList.length; i++) {        
  30.         
  31.         if (lastproperty != inheritenceList[i].property){
  32.             lastproperty = inheritenceList[i].property;
  33.             wrtstr = "<TR>";
  34.             wrtstr += writeCol(3,lastproperty);                    
  35.             wrtstr += "</TR>";
  36.             document.write(wrtstr);            
  37.         }
  38.         
  39.         wrtstr = "<TR>";
  40.         wrtstr += writeCol(1,"    ");        
  41.         wrtstr += writeCol(1,"<INPUT TYPE='checkbox' NAME='hdn" + lastproperty + "' OnClick='setPath(document.userform." + lastproperty + ");'>");
  42.         wrtstr += writeCol(1,"<INPUT TYPE='hidden' NAME='" + lastproperty + "' VALUE='" + inheritenceList[i].path + "'>");        
  43.         wrtstr += writeCol(1,inheritenceList[i].path);            
  44.         wrtstr += "</TR>";        
  45.         
  46.         document.write(wrtstr);
  47.     }
  48.     document.write ("</TABLE>");    
  49.     
  50.     function writeCol(colspan,str){
  51.         return "<TD COLSPAN = " + colspan + " STYLE = 'font-face: Helv; font-size: 8pt;'><FONT SIZE = 1 FACE = 'Helv'>" + str + "</FONT></TD>";        
  52.     }
  53.         
  54.     function setPath(hdnContrl){
  55.         
  56.     }
  57.     
  58.     
  59.     
  60.  
  61.  
  62. </SCRIPT>
  63. </FORM>
  64. </BODY>
  65. </HTML>
  66.