home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / iis4_02.cab / JSBrwPop.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  732 b   |  29 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6.  
  7.  
  8. Const L_TITLE_TEXT="Server File System"
  9.  
  10. Dim pg
  11.  
  12. pg=Request.QueryString("pg")
  13. %>
  14.  
  15. <HTML>
  16. <HEAD>
  17. <TITLE><%= L_TITLE_TEXT %></TITLE>
  18. </HEAD>
  19. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  20. <FRAMESET ROWS="100%" COLS="100%"  BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
  21.     <FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO  MARGINHEIGHT=5 MARGINWIDTH=5>
  22. </FRAMESET>
  23. <% else %>
  24. <FRAMESET ROWS="*,0" COLS="100%" BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
  25.     <FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO MARGINHEIGHT=5 MARGINWIDTH=5>
  26. </FRAMESET>
  27. <% end if %>
  28. </HTML>
  29.