<% ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' '------------------------------------------------------------------------- 'General Site Property page '------------------------------------------------------------------------- '------------------------------------------------------------------------- ' Start of declaring form variables '------------------------------------------------------------------------- Dim F_strSiteID 'holds siteidentifier value Dim F_strDir 'holds site directory path Dim F_strWebRootDir 'holds website root path Dim F_strAdminName 'holds admin name value Dim F_strAdminPswd 'holds admin password Dim F_strConfirmPswd 'holds Confirm password value Dim F_strCreatePathChecked 'holds value to create the direcrory path Dim F_strAccountLocation 'holds value to account location %> <% '------------------------------------------------------------------------- 'Function name :Generalviewtab 'Description :Serves in getting the general properties page 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None ' in :L_* '-------------------------------------------------------------------------- Function Generalviewtab() if GetWebSiteRootVal(F_strWebRootDir) <> CONST_SUCCESS then SA_TraceOut "sitenew_prop", "Unable to get the web site root directory" end if %> <%If F_strAccountLocation = "1" Then %> <%Else%> <%End If%> <%If F_strAccountLocation = "2" Then %> <%Else%> <%End If%> <%If F_strAccountLocation <> "2" Then%> <%Else%> <%End If%>

<% CheckForSecureSite() %>
<%=L_GEN_SITE_ID_TEXT%>
<%=L_GEN_SITE_DIR_TEXT%>		<% if server.HTMLEncode(F_strCreatePathChecked) = "true" then %> <% else %> <% end if %> <%=L_GEN_SITE_CREATEDIR_TEXT%>
<%=L_CREATE_LOCAL_USER%>			<%=L_CREATE_LOCAL_USER%>
<%=L_CREATE_EXIST_USER%>			<%=L_CREATE_EXIST_USER%>
<%=L_GEN_SITE_ADMIN_TEXT%>
<%=L_GEN_SITE_ADMIN_PSWD_TEXT%>
<%=L_GEN_SITE_CONFIRM_PSWD_TEXT%>
<%=L_GEN_SITE_ADMIN_TEXT%>
<%=L_GEN_SITE_ADMIN_PSWD_TEXT%>
<%=L_GEN_SITE_CONFIRM_PSWD_TEXT%>

<% End Function '------------------------------------------------------------------------- 'Function name :Generalhiddentab 'Description :Serves in setting the hidden fields for general properties page 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None ' in :L_* '-------------------------------------------------------------------------- Function Generalhiddentab() %> <% End Function 'set form variables to be input for post back function Function SetGenFormVariables() F_strSiteID = Request.Form("txtSiteID") F_strDir = Request.Form("txtDir") F_strAdminName = Request.Form("txtSiteAdmin") F_strAdminPswd = Request.Form("txtAdminPwd") F_strConfirmPswd = Request.Form("txtConfirmPswd") F_strCreatePathChecked = Request.Form("hdnchkCreatePath") F_strAccountLocation = Request.Form("hdnAccountLocation") 'Call SA_TRACEOUT("SetGenFormVariables","F_strAccountLocation="&F_strAccountLocation) End Function '---------------------------------------------------------- 'Site identites Property page '---------------------------------------------------------- '------------------------------------------------------------------------- ' Start of declaring form variables '------------------------------------------------------------------------- Dim F_strIPAddr 'holds IPAddress value Dim F_strPort 'holds port value Dim F_strHeader 'holds Site header value '------------------------------------------------------------------------- ' End of declaring form variables '------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------- 'Function name :SiteIdentitiesViewTab 'Description :Serves in getting the Site Identities properties page 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None ' in :L_* '-------------------------------------------------------------------------- Function SiteIdentitiesViewTab() Dim objService 'holds WMI Connection object Dim ObjIPCollection 'holds IPCollection object Dim instIPAddr 'holds instance of IPAddress Dim IPCount 'holds instance of IP count Set objService =getWMIConnection(CONST_WMI_WIN32_NAMESPACE) Set objIPCollection = objService.execquery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=true") %>

<%=L_SITE_IPADDR_TEXT%>	<%=L_IP_UNASSIGNED_TEXT%> <%if server.HTMLEncode(F_strIPAddr)<>"" then %> <%=server.HTMLEncode(F_strIPAddr) %> <%end if%> <% for each instIPAddr in objIPCollection for IPCount =0 to ubound(instIPAddr.IPAddress) if instIPAddr.IPAddress(IPCount)<> server.HTMLEncode(F_strIPAddr) then %> <%=instIPAddr.IPAddress(IPCount) %> <%end if Next Next set ObjIPCollection = nothing set objService = nothing %>
<%=L_SITE_TCPPORT_TEXT%>	<%if server.HTMLEncode(F_strPort)<>"" then%> <%else%> <%end if%>
<%=L_SITE_HOST_HEADER_TEXT%>

