一個AJAX局部重新整理的例子

來源:互聯網
上載者:User

終於睛天了.

一個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
%>
相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.