index.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
 <head>
  <script language="javascript">
  var XmlHttp;
  
  function createXMLHttpRequest() {
   if (window.ActiveXObject) {
    XmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
   }
   else if (window.XMLHttpRequest) {
    XmlHttp = new XMLHttpRequest();
   }
  }

  function sendAJAX()
  {
   var p=document.getElementById('s').value;
   createXMLHttpRequest();
   XmlHttp.onreadystatechange=ServerProcess;
   XmlHttp.Open("POST","Receive.aspx?p="+ p +"",true);
   XmlHttp.send(null);
  }
  
  function ServerProcess()
  {
  
   if(XmlHttp.readyState == 4) {
    if(XmlHttp.status == 200) {
     document.getElementById('nameList').innerHTML =XmlHttp.responsetext;
    }
   }
  }
  
  setInterval('sendAJAX()',1000);
  
  </script>
 </head>
 <body>
  <select name="s" size="1">
   <option selected value="1">1</option>
   <option  value="2">2</option>
   <option  value="3">3</option>
   <option  value="4">4</option>
  </select>
  <br>
  <div id="nameList"></div>
 </body>
</html>

Receive.aspx

<%@ Import NameSpace="System"%>
<%@ Import NameSpace="System.Collections"%>
<%@ Import NameSpace="System.ComponentModel"%>
<%@ Import NameSpace="System.Data"%>
<%@ Import NameSpace="System.Drawing"%>
<%@ Import NameSpace="System.Web"%>
<%@ Import NameSpace="System.Web.SessionState"%>
<%@ Import NameSpace="System.Web.UI"%>
<%@ Import NameSpace="System.Web.UI.WebControls"%>
<%@ Import NameSpace="System.Web.UI.HtmlControls"%>
<%@ Import NameSpace="System.Diagnostics"%>

<%
dim p as string=request.querystring("p")
dim myMemory as new PerformanceCounter
myMemory.CategoryName="Memory"
myMemory.CounterName="Available KBytes"
dim txtResult as string = "-->服务器可用内存大小：" & myMemory.NextValue().ToString() & "KB"
Response.Write(DateTime.Now.ToLongTimeString() & txtResult) 
Response.write("<br>参数值：" & p)
%>

 
要有.net环境，放在虚拟目录下即能运行！