<% End Function '------------------------------------------------------------------------------------------ 'Function name :SiteIdentitiesHiddenTab 'Description :Serves in setting the hidden fields in Site Identities properties page 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None ' in :L_* '----------------------------------------------------------------------------------------- Function SiteIdentitiesHiddenTab() %> <% End function Function SetSiteIdentitiesFormVariables() F_strIPAddr = Request.Form("cboIPAddr") F_strPort = Request.Form("txtPort") F_strHeader = Request.Form("txtHeader") End Function '------------------------------------------------------------------------- ' Start of declaring form variables '------------------------------------------------------------------------- Dim F_selectActiveFormat Dim F_selectDefaultPage Dim F_strchkFront Dim F_strchkAllow Dim F_strCreateFTPSite 'holds value to create FTP site Dim F_strDefaultPageText Dim F_strUploadMethod 'holds value to upload content method (neither, FTP, or FPSE) '------------------------------------------------------------------------- ' End of declaring form variables '------------------------------------------------------------------------- if GetFPSEOption() = true Then F_strUploadMethod = UPLOADMETHOD_FPSE Else F_strUploadMethod = UPLOADMETHOD_NEITHER End If F_strchkAllow = "true" F_strDefaultPageText = "Default.htm,Default.asp" %> <% '------------------------------------------------------------------------ 'Application settings Property page '------------------------------------------------------------------------ '------------------------------------------------------------------------- 'Function name :ApplicationSettingsViewTab 'Description :Serves in getting the Site application settings page 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None '-------------------------------------------------------------------------- Function ApplicationSettingsViewTab() Dim objService 'holds WMI Connection object Dim FrontIsInstalled Err.Clear on error resume next Set objService = getWMIConnection(CONST_WMI_IIS_NAMESPACE) 'Determine default execute permissions Dim objSetting 'holds Webservicesetting connection Dim inst 'holds instance object if F_selectActiveFormat = "" then Set objSetting =objService.Get(GetIISWMIProviderClassName("IIs_WebServiceSetting") & ".Name='W3SVC'") if objSetting.Name = "W3SVC" then if objSetting.AccessExecute = TRUE and objSetting.AccessScript = TRUE then F_selectActiveFormat = 2 elseif objSetting.AccessExecute = false and objSetting.AccessScript = TRUE then F_selectActiveFormat = 1 elseif objSetting.AccessExecute = false and objSetting.AccessScript = false then F_selectActiveFormat =0 elseif isnull(objSetting.AccessExecute) and isnull(objSetting.AccessScript) then F_selectActiveFormat = 0 end if end if end if 'Release the objects set objSetting = nothing set objService = nothing %>

<%= L_EXECUTE_PERMISSIONS %>	<% if server.HTMLEncode(F_selectActiveFormat)="0" then %> <%= L_NONE %> <%= L_SCRIPTS_ONLY %> <%= L_SCRIPTS_EXECUTABLES %> <%elseif server.HTMLEncode(F_selectActiveFormat)="1" then %> <%= L_NONE %> <%= L_SCRIPTS_ONLY %> <%= L_SCRIPTS_EXECUTABLES %> <%elseif server.HTMLEncode(F_selectActiveFormat)="2" then %> <%= L_NONE %> <%= L_SCRIPTS_ONLY %> <%= L_SCRIPTS_EXECUTABLES %> <% end if %>
<%=L_DEFAULT_PAGE%>
<%=DisplayDefaultPageItems()%>
	<%Call SA_ServeOnClickButtonEx(L_BUTTON_FACE_ADD, "", "ClickAdd();", 65, 0, "","btnAdd")%>      <%=L_FILE_NAME%>
	<%Call SA_ServeOnClickButtonEx(L_BUTTON_FACE_MOVE_UP, "", "ClickMoveUp();", 65, 0, "disabled","btnMoveUp")%>
	<%Call SA_ServeOnClickButtonEx(L_BUTTON_FACE_MOVE_DOWM, "", "ClickMoveDown();", 65, 0, "disabled","btnMoveDown")%>
	<%Call SA_ServeOnClickButtonEx(L_BUTTON_FACE_REMOVE, "", "ClickRemove();", 65, 0, "disabled","btnRemove")%>
<%Call ServeAppSettings(F_strDir, F_strUploadMethod, F_strchkAllow, True)%>

<% End Function '------------------------------------------------------------------------- 'Function name :ApplicationSettingsHiddenTab 'Description :Serves in storing hidden values 'Input Variables :None 'Output Variables :None 'Returns :(True / Flase ) 'Global Variables :None '-------------------------------------------------------------------------- Function ApplicationSettingsHiddenTab() %> <% End Function 'set form variables to be input for post back function Function SetApplnSettingsFormVariables() F_strchkAllow = Request.Form("hdnchkAllow") F_selectActiveFormat = Request.Form("selectActiveFormat") F_selectDefaultPage = Request.Form("selectDefaultPage") F_strDefaultPageText = Request.Form("DefaultPageText") F_strUploadMethod = Request.Form("hdnUploadMethod") End Function Function DisplayDefaultPageItems() On Error Resume Next Err.Clear Dim i Dim arrItems arrItems = split(F_strDefaultPageText,",") For i=0 to ubound(arrItems) If (F_selectDefaultPage = CStr(i)) then Response.Write(""&arrItems(i)&"") Else Response.Write(""&arrItems(i)&"") End If Next End Function %>