一个AJAX局部刷新的例子

2019-11-17 04:18:34

字体：大中小

来源：转载

供稿：网友

终于睛天了.

一个Ajax局部刷新的例子:

前台页面:

<%@LANGUAGE="VBSCR ipT" 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>

后台页面:[getPart.asp]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
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文本框输入提示

下一篇：C#窗口间传值一例(子窗口向父窗口传值)

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注