在Page_Load中: If Me.Request("name") <> Nothing Then '從客戶端返回的數據
Dim strGetClientValue As String = Me.Request("name") getAGE(strGetClientValue)
End If
Private Sub getAge(ByVal strGetClientValue As String) Try Dim dtPostedTable As DataTable = GetData(strGetClientValue) '得到要傳送到客戶端的groupname要邦定的值,GetData是你自己寫的方法,用來得到一個DataTable.
Dim dsPosted As New DataSet("Person") dsPosted.Tables.Add(dtPostedTable)
Dim strPersonReturnXml As String = "<?xml version=" + Chr(34) + "1.0" + Chr(34) + " ?> " + Chr(13) + dsPosted.GetXml() '發送到客戶端的xml Response.Write(strPersonReturnXml ) Response.End() Catch ex As Exception End Try End Sub