ASP+中GetTitleAuthors和PutTitleAuthors应用例子

ASP+中GetTitleAuthors和PutTitleAuthors应用例子

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- ASP+中GetTitleAuthors和PutTitleAuthors应用例子 (http://www.webasp.net/article/1/607.htm)

-- 作者：未知
-- 发布日期： 2003-04-15

-----------#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>

webasp.net