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.
144 lines
4.2 KiB
144 lines
4.2 KiB
<% '==================================================
|
|
' 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.Flush
|
|
End Function
|
|
|
|
|
|
|
|
|
|
%>
|