<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% ' strings for localization Const L_PERFORMANCE_TEXT = "Performance" Const L_ACCESSDENIED_TEXT="Access Denied" Const L_ENTERINT_ERRORMESSAGE="Please enter an integer." Const L_UNSAVEDCHANGES_ERRORMESSAGE="You have unsaved changes. Save now?" Const L_CONNECTIONCONFIG_TEXT="Connection Configuration" Const L_KEEPALIVES_TEXT="HTTP Keep Alives enabled" Const L_TUNING_TEXT="Tuning" Const L_TUNESERVER_TEXT="Tune your server performance based on the number of hits expected per day." Const L_FEWER_TEXT="Fewer than" Const L_MORE_TEXT="More than" Const L_10000_TEXT="10,000" Const L_100000_TEXT="100,000" Const L_ENABLEBANDWIDTH_TEXT="Enable Bandwidth Throttling" Const L_LIMITNET_TEXT="Limit network bandwidth available to this Web site. This number cannot be more than the global setting on machine properties." Const L_KBS_TEXT="KB/S" Const L_MAXNETUSAGE_TEXT="Maximum network use:" Const L_SAVING_TEXT="Saving..." On Error Resume Next Dim path, currentobj, mbw, maxtext path=Session("spath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) %> <% function writeSlider(prop, stops, width, selnum) dim slidestr, i slidestr="" for i=0 to stops-2 slidestr=slidestr & drawStop(i,prop, selnum) slidestr=slidestr & "" Next slidestr=slidestr & drawStop(i, prop, selnum) slidestr=slidestr & "" writeSlider=slidestr end function function drawStop(curr,prop, selnum) dim thisname, slidestr,formname thisname=quote & prop & curr & quote if Session("IsIE") then formname = "parent.document.userform." else formname = "document.userform." end if slidestr="" if curr=selnum then drawStop=slidestr & "" else drawStop=slidestr & "" end if end function %> <%= L_PERFORMANCE_TEXT %>

<%= L_TUNING_TEXT %>

<%= L_TUNESERVER_TEXT %>

<% if Session("IsIE") then %> <% else %> <%= writeSlider("ServerSize", 3, 180, currentobj.ServerSize) %> <% end if %>
<%= L_FEWER_TEXT %>
<%= L_10000_TEXT %> 		<%= L_FEWER_TEXT %>
<%= L_100000_TEXT %> 		<%= L_MORE_TEXT %>
<%= L_100000_TEXT %>

<% if Session("vtype") <> "svc" then %> <%= checkboxVal(0, currentobj.MaxBandwidth > 0 , "hdnchkMaxBandwith", "SetMaxBW(this.checked);", True) %>  <%= L_ENABLEBANDWIDTH_TEXT %>
<% if currentobj.MaxBandwidth < 0 then mbw = "" else mbw = currentobj.MaxBandwidth/1024 end if %> <%= L_LIMITNET_TEXT %>

<%= L_MAXNETUSAGE_TEXT %> <%= inputbox(0,"text","hdnMaxBandwidth",mbw,10,"","","isNum(this,1,32767);calcBW(this);",True,True, not Session("IsAdmin") ) %> <%= L_KBS_TEXT %>

<% else %>  <%= L_ENABLEBANDWIDTH_TEXT %>
<%= L_LIMITNET_TEXT %>
<%= L_MAXNETUSAGE_TEXT %> <% maxtext = disableintstart & "     " & disabletextend %> <%= maxtext %> <%= L_KBS_TEXT %>  
<% end if %>
<%= L_CONNECTIONCONFIG_TEXT %>
<%= checkbox("AllowKeepAlive","",True) %> <%= L_KEEPALIVES_TEXT %>
<% if Session("vtype") <> "svc" then %> <% end if %>
<% end if %>