一个AJAX局部刷新的例子
2008-02-03 12:21
337 查看
终于睛天了.
一个AJAX局部刷新的例子:
前台页面:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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>
<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"%>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from king_test"
rs.open sql,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
%>
一个AJAX局部刷新的例子:
前台页面:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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>
<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"%>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from king_test"
rs.open sql,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
%>
相关文章推荐
- 一个AJAX局部刷新的例子
- 一个AJAX局部刷新的例子
- 运用 Ajax技术 实现一个局部刷新显示的小例子
- 一个ajax异步调用并自动刷新的例子
- Ajax请求返回一个页面,实现页面局部刷新
- Ajax局部刷新例子
- ajax局部刷新一个div下的jsp
- 一个AJAX局部刷新 asp
- 使用php后台给自己做一个页面路由,配合ajax实现局部刷新。
- ajax局部刷新一个div下的jsp
- ajax 笔记-- 写了一个不用刷新就能实现--用户名验证的例子
- AJAX局部刷新例子
- Ajax局部刷新---登录简单例子
- jqury+ajax+php最简单的例子局部刷新页面
- ajax 笔记-- 写了一个不用刷新就能实现--用户名验证的例子
- 早上学习了一个smarty局部刷新的例子发上来大家看看,过两天我会把它与数据库相互结合起来写成功发过来的
- ajax局部刷新一个div下jsp内容的方法
- Ajax局部刷新---登录简单例子
- 用AJAX实现一个小案例—对用户名进行校验来实现局部刷新
- 简单 GridView AJAX 局部刷新分页例子@孟宪会