66 lines
1.5 KiB
Plaintext
66 lines
1.5 KiB
Plaintext
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
|
|
<html>
|
|
|
|
<head>
|
|
<meta http-equiv="Content-Type"
|
|
content="text/html; charset=iso-8859-1">
|
|
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
|
|
<title>Cluster Nodes</title>
|
|
<base target="main">
|
|
<meta name="FORMATTER" content="Microsoft FrontPage 2.0">
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<h3>Nodes</h3>
|
|
<%
|
|
'A Helper function for formatting
|
|
Function NodeRef( NodeName )
|
|
NodeRef = _
|
|
"<A HREF = main.asp?NodeName=" & _
|
|
Server.URLEncode( NodeName ) & _
|
|
">" & _
|
|
NodeName & _
|
|
"</A>"
|
|
End Function
|
|
|
|
|
|
|
|
'Open the Cluster and save it as a session variable
|
|
Dim Cluster
|
|
|
|
If Not IsEmpty( Request( "ServerName" ) ) Then
|
|
Set Cluster = CreateObject( "MSCluster.Cluster" )
|
|
Cluster.Open( Request("ServerName") )
|
|
Set Session("Cluster") = Cluster
|
|
End If
|
|
|
|
|
|
If IsObject( Cluster ) Then
|
|
Dim Nodes
|
|
Set Nodes = Cluster.Nodes
|
|
|
|
Dim nCount
|
|
nCount = Nodes.Count
|
|
|
|
Dim nIndex
|
|
|
|
For nIndex = 1 To nCount
|
|
Response.Write "<img src=images/BUSI001239_X5.gif width=64 height=64>"
|
|
Response.Write NodeRef( Nodes(nIndex).Name )
|
|
Response.Write "</img>"
|
|
|
|
Response.Write strRow
|
|
Next
|
|
|
|
Else
|
|
Response.Write "None"
|
|
End If
|
|
%>
|
|
<p><!--webbot bot="PurpleText"
|
|
preview="The page's default target frame is set to 'main'. When the user clicks on a link in this frame, the browser will load the referenced page into the target frame. To change the default target, edit the page's properties. To override the default target for a particular link, edit the link's properties."
|
|
--></p>
|
|
</body>
|
|
</html>
|