一个AJAX局部刷新的例子

终于睛天了.

一个AJAX局部刷新的例子:

前台页面:

<% @LANGUAGE = " VBSCRIPT " CODEPAGE = " 65001 " %>
<! DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head >
< meta http-equiv ="Content-Type" content ="text/html;charset=utf-8" />
< title > AJAX局部刷新 </ title >
< script type ="text/javascript" >
<!--

// 建立XMLHttpRequest对象
var xmlhttp;
try {
xmlhttp = new ActiveXObject( ' Msxml2.XMLHTTP ' );
} catch (e){
try {
xmlhttp = new ActiveXObject( ' Microsoft.XMLHTTP ' );
} catch (e){
try {
xmlhttp = new XMLHttpRequest();
} catch (e){}
}
}

function getPart(url){
xmlhttp.open( " get " ,url, true );
xmlhttp.onreadystatechange = function (){
if (xmlhttp.readyState == 4 )
{
if (xmlhttp.status == 200 )
{
if (xmlhttp.responseText != "" ){
document.getElementById( " partdiv " ).innerHTML = unescape(xmlhttp.responseText);
}
}
else {
document.getElementById( " partdiv " ).innerHTML = " 数据载入出错 " ;
}
}
}
xmlhttp.setRequestHeader( " If-Modified-Since " , " 0 " );
xmlhttp.send( null );
}
setInterval( " getPart('getPart.asp') " , 1000 )
// -->
</ script >
</ head >

< body >
< div id ="partdiv" ></ div > <!-- 局部刷新数据的容器 -->
</ body >
</ html >

后台页面:[getPart.asp]

<% @LANGUAGE = " VBSCRIPT " CODEPAGE = " 65001 " %>
<!-- #includefile="conn.asp" -->
<%
dim rs
dim sql


Set rs = Server.CreateObject( " ADODB.Recordset " )
sql = " select*fromking_test "
rs.opensql,conn, 1 , 1
if not (rs.bof and rs.eof) then
Response.Write( " <table> " )
Response.Write(escape( " <tr><td>ID</td><td>关键字</td></tr> " ))
do while not rs.eof
%>
< tr >< td > <% Response.Write(rs( " id " )) %> </ td >< td > <% Response.Write(escape(rs( " keyword " ))) %> </ td ></ tr >
<%
rs.movenext
loop
Response.Write( " </table> " )
end if
rs.close
set rs = nothing
conn.close
Set conn = nothing
%>