无刷新显示数据

无刷新显示数据 无刷新显示数据,,xmlHttp的应用 日期:2005-2-1 2:35:13 出处:qixiao-Blog 作者:- 前阵子找工作面试的时候，主管问有没有做过无刷新显示数据，很尴尬的回答没有之后立刻试了一下，感觉挺简单的，麻烦的是JS操作XMLDocoment显示在页面上。 简单将代码贴出来，欢迎指导:) -------------------------------------------------test.aspx.vb--------------------------------------------- Private Sub Page_Load(ByVal sender As System.Object, ByVal e As Syst em.EventArgs) Handles MyBase.Load ''在此处放置初始化页的用户代码 If Not (Me.Request("state") Is Nothing) Then ''第一次进入，xmlHttp还未POST时直接跳过 Dim Ds As New DataSet Me.Da.SelectCommand.CommandText = "select * from " + Me.Req uest("state").ToString Me.Da.Fill(Ds) Dim writer As New XmlTextWriter(Response.OutputStream, Respon se.ContentEncoding) writer.Formatting = Formatting.Indented writer.Indentation = 4 writer.IndentChar = " " Ds.WriteXml(writer) ''将DS的数据写到XML writer.Flush() Response.End() writer.Close() End If End Sub ----------------------------------------test.aspx------------------------------------ ------ <%@ Page Language="vb" AutoEventWireup="false" Codebehind="test.aspx.vb" Inherits="norefresh.test"%>

authors city au_fname

这个例子非常简单，后来尝试用JS把客户端的XMLDocument Send到服务器端， 再读入DataSet，想直接绑定到DataGrid，但是失败了，代码如下，希望哪位高手指点一 二 ---------------------------------------test.aspx.vb------------------------------------ Private Sub Page_Load(ByVal sender As System.Object, ByVal e As Syst em.EventArgs) Handles MyBase.Load ''在此处放置初始化页的用户代码 If Not (Me.Request("state") Is Nothing) Then Dim Ds As New DataSet Me.Da.SelectCommand.CommandText = "select * from " + Me.Request("state").ToString Me.Da.Fill(Ds) Dim writer As New XmlTextWriter(Response.OutputStream, Respon se.ContentEncoding) writer.Formatting = Formatting.Indented writer.Indentation = 4 writer.IndentChar = " " Ds.WriteXml(writer) writer.Flush() Response.End() writer.Close() End If If Not (Me.Request("isxml") Is Nothing) Then Dim ds1 As New DataSet ds1.ReadXml(Me.Request.InputStream) Me.DataGrid1.DataSource = ds1.Tables(0).DefaultView Me.DataGrid1.DataBind() End If End Sub ----------------------------------------------test.aspx------------------------------ ----- <%@ Page Language="vb" AutoEventWireup="false" Codebehind="test.asp x.vb" Inherits="norefresh.test"%>

authors city au_fname