您的位置：首页 > 其它

一个最简单的Ajax实例(大部分是抄袭的)

2006-05-26 10:01 507 查看

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环境，放在虚拟目录下即能运行！

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航