home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiappmn.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  5.7 KB  |  188 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <%
  6. Const L_ASP_TEXT = "Active Server Pages"
  7. Const L_APPCONFIG_TEXT = "Application Configuration"
  8. Const L_ENABLESESSION_TEXT = "Enable session state"
  9. Const L_SESSIONTO_TEXT = "Session timeout:"
  10. Const L_MINUTES_TEXT = "minutes"
  11. Const L_ENABLEBUFF_TEXT = "Enable buffering"
  12. Const L_ENABLEPATHS_TEXT = "Enable parent paths"
  13. Const L_WRITEFAILED_TEXT = "Write unsuccessful client requests to event log"
  14. Const L_EXCEPTIONCATCH_TEXT = "Enable debug exception catching"
  15. Const L_NUMENGINESCACHED_TEXT = "Number of script engines cached:"
  16. Const L_DEFAULTLANG_TEXT = "Default ASP language:"
  17. Const L_SCRIPTTO_TEXT = "Script timeout:"
  18. Const L_SECONDS_TEXT = "seconds"
  19. Const L_SCRIPTCACHE_TEXT = "Script File Cache"
  20. Const L_NOCACHE_TEXT = "Do not cache ASP files"
  21. Const L_CACHEASP_TEXT = "Cache all requested ASP files"
  22. Const L_ASPCACHESIZE_TEXT = "Max ASP files cached:"
  23. Const L_MB_TEXT = "MB"
  24.  
  25.  
  26. Const L_DBG_TEXT = "ASP Debugging"
  27. Const L_DEBUGGING_TEXT = "Debugging Flags"
  28. Const L_ENABLESSDEBUG_TEXT="Enable ASP server-side debugging"
  29. Const L_ENABLECLIENTDEBUG_TEXT="Enable ASP client-side debugging"
  30. Const L_ENABLEJAVADEBUG_TEXT="Enable Java server-side debugging"
  31. Const L_SCRIPTERRMSG_TEXT = "Script Error Messages"
  32. Const L_SENDDETAILED_TEXT = "Send detailed ASP error messages to client."
  33. Const L_SENDTEXT_TEXT ="Send text error message to client:"
  34. Const L_PROCESSOPTIONS_TEXT = "Process Options"
  35.  
  36.  
  37. On Error Resume Next 
  38.  
  39. Dim path, currentobj
  40.  
  41. path=Session("dpath")
  42. Session("path")=path
  43. Session("SpecObj")=""
  44. Session("SpecProps")=""
  45. Set currentobj=GetObject(path)
  46. %>
  47.  
  48. <!--#include file="iiset.inc"-->
  49.  
  50. <HTML>
  51. <HEAD>
  52.     <TITLE></TITLE>
  53.     
  54. <SCRIPT LANGUAGE="JavaScript">
  55.     function buildListForm(){
  56.         qstr="numrows=0";
  57.         top.hlist.location.href="iihdn.asp?"+qstr;
  58.     }
  59.  
  60.     function SetListVals(){
  61.     }
  62.     
  63.     function listFuncs(){
  64.         this.writeList=buildListForm;
  65.         this.SetListVals=SetListVals;
  66.         this.mainframe = top.opener.top;        
  67.     }    
  68.     
  69.     function isNum(txtcntrl,min,max) {
  70.         str=txtcntrl.value;
  71.         for (var i=0; i < str.length; i++) {
  72.               num = parseInt(str);
  73.             if (isNaN(num)){
  74.                    alert("Please enter an integer.");
  75.                 return false;
  76.               }
  77.             if (num < min) {
  78.                 alert("Please enter an integer greater than " + (min-1) + ".");
  79.                 return false;
  80.             }
  81.             if (num > max) {
  82.                 alert("Please enter an integer less than " + (max + 1) + ".");
  83.                 return false;
  84.             }            
  85.          }
  86.         return true;
  87.     }
  88. listFunc=new listFuncs();    
  89. </SCRIPT>
  90.  
  91. </HEAD>
  92.  
  93. <BODY TOPMARGIN=10 LEFTMARGIN=10 BGCOLOR="#CCCCCC" LINK="#000000" VLINK="#000000">
  94.  
  95. <FONT SIZE=1 FACE="Helv,ARIAL">
  96. <FORM NAME="userform">
  97.  
  98.  
  99. <A NAME="ASP"></A>
  100. <TABLE WIDTH  =100% HEIGHT = 400>
  101. <TR>
  102. <TD VALIGN="top" WIDTH = 50%><FONT SIZE=1 FACE="Helv,ARIAL">
  103.     <B><%= L_APPCONFIG_TEXT %></B><P>
  104.  
  105.         <%= checkbox("AspAllowSessionState", "", false) %> <%= L_ENABLESESSION_TEXT %><BR>    
  106.         
  107.         <%= L_SESSIONTO_TEXT %> <%= text("AspSessionTimeout",10,"","", "",False,False) %> <%= L_MINUTES_TEXT %><BR>
  108.         
  109.         <%= checkbox("AspBufferingOn", "", false) %> <%= L_ENABLEBUFF_TEXT %><BR>
  110.         <%= checkbox("AspEnableParentPaths", "", false) %> <%= L_ENABLEPATHS_TEXT %><BR>
  111.         <%= L_DEFAULTLANG_TEXT %> <%= text("AspScriptLanguage",30,"","", "",False,False) %><P>
  112.         
  113.         <%= L_SCRIPTTO_TEXT %> <%= text("AspScriptTimeout",10,"","", "isNum(this,1,4294967295);",False,False) %> <%= L_SECONDS_TEXT %>        
  114.         </TD>
  115. </TR>
  116. </TABLE>
  117.  
  118.  
  119.  
  120. <!-- App Debugging -->
  121.  
  122. <A NAME="DBG">
  123. <% if not Session("IsIE") then %>
  124. <P> 
  125. <% end if %>
  126. <TABLE WIDTH  =100% HEIGHT = 400>
  127. <TR>
  128. <TD VALIGN="top" WIDTH = 50%><FONT SIZE=1 FACE="Helv,ARIAL">
  129. <B><%= L_DEBUGGING_TEXT %></B><P>        
  130. <%= checkbox("AppAllowDebugging","",false) %><%= L_ENABLESSDEBUG_TEXT %><P>
  131. <%= checkbox("AppAllowClientDebug","",false) %><%= L_ENABLECLIENTDEBUG_TEXT %><P>
  132.     <HR>
  133.     <B><%= L_SCRIPTERRMSG_TEXT %></B><P>
  134.             
  135.     <%= printradio("rdoAspScriptErrorSentToBrowser",  currentobj.AspScriptErrorSentToBrowser, "document.userform.AspScriptErrorSentToBrowser.value='True'",False) %>
  136.     <%= L_SENDDETAILED_TEXT %><BR>
  137.     <%= printradio("rdoAspScriptErrorSentToBrowser", not currentobj.AspScriptErrorSentToBrowser, "document.userform.AspScriptErrorSentToBrowser.value='False'",False) %>
  138.     <%= L_SENDTEXT_TEXT %><P>
  139.     <INPUT TYPE="hidden" NAME="AspScriptErrorSentToBrowser" VALUE="<%= currentobj.AspScriptErrorSentToBrowser %>">
  140.     <TEXTAREA NAME="txtAspScriptErrorMessage" ROWS=4 COLS=35><%= currentobj.AspScriptErrorMessage %>
  141.     </TEXTAREA>
  142.  
  143. </FONT>
  144. </TD>
  145. </TR>
  146. </TABLE>
  147. </A>
  148.  
  149. <% if Session("setProcOpts") then %>    
  150.     
  151. <!-- Process Options -->    
  152. <A NAME="OTHER">
  153. <% if not Session("IsIE") then %>
  154. <P> 
  155. <% end if %>
  156. <TABLE WIDTH  =100% HEIGHT = 400>
  157. <TR>
  158. <TD VALIGN="top" WIDTH = 50%><FONT SIZE=1 FACE="Helv,ARIAL">
  159. <B><%= L_PROCESSOPTIONS_TEXT %></B><P>
  160.  
  161. <%= checkbox("AspLogErrorRequests", false, "") %> <%= L_WRITEFAILED_TEXT %><BR>
  162. <%= checkbox("AspExceptionCatchEnable", false, "") %> <%= L_EXCEPTIONCATCH_TEXT %><P>
  163. <%= L_NUMENGINESCACHED_TEXT %><%= text("AspScriptEngineCacheMax",10,"","", "",False,False) %><P>
  164.  
  165. <HR>
  166. <B><%= L_SCRIPTCACHE_TEXT %></B><P>        
  167. <%= printradio("rdoAspScriptFileCacheSize", currentobj.AspScriptFileCacheSize = 0 , "",False) %>
  168. <%= L_NOCACHE_TEXT %><BR>
  169. <%= printradio("rdoAspScriptFileCacheSize", currentobj.AspScriptFileCacheSize , "",False) %>
  170. <%= L_CACHEASP_TEXT %><BR>
  171. <%= printradio("rdoAspScriptFileCacheSize", (currentobj.AspScriptFileCacheSize > 0) , "",False) %>
  172. <%= L_ASPCACHESIZE_TEXT %>
  173. <%= text("AspScriptFileCacheSize",5,"","", "",False,False) %><BR>
  174.  
  175. </FONT>
  176. </TD>
  177. </TR>
  178. </TABLE>
  179. </A>
  180.  
  181. <% end if %>
  182.  
  183. </FORM>
  184. </FONT>
  185.  
  186. </BODY>
  187. </HTML>
  188.