Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<% '================================================== ' Microsoft Server Appliance ' Resource Viewer page ' Copyright (c) Microsoft Corporation. All rights reserved. '==================================================%><!-- Copyright (c) Microsoft Corporation. All rights reserved.--><!-- #include file="inc_framework.asp" --><% Dim L_NOSTATUS_MESSAGE Dim L_PAGETITLE
L_PAGETITLE = Request.QueryString("Title") If ( Len(L_PAGETITLE) <= 0 ) Then L_PAGETITLE = GetLocString("sacoremsg.dll", "40200BB8", "") End If
L_NOSTATUS_MESSAGE = GetLocString("sacoremsg.dll", "40200BB9", "") %>
<HTML><meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>"><HEAD><TITLE><%=L_PAGETITLE%></TITLE><meta HTTP-EQUIV="Refresh" CONTENT="60"><% Call SA_EmitAdditionalStyleSheetReferences("")%> <SCRIPT LANGUAGE="JavaScript" SRC="<%=m_VirtualRoot%>sh_page.js"></SCRIPT></HEAD><BODY marginWidth="0" marginHeight="0" onDragDrop="return false;" topmargin="0" LEFTMARGIN="0" oncontextmenu="//return false;"> <% Call ServeResources()%></BODY></HTML>
<%'----------------------------------------------------------------------------'' Function : ServeResources'' Synopsis : Serves the resources'' Arguments: None'' Returns : None''----------------------------------------------------------------------------Function ServeResources Call ServeStandardHeaderBar(L_PAGETITLE, "") Response.Write("<div class='PageBodyInnerIndent'>") Call ServeElementBlock(Request.QueryString("ResContainer"), L_NOSTATUS_MESSAGE, True, False, False) Response.Write("</div>")End Function
'----------------------------------------------------------------------------'' Function : ServeElementBlock'' Synopsis : Serves elements belonging to the same container'' Arguments: Container(IN) - container whose elements need to be served' EmptyMsg(IN) - Msg to display if no elements are found' Icons(IN) - Should icons be displayed with text' Links(IN) - Should text be displayed as hyperlink' NewWindow(IN) - Should this be displayed in a separate browser' window or not'' Returns : None' this is broken'----------------------------------------------------------------------------Function ServeElementBlock(Container, EmptyMsg, Icons, Links, NewWindow) on error resume next Dim objElements Dim objItem Dim arrTitle() Dim arrURL() Dim arrHelpText() Dim arrIconPath() Dim blnWroteElement Dim blnEnabled Dim i
Set objElements = GetElements(Container) ReDim arrTitle(objElements.Count) ReDim arrURL(objElements.Count) ReDim arrHelpText(objElements.Count) ReDim arrIconPath(objElements.Count)
i = 0 blnWroteElement = False Response.Write("<table class=ResourcesBody border=0 width=95% cellspacing=0>"+vbCrLf) Response.Flush
For Each objItem in objElements Err.Clear 'Call SA_TraceOut(SA_GetScriptFileName(), "Found resource: " + objItem.GetProperty("ElementID")) arrIconPath(i) = m_VirtualRoot + objItem.GetProperty("ElementGraphic") Response.Write("<tr nowrap>"+vbCrLf) Dim sResourceURL
sResourceURL = objItem.GetProperty("URL") If ( Len(Trim(sResourceURL)) > 0 ) Then ' ' Execute the embedded HTML page ' 'Call SA_TraceOut(SA_GetScriptFileName(), "Executing Embedded URL: (" + m_VirtualRoot + sResourceURL + ")") Server.Execute(m_VirtualRoot + sResourceURL) blnWroteElement = True End If Response.Write("</tr>"+vbCrLf) i = i + 1 Next Set objElements = Nothing Set objItem = Nothing If Not blnWroteElement Then Response.Write("<tr>"+vbCrLf) Response.Write("<td width=30 height=28 colspan=2 valign=middle> </td>"+vbCrLf) Response.Write("<td width=25 height=28 valign=middle> </td>"+vbCrLf) Response.Write("<td width=314 height=28 valign=middle class=Resource>"+vbCrLf) Response.Write(EmptyMsg+vbCrLf) Response.Write("</td>"+vbCrLf) Response.Write("</tr>"+vbCrLf) End If Response.Write("</table>"+vbCrLf) Response.FlushEnd Function
%>
|
