一个AJAX局部刷新的例子

最新推荐文章于 2021-08-05 13:44:02 发布

fengkuanghun

最新推荐文章于 2021-08-05 13:44:02 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Ajax 文章标签： ajax vbscript xmlhttprequest function url table

本文链接：https://blog.youkuaiyun.com/fengkuanghun/article/details/4167747

Ajax 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用AJAX实现局部刷新的示例，通过定时请求后台数据并更新页面部分内容，展示了基本的AJAX交互原理及其实现方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一个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">

</script>
</head>

<body>
<div id="partdiv"></div>
</body>
</html>

后台页面:[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
%>