home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiset.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  1.4 KB  |  72 lines
  1. <%@ LANGUAGE=VBScript %>
  2.  
  3. <% Option Explicit %>
  4. <% Response.Expires = 0 %>
  5.  
  6. <% 
  7. Dim key
  8.  
  9. ' Called by iihd.asp, when opening property sheets.
  10.  
  11. ' this is a fairly generic script... we pass in a variety of keys to set our session vars with
  12. ' including, but not limited to: vtype, stype, spath, dpath
  13.  
  14.  
  15.  
  16. For Each key In Request.QueryString
  17.     'Response.write "KEY:" & key
  18.     'Response.write "     VAL:" & Request.QueryString(key) & "<P>"
  19.     Session(key)=Request.QueryString(key)
  20. Next
  21.  
  22.  %>
  23.  
  24. <HTML>
  25. <BODY>
  26.  
  27. <SCRIPT LANGUAGE="JavaScript"> 
  28.  
  29.     function popBox(title, width, height, filename){
  30.     
  31.         var popbox;
  32.         
  33.         thefile=(filename + ".asp");
  34.         thefile="iipop.asp?pg="+thefile;
  35.         
  36.         <% if Session("Browser") <> "IE3" then %>
  37.             width=width +25;
  38.             height=height + 50;                
  39.         <% end if %>
  40.  
  41.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  42.         if(popbox !=null){
  43.             if (popbox.opener==null){
  44.                 popbox.opener=self;
  45.             }
  46.         }
  47.     }
  48.  
  49.  
  50.  
  51. if ("<%= Request.QueryString("vtype") %>"=="comp"){
  52.     <% if Session("FONTSIZE") = "LARGE" then %>
  53.         popBox("computer",525,300,"iicomp");
  54.     <% else %>
  55.         popBox("computer",440,250,"iicomp");    
  56.     <% end if %>
  57.     top.body.iisstatus.location="iistat.asp"
  58. }
  59. else{
  60.     path = "ii<%= Request.QueryString("stype") %>.asp?vtype=<%= Request.QueryString("vtype") %>";
  61.         
  62.     top.body.location.href=(path);
  63. }
  64.  
  65.  
  66.  
  67. </SCRIPT>
  68.  
  69. </BODY>
  70. </HTML>
  71.  
  72.