技术资料 > ASP技术 > 系统相关 : ASP+中GetTitleAuthors和PutTitleAuthors应用例子

ASP+中GetTitleAuthors和PutTitleAuthors应用例子

March 25,2004

-----------#C的例子--------

<%@ Import Namespace="DataServices" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>

<html>
<script language="C#" runat="server">

protected void Page_Load(Object Src, EventArgs E)
{
      DataService d = new DataService();
      DataSet myData = d.GetTitleAuthors();

      Authors_DataGrid.DataSource=myData.Tables["Authors"].DefaultView;
      Authors_DataGrid.DataBind();

      Message.InnerHtml = "The number of rows is: " + myData.Tables["Authors"].Rows.Count.ToString();

}

protected void Submit_DataSet(Object Src, EventArgs E)
{

   DataService d = new DataService();
   DataSet myData = d.GetTitleAuthors();

      //Remove three rows from the Authors table
      myData.Tables["Authors"].Rows.Remove(0);
      myData.Tables["Authors"].Rows.Remove(1);
      myData.Tables["Authors"].Rows.Remove(2);

      int rowCount = d.PutTitleAuthors(myData);
      Message.InnerHtml = "The modified number of rows is: " + rowCount.ToString();
}

</script>

<body style="font: 10pt verdana">

  <h4>Using Data Access with Web Services</h4>

  <form runat="server">

   <input type="submit" OnServerclick="Submit_DataSet" value="Remove three rows from the  DataSet"
runat="server"/>
   <p>
   <span id="Message" runat="server"/>

   <p>

   <ASP:DataGrid id="Authors_DataGrid" runat="server"
      Width="700"
      BackColor="#ccccff"
      BorderColor="black"
      ShowFooter="false"
      CellPadding=3
      CellSpacing="0"
      Font-Name="Verdana"
      Font-Size="8pt"
      HeaderStyle-BackColor="#aaaadd"
      MaintainState="false"
   />

</form>

</body>

--------#VB----------------
<%@ Import Namespace="DataServices" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQL" %>

<html>
<script language="VB" runat="server">

Protected Sub Page_Load(Src As Object, E As EventArgs)

      Dim D As DataService = New DataService()
      Dim MyData As DataSet = D.GetTitleAuthors()

      Authors_DataGrid.DataSource=MyData.Tables("Authors").DefaultView
      Authors_DataGrid.DataBind()

      Message.InnerHtml = "The number of rows is: " & MyData.Tables("Authors").Rows.Count.ToString()

End Sub

Protected Sub Submit_DataSet(Src As Object, E As EventArgs)

      Dim D As DataService = New DataService()
      Dim MyData As DataSet = D.GetTitleAuthors()

      'Remove three rows from the Authors table
      MyData.Tables("Authors").Rows.Remove(0)
      MyData.Tables("Authors").Rows.Remove(1)
      MyData.Tables("Authors").Rows.Remove(2)

      Dim RowCount As Integer = D.PutTitleAuthors(MyData)
      Message.InnerHtml = "The modified number of rows is: " & RowCount.ToString()
End Sub

</script>

<body style="font: 10pt verdana">

  <h4>Using Data Access with Web Services</h4>

  <form runat="server">

   <input type="submit" OnServerclick="Submit_DataSet" value="Remove three rows from the  DataSet"
runat="server"/>
   <p>
   <span id="Message" runat="server"/>

   <p>

   <ASP:DataGrid id="Authors_DataGrid" runat="server"
      Width="700"
      BackColor="#ccccff"
      BorderColor="black"
      ShowFooter="false"
      CellPadding=3
      CellSpacing="0"
      Font-Name="Verdana"
      Font-Size="8pt"
      HeaderStyle-BackColor="#aaaadd"
      MaintainState="false"
   />

</form>

</body>
</html>