一個AJAX局部刷新的例子

2019-11-17 04:18:34

字體：大中小

來源：轉載

供稿：網友

終于睛天了.

一個Ajax局部刷新的例子:

前臺頁面:

<%@LANGUAGE="VBSCR <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "<html xmlns="<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
%>