asp+ajax兑现定时刷新获取服务器数据
日期：2014-05-17 浏览次数：20851 次
这几天一直折腾asp，要求实现一个后台添加程序后，前台要提示的功能。所以就用asp+ajax写了一个定时器，从服务器获取信息，定时显示页面上。
本程序是从index.asp定时调用server.asp的数据，首先在index.asp页面上定义了一个ajax程序，并且在ajax程序中添加了定时器的代码利用了一个setTimeout("method()",times) 这个方法，细心的同学应该都能看出这是个递归调用。
ok，废话不多说，看代码吧！
?
?
前台程序代码
index.asp
?
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>兼容多浏览器的AJAX入门实例（超详细注释）</title>
<script type="text/javascript">
<!--
?
var xmlHttp
/*建立XMLHTTP对象调用MS的ActiveXObject方法，如果成功（IE浏览器）则使用MS ActiveX实例化创建一个XMLHTTP对象*/
//非IE则转用建立一个本地Javascript对象的XMLHttp对象 （此方法确保不同浏览器下对AJAX的支持）
function createXMLHttp(){
??? if(window.ActiveXObject){
??????? xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
??? }
??? else if(window.XMLHttpRequest){
??????? xmlHttp = new XMLHttpRequest();
??? }
}
var? a = 1;
//建立主过程
function startXMLHttp(){
??? createXMLHttp(); //建立xmlHttp 对象
??? xmlHttp.open("get","server.asp",true); //建立一个新的http请求，传送方式 读取的页面 异步与否(如果为真则自动调用dodo函数)
??? xmlHttp.send(); //发送
xmlHttp.onreadystatechange =doaction; //xmlHttp下的onreadystatechange方法 控制传送过程
?
?? setTimeout("startXMLHttp()",1000);? // 定时调用
?? document.getElementById("t").innerHTML="这是第"+ a +"次刷新!";
?? a++;
}
function doaction(){
??? if(xmlHttp.readystate==4){ // xmlHttp下的readystate方法 4表示传送完毕
??????? if(xmlHttp.status==200){ // xmlHttp的status方法读取状态（服务器HTTP状态码） 200对应OK 404对应Not Found（未找到）等
???????????? document.getElementById("content").innerHTML=xmlHttp.responseText //xmlHttp的responseText方法 得到读取页数据
?????????? }
?? }
}
?
?window.onload = function(){
??????? startXMLHttp();
?}
-->
</script>
</head>
?
<body? >
<span id="content"><!--读取后用来显示的区域--></span><br>
<input type="button" onclick="javascript:startXMLHttp()" value="查询"/>
<div id="t"> data </div>
</body>
</html>
服务后台处理程序，这里用了一个简单的table显示来替代
server.asp
?
<table width="100%" border="1">
<tr>
??? <td>AJAX处理结果。</td>
</tr>
</table>
<%
'-------------------------------------------
'//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
'-------------------------------------------
'Response.Charset="GB2312"???? ' 数据返回的编码类型 显示中文数据必须
'-------------------------------------------
Response.Write(now())???????? ' 得到当前时间
?
'在这里还可以进行一大堆数据库操作。
%>
