<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
' strings for localization
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_VIRTUALSERVERID_TEXT="FTP Site Identification"
Const L_HOSTHEADER_TEXT="Host header name"
Const L_DESCRIPTION_TEXT="Description:"
Const L_IPADDRESS_TEXT="IP address:"
Const L_TCPPORT_TEXT="TCP port:"
Const L_SSLPORT_TEXT="SSL port:"
Const L_UNLIMITED_TEXT="Unlimited"
Const L_LIMITTO_TEXT="Limit to:"
Const L_CONNPARAMS_TEXT="Connection"
Const L_MAXCON_TEXT="Maximum connections:"
Const L_CONNTIMEOUT_TEXT="Connection timeout:"
Const L_SECONDS_TEXT="seconds"
Const L_ADVANCED_TEXT="Advanced..."
Const L_ALLUNASSIGNED_TEXT="All Unassigned"
Const L_CONNECTIONS_TEXT="connections"
Const L_NONE_TEXT="None"
Const L_SAVING_TEXT="Saving..."
Const DEFAULTPORT = 21
Const L_LOGGING_TEXT="Enable Logging"
Const L_LOGFORMAT_TEXT="Active log format:"
Const L_NONEINSTALLED_TEXT = " [No logging modules are currently installed] "
Const L_EDIT_TEXT = "Properties..."
On Error Resume Next
Dim path, currentobj
path=Session("spath")
Session("path")=path
Session("SpecObj")=""
Session("SpecProps")=""
Set currentobj=GetObject(path)
%>
<%
function writeBinding(fieldname,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly)
On Error Resume Next
Dim aBinding, Binding,host, ipport, ipaddress
aBinding=currentobj.ServerBindings
if IsArray(aBinding) then
if aBinding(0) = "" then
aBinding(0) = ":" & DEFAULTPORT & ":"
end if
Binding=getBinding(aBinding(0))
else
if aBinding = "" then
aBinding = ":" & DEFAULTPORT & ":"
end if
Binding=getBinding(aBinding)
end if
Select Case fieldname
Case "Host"
host=Binding(2)
writeBinding=inputbox(err,"TEXT","hdnHost",host,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,false)
Case "IPPort"
ipport=Binding(1)
writeBinding=inputbox(err,"TEXT","hdnPort",ipport,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,false)
Case "IPAddress"
ipaddress=Binding(0)
writeBinding=inputbox(err,"TEXT","hdnIPA",ipaddress,fieldsize,onchangeproc,onfocusproc, onblurproc,hidden,adminonly,false)
End Select
end function
function writeLogTypes(fieldname,value, id, adminonly)
On Error Resume Next
if id = currentobj.LogPlugInClsid then
writeLogTypes="