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.

65 lines
1.5 KiB

  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type"
  5. content="text/html; charset=iso-8859-1">
  6. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  7. <title>Cluster Nodes</title>
  8. <base target="main">
  9. <meta name="FORMATTER" content="Microsoft FrontPage 2.0">
  10. </head>
  11. <body>
  12. <h3>Nodes</h3>
  13. <%
  14. 'A Helper function for formatting
  15. Function NodeRef( NodeName )
  16. NodeRef = _
  17. "<A HREF = main.asp?NodeName=" & _
  18. Server.URLEncode( NodeName ) & _
  19. ">" & _
  20. NodeName & _
  21. "</A>"
  22. End Function
  23. 'Open the Cluster and save it as a session variable
  24. Dim Cluster
  25. If Not IsEmpty( Request( "ServerName" ) ) Then
  26. Set Cluster = CreateObject( "MSCluster.Cluster" )
  27. Cluster.Open( Request("ServerName") )
  28. Set Session("Cluster") = Cluster
  29. End If
  30. If IsObject( Cluster ) Then
  31. Dim Nodes
  32. Set Nodes = Cluster.Nodes
  33. Dim nCount
  34. nCount = Nodes.Count
  35. Dim nIndex
  36. For nIndex = 1 To nCount
  37. Response.Write "<img src=images/BUSI001239_X5.gif width=64 height=64>"
  38. Response.Write NodeRef( Nodes(nIndex).Name )
  39. Response.Write "</img>"
  40. Response.Write strRow
  41. Next
  42. Else
  43. Response.Write "None"
  44. End If
  45. %>
  46. <p><!--webbot bot="PurpleText"
  47. 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."
  48. --></p>
  49. </body>
  50. </html>