home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iihdrls.asp < prev    next >
Text File  |  1997-11-12  |  4KB  |  138 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. '    strings for localization
  7. Const L_ACCESSDENIED_TEXT="Access Denied" 
  8. Const L_ADD_TEXT="Add"
  9. Const L_REMOVE_TEXT="Remove"
  10. Const L_CUSTOM_TEXT="Custom Headers"
  11. Const L_CONTENTRATINGS_TEXT = "Content Ratings"
  12. Const L_RATINGSDETERMINE_TEXT = "Ratings help identify to your users what type of content your site provides."
  13. Const L_MIMEMAP_TEXT = "MIME Map"
  14. Const L_CONFIGURE_TEXT = "Configure the MIME types the Web Service sends to browsers in the HTTP header."
  15. Const L_FT_TEXT = "File Types..."
  16. Const L_ER_TEXT = "Edit Ratings..."
  17. Dim addbuttonstr
  18. %>
  19.  
  20. <HTML>
  21. <HEAD>
  22.     <SCRIPT LANGUAGE="JavaScript">
  23.     function popBox(title, width, height, filename){
  24.         thefile=(filename + ".asp");
  25.         thefile="iipop.asp?pg="+thefile;
  26.         <% if Session("Browser") <> "IE3" then %>
  27.             width=width +25;
  28.             height=height + 50;                
  29.         <% end if %>
  30.  
  31.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  32.         if(popbox !=null){
  33.             if (popbox.opener==null){
  34.                 popbox.opener=self;
  35.             }
  36.         }
  37.     }
  38.     </SCRIPT>
  39. </HEAD>
  40.  
  41. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=0 TEXT="#000000" STYLE="font-face: Helv,Arial; font-size:10pt;">
  42. <FONT SIZE=1 FACE="HELV,ARIAL">
  43.     <B>
  44.         <%= L_CUSTOM_TEXT %>
  45.     </B>
  46.  
  47. <BLOCKQUOTE>
  48. <FORM NAME="userform">
  49.  
  50. <TABLE BORDER=0>
  51.     <TR>
  52.         <TD  VALIGN="top">
  53.             <SELECT NAME="selHttpCustomHeader" SIZE=5 onChange="parent.head.listFunc.ndx=this.options.selectedIndex;">
  54.             <SCRIPT LANGUAGE="JavaScript">
  55.             var nodeList=parent.head.cachedList;
  56.             var numEnabled=0;
  57.             for (i=0;i<nodeList.length;i++){
  58.                 if (!nodeList[i].deleted){
  59.                     if (parent.head.listFunc.ndx==i){
  60.                         document.write("<OPTION SELECTED VALUE='"+i+"'>"+nodeList[i].header);
  61.                     }
  62.                     else{
  63.                         document.write("<OPTION VALUE='"+i+"'>"+nodeList[i].header);
  64.                     }
  65.                 }
  66.             }
  67.  
  68.             document.write("<OPTION>                                ");
  69.             </SCRIPT>
  70.             </SELECT>
  71.         </TD>
  72.         <TD  VALIGN="top">
  73.  
  74. <% 
  75. if Session("Browser") = "IE3" then
  76.     addbuttonstr=L_ADD_TEXT
  77. else
  78.     addbuttonstr="     " & L_ADD_TEXT & "    "
  79. end if
  80.  
  81.  %>
  82.             <INPUT TYPE="button" Value="<%= addbuttonstr %>" onClick="parent.head.listFunc.addItem();">
  83.             <P>
  84.             <INPUT TYPE="button" Value="<%= L_REMOVE_TEXT %>" onClick="parent.head.listFunc.delItem();">
  85.         </TD>
  86.     </TR>
  87. </TABLE>
  88. </FORM>
  89.  
  90. </BLOCKQUOTE>
  91.  
  92.  
  93. <HR>
  94. <FONT SIZE=1 FACE="HELV,ARIAL">
  95. <B><%=L_CONTENTRATINGS_TEXT%></B>
  96. </FONT>
  97.  
  98.  
  99. <!-- we never submit this form... -->
  100.  
  101.  
  102. <FORM>
  103. <TABLE>
  104. <TR>
  105.     <TD><IMG SRC="images/rte.gif" WIDTH=32 HEIGHT=24 BORDER=0 ALT="" HSPACE=5></TD>
  106.     <TD><FONT SIZE=1 FACE="HELV,ARIAL"><%=L_RATINGSDETERMINE_TEXT%></TD>
  107.     <TD>
  108.     <% if Session("FONTSIZE") = "LARGE" then %>
  109.     <INPUT TYPE="button" NAME="" VALUE="<%=L_ER_TEXT%>" onClick='popBox("Ratings", 550, 575, "iirte");'>    
  110.     <% else %>
  111.     <INPUT TYPE="button" NAME="" VALUE="<%=L_ER_TEXT%>" onClick='popBox("Ratings", 450, 525, "iirte");'>
  112.     <% end if %>
  113.     </TD>
  114. </TR>
  115. </TABLE>
  116.  
  117. <HR>
  118. <FONT SIZE=1 FACE="HELV,ARIAL">
  119. <B><%=L_MIMEMAP_TEXT%></B>
  120. </FONT>
  121.  
  122. <TABLE>
  123. <TR>
  124.     <TD><IMG SRC="images/mime.gif" WIDTH=32 HEIGHT=32 BORDER=0></TD>
  125.     <TD><FONT SIZE=1 FACE="HELV,ARIAL"><%=L_CONFIGURE_TEXT%></TD>
  126.     <TD><INPUT TYPE="button" NAME="" VALUE="<%=L_FT_TEXT%>" onClick='popBox("MIMEmap", 425, 375, "iimime");'></TD>
  127. </TR>
  128. </TABLE>
  129.  
  130.  
  131. </FORM>
  132.  
  133.  
  134.  
  135. </BODY>
  136. </HTML>
  137.  
  138.