394 lines
9.9 KiB
Plaintext
394 lines
9.9 KiB
Plaintext
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="directives.inc" -->
|
|
|
|
<% if Session("FONTSIZE") = "" then %>
|
|
<!--#include file="iito.inc"-->
|
|
<% else %>
|
|
<!--#include file="iivs.str"-->
|
|
<!--#include file="iilog.str"-->
|
|
<!--#include file="iimlti.str"-->
|
|
|
|
<%
|
|
Const DEFAULTPORT = 80
|
|
Const DEFAULTMAXCONNECTIONS_NUM = 1000
|
|
|
|
On Error Resume Next
|
|
|
|
Dim blanks,path,currentobj, ipport, ipaddress, i, oWebService
|
|
|
|
path=Session("spath")
|
|
Session("path")=path
|
|
Session("SpecObj")=path
|
|
Session("SpecProps")="ServerBindings"
|
|
|
|
Set currentobj=GetObject(path)
|
|
|
|
blanks=""
|
|
for i=0 to 23
|
|
blanks=blanks & " "
|
|
Next
|
|
|
|
|
|
%>
|
|
|
|
<!--#include file="iiset.inc"-->
|
|
<!--#include file="iisetfnt.inc"-->
|
|
<!--#include file="iibind.inc"-->
|
|
|
|
<%
|
|
|
|
function allBindings()
|
|
dim sBinding,sBindingList
|
|
|
|
sBindingList = ""
|
|
for each sBinding in currentobj.ServerBindings
|
|
sBindingList = sBindingList & sBinding & ","
|
|
next
|
|
' Trim off the trailing ,
|
|
if sBindingList <> "" then
|
|
sBindingList = Left( sBindingList, Len(sBindingList) - 1 )
|
|
end if
|
|
allBindings = sBindingList
|
|
end function
|
|
|
|
function writeLogTypes(fieldname,value, id, adminonly)
|
|
On Error Resume Next
|
|
|
|
if id = currentobj.Get("LogPluginClsid") then
|
|
writeLogTypes="<OPTION SELECTED VALUE='" & id & "'>" & value
|
|
else
|
|
writeLogTypes="<OPTION VALUE='" & id & "'>" & value
|
|
end if
|
|
end function
|
|
|
|
|
|
%>
|
|
|
|
|
|
|
|
<html>
|
|
|
|
<head>
|
|
<title></title>
|
|
<script language="JavaScript">
|
|
|
|
var Global=top.title.Global;
|
|
|
|
Global.helpFileName="iipy";
|
|
Global.siteProperties = true;
|
|
|
|
<!--#include file="iijsfuncs.inc"-->
|
|
|
|
function warnWrkingSite()
|
|
{
|
|
if (top.title.nodeList[Global.selId].isWorkingServer)
|
|
{
|
|
alert("<%= L_WORKINGSERVER_TEXT %>");
|
|
}
|
|
}
|
|
|
|
function SetBinding(){
|
|
|
|
if (top.title.nodeList[top.title.Global.selId].isWorkingServer){
|
|
if (!confirm("<%= L_CHGBINDING_TEXT %>")){
|
|
document.userform.hdnIPA.value=document.userform.hdnhdnIPA.value
|
|
document.userform.hdnPort.value=document.userform.hdnhdnPort.value
|
|
return;
|
|
}
|
|
}
|
|
if (document.userform.hdnIPA.value == "<%= L_ALLUNASSIGNED_TEXT%>"){
|
|
hdnIPA = "";
|
|
}
|
|
else{
|
|
hdnIPA = document.userform.hdnIPA.value;
|
|
}
|
|
|
|
document.userform.ServerBindings.value=hdnIPA + ":" + document.userform.hdnPort.value + ":" + document.userform.hdnHost.value;
|
|
document.userform.hdnhdnIPA.value=hdnIPA;
|
|
document.userform.hdnhdnPort.value=document.userform.hdnPort.value;
|
|
|
|
if (hdnIPA == "")
|
|
{
|
|
document.userform.hdnIPA.value = "<%= L_ALLUNASSIGNED_TEXT%>";
|
|
}
|
|
}
|
|
|
|
|
|
|
|
function SetMaxConn(){
|
|
curval=parseInt(document.userform.hdnMaxConnections.value);
|
|
if (document.userform.rdoMaxConnections[0].checked){
|
|
document.userform.MaxConnections.value=2000000000;
|
|
}
|
|
else{
|
|
document.userform.MaxConnections.value=document.userform.hdnMaxConnections.value;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
function setLogType(logCntrl,hdncntrl){
|
|
if (logCntrl.checked){
|
|
hdncntrl.value = 1;
|
|
}
|
|
else{
|
|
hdncntrl.value = 0;
|
|
}
|
|
}
|
|
|
|
function setLogUIType(logCntrl){
|
|
|
|
var logGuid = logCntrl.options[logCntrl.selectedIndex].value;
|
|
|
|
var logType = "";
|
|
|
|
if (logGuid == "{FF160663-DE82-11CF-BC0A-00AA006111E0}")
|
|
{
|
|
logType = "EXT";
|
|
}
|
|
if (logGuid == "{FF16065B-DE82-11CF-BC0A-00AA006111E0}")
|
|
{
|
|
logType = "ODBC";
|
|
}
|
|
|
|
top.connect.location.href = "iisess.asp?setLogUI=" + logType +"&LogName=" +escape( logCntrl.options[logCntrl.selectedIndex].text);
|
|
}
|
|
|
|
</script>
|
|
</head>
|
|
|
|
<body bgcolor="<%= Session("BGCOLOR") %>" topmargin="5" text="#000000">
|
|
<TABLE WIDTH = 500 BORDER = 0>
|
|
<TR>
|
|
<TD>
|
|
<%= sFont("","","",True) %>
|
|
<B>
|
|
<%= L_SITE_TEXT %>
|
|
</B>
|
|
<P>
|
|
<form name="userform">
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<%= L_VIRTUALSERVERID_TEXT %>
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_VIRTUALSERVERID_HR_W %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
|
|
<P>
|
|
<table border="0" cellpadding="0">
|
|
<tr>
|
|
<td valign="middle">
|
|
<%= sFont("","","",True) %>
|
|
<%= L_DESCRIPTION_TEXT %>
|
|
</font>
|
|
</td>
|
|
<td valign="middle" colspan="2">
|
|
<%= sFont("","","",True) %>
|
|
<%= text("ServerComment", L_DESCRIPTION_NUM ,"","","",false,false) %>
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="2" height="4"> </td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="bottom"><%= sFont("","","",True) %><%= L_IPADDRESS_TEXT %></font></td>
|
|
<td valign="bottom">
|
|
<%= sFont("","","",True) %>
|
|
<%= writeBinding("IPAddress", L_IPADDRESS_NUM,"","","warnWrkingSite();SetBinding();",true,true) %>
|
|
<input type="hidden" name="ServerBindings" value="<%= allBindings() %>">
|
|
</font>
|
|
</td>
|
|
<td align="right" valign="bottom"><%= sFont("","","",True) %>
|
|
<% if Session("vtype") <> "svc" then %>
|
|
<% if Session("isAdmin") then %>
|
|
<input type="button" name="hdnAdvanced" value="<%= L_ADVANCED_TEXT %>" onclick="popBox('Advanced', <%= L_IIMLTI_W %>, <%= L_IIMLTI_H %>, 'iimlti');">
|
|
<% end if %>
|
|
<% end if %>
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td valign="bottom"><%= sFont("","","",True) %><%= L_TCPPORT_TEXT %></font></td>
|
|
<td valign="bottom">
|
|
<%= sFont("","","",True) %>
|
|
<%= writeBinding("IPPort", L_TCPPORT_NUM,"","","warnWrkingSite();isNum(this,1,65535); SetBinding();",true,true) %>
|
|
<%= writeBinding("Host",5,"","","warnWrkingSite();SetBinding();",true,true) %>
|
|
</font>
|
|
</td>
|
|
|
|
</tr>
|
|
|
|
<% if Session("isAdmin") then %>
|
|
<% if multibind then %>
|
|
<tr>
|
|
<td valign="bottom" colspan="4">
|
|
<%= sFont("","","",True) %>
|
|
(<%= L_MULTIBINDING_TEXT %>)
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
<% end if %>
|
|
<% end if %>
|
|
|
|
</table>
|
|
|
|
<P>
|
|
<%= sFont("","","",True) %>
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<%= L_CONNPARAMS_TEXT %>
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_CONNPARAMS_HR_W %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<P>
|
|
<table border="0" cellpadding="0">
|
|
<tr>
|
|
<td colspan="2">
|
|
<%= sFont("","","",True) %>
|
|
<%= printradio("MaxConnections", (currentobj.MaxConnections >=2000000000), "SetMaxConn();setCntrlState(!this.checked,hdnMaxConnections);",true) %>
|
|
<%= L_UNLIMITED_TEXT %>
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
<td valign="middle">
|
|
<%= sFont("","","",True) %>
|
|
<%= printradio("MaxConnections", (currentobj.MaxConnections < 2000000000), "SetMaxConn();setCntrlState(this.checked,hdnMaxConnections);",true) %>
|
|
<%= L_LIMITTO_TEXT %>
|
|
<input type="hidden" name="MaxConnections" value="<%= currentobj.MaxConnections %>">
|
|
|
|
</font>
|
|
</td>
|
|
<td valign="bottom">
|
|
<%= sFont("","","",True) %>
|
|
<% if (currentobj.MaxConnections < 2000000000) then %>
|
|
<%= inputbox(0,"TEXT","hdnMaxConnections",currentobj.MaxConnections, L_MAXCONNECTIONS_NUM,"","", "isNum(this,1,2000000001);SetMaxConn();",false,True,False) %>
|
|
<% else %>
|
|
<%= inputbox(0,"TEXT","hdnMaxConnections",DEFAULTMAXCONNECTIONS_NUM, L_MAXCONNECTIONS_NUM,"","", "isNum(this,1,2000000001);SetMaxConn();",false,True,False) %>
|
|
<% end if %>
|
|
</td>
|
|
<td valign="middle">
|
|
<%= sFont("","","",True) %>
|
|
<%= L_CONNECTIONS_TEXT %>
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td> </td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td valign="middle"><%= sFont("","","",True) %><%= L_CONNTIMEOUT_TEXT %> </font></td>
|
|
<td valign="bottom">
|
|
<%= text("ConnectionTimeout", L_CONNTIMEOUT_NUM,"","", "isNum(this,1,2147483646);",True,True) %>
|
|
</td>
|
|
<td valign="middle">
|
|
<%= sFont("","","",True) %>
|
|
<%= L_SECONDS_TEXT %>
|
|
</font>
|
|
</td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td colspan="2" height="4"></td>
|
|
</tr>
|
|
<tr>
|
|
<td COLSPAN = 2>
|
|
<%= sFont("","","",True) %>
|
|
<%= checkbox("AllowKeepAlive","",True) %> <%= L_KEEPALIVES_TEXT %>
|
|
</FONT>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="2" height="4"></td>
|
|
</tr>
|
|
|
|
</table>
|
|
|
|
</blockquote>
|
|
</font>
|
|
|
|
|
|
<%= sFont("","","",True) %>
|
|
|
|
<%
|
|
On Error Resume Next
|
|
Dim LoggingModules,noLogging, Module, InfoNode, AvailMods
|
|
|
|
Set LoggingModules = GetObject("IIS://localhost/logging")
|
|
Set InfoNode = GetObject("IIS://localhost/W3SVC/Info")
|
|
AvailMods = InfoNode.LogModuleList
|
|
if err <> 0 then
|
|
noLogging = True
|
|
end if
|
|
|
|
%>
|
|
<IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<% if noLogging then %>
|
|
<img align="top" src="images/checkoff.gif" width="13" height="13">
|
|
<% else %>
|
|
<% if currentobj.LogType = 1 then %>
|
|
<INPUT TYPE="checkbox" NAME="hdnLogType" checked OnClick = "setLogType(this,document.userform.LogType);setCntrlState(this.checked,document.userform.hdnBtnLogProps);setCntrlState(this.checked,document.userform.LogPlugInClsid);top.title.Global.updated=true;">
|
|
<% else %>
|
|
<INPUT TYPE="checkbox" NAME="hdnLogType" OnClick = "setLogType(this,document.userform.LogType);setCntrlState(this.checked,document.userform.hdnBtnLogProps);setCntrlState(this.checked,document.userform.LogPlugInClsid);top.title.Global.updated=true;">
|
|
<% end if %>
|
|
<INPUT TYPE="hidden" NAME="LogType" VALUE="<%= currentobj.LogType %>">
|
|
<% end if %>
|
|
<%= L_LOGGING_TEXT %>
|
|
<IMG SRC="images/hr.gif" WIDTH=<%= L_LOGGING_HR_W %> HEIGHT=2 BORDER=0 ALIGN="middle">
|
|
<P>
|
|
<table border="0" cellpadding="0">
|
|
<tr>
|
|
<td colspan="1">
|
|
<%= sFont("","","",True) %>
|
|
<%= L_LOGFORMAT_TEXT %>
|
|
<%= writeSelect("LogPlugInClsid", L_LOGFORMAT_NUM,"setLogUIType(this);", false) %>
|
|
<%
|
|
|
|
if noLogging then
|
|
Response.write "<OPTION>" & L_NONEINSTALLED_TEXT & "</OPTION>"
|
|
else
|
|
For Each Module in LoggingModules
|
|
If InStr(AvailMods, Module.Name) Then
|
|
Response.write writeLogTypes("LogPluginClsid", Module.Name, Module.LogModuleId,false)
|
|
End If
|
|
Next
|
|
end if
|
|
%>
|
|
</select>
|
|
</font>
|
|
</td>
|
|
<td><%= sFont("","","",True) %>
|
|
<% if not noLogging then %>
|
|
<input type="button" name="hdnBtnLogProps" value="<%= L_EDIT_TEXT %>" onclick="popBox('LogDetail',<%= L_IILOG_W %>,<%= L_IILOG_H %>,'iilog');">
|
|
<%end if %>
|
|
</FONT>
|
|
</td>
|
|
</tr>
|
|
|
|
</table>
|
|
|
|
|
|
</form>
|
|
|
|
</font>
|
|
</TD>
|
|
</TR>
|
|
</TABLE>
|
|
<script language="JavaScript">
|
|
<% if Session("IsAdmin") then %>
|
|
setCntrlState(document.userform.rdoMaxConnections[1].checked,document.userform.hdnMaxConnections);
|
|
<% end if %>
|
|
<% if not noLogging then %>
|
|
|
|
setCntrlState(document.userform.hdnLogType.checked,document.userform.LogPlugInClsid);
|
|
setCntrlState(document.userform.hdnLogType.checked,document.userform.hdnBtnLogProps)
|
|
setLogUIType(document.userform.LogPlugInClsid)
|
|
</script>
|
|
<% end if %>
|
|
</body>
|
|
</html>
|
|
|
|
|
|
<% end if %>
|