ASP.NET入门教程 12.8 综合整理[1]

下面是一个快速概述到目前为止分别介绍了创建测试发现和使用Web服务的每个步骤并且可能己经造成了如下错觉有许多单独的步骤需要执行实际情况并不是如此因为必须提取每个步骤来解释相应的操作现在可以将它们结合在一个大型的可改变的示例中并且创建一个单独的用户控件可以将该用户控件放置在任何应用程序中

许多体育站点的一个常见特性是如下功能访问联盟表并且显示一些小型化的视图其中显示队伍在联盟中的名次虽然Wrox United联盟表不是大型的（只包含个队伍）但确实可以创建一个Web服务将显示联盟中位于Wrox United上面和下面的队伍当然这儿有两个限制性条件一个是在Wrox United位于联盟第一位这个不太可能的事件中需要显示位于它下面的两个队伍在Wrox United位于联盟最后一位这种更有可能的情况下则应该显示位于它上面的两个队伍然而将在接触到这些特定的情况时跳过它们

（）转到Solution Explorer右击最上面一行选择Add New Item命令然后选择Web Service选项将名称改为LeagueMiniView单击OK

（）在页面的最顶端和己有Imports语句的下面添加额外的命名空间

Imports SystemData

Imports SystemDataSqlClient

（）需要向WebMethod添加如下代码（注意SQL字符串应该全部在一行上）

<WebMethod()> _

Public Function ViewLeague() As DataSet

Dim conn As New

SqlConnection(ConfigurationManagerConnectionStrings(WroxUnited)ConnectionString)

Dim sqlstring As String

sqlstring = SELECT [OpponentID] [Name] [TotalGoalsFor] [TotalGoalsAgainst] [TotalGoalsFor][TotalGoalsAgainst] AS [GoalDifference] [Points] FROM [Opponents] Order By [Points] DESC [GoalDifference] DESC [TotalGoalsFor] DESC

Dim adapter As New SqlDataAdapter(sqlstring conn)

Dim adapter As New SqlDataAdapter(sqlstring conn)

Dim ds As New DataSet

Dim ds As New DataSet

Dim position As Integer

Dim offset As Integer

Dim rows As DataRowCollection

adapterFill(ds ViewLeague)

rows = dsTables(ViewLeague)Rows

For i As Integer = To rowsCount

If rows(i)(Name)ToString() = Wrox United Then

position = i +

End If

Next

If position > And position < rowsCount Then

offset = position

ElseIf position = Then

offset = position

Else

offset = position

End If

adapterFill(ds offset ViewLeague)

dsTables(ViewLeague)ColumnsAdd(Position GetType(Integer))

rows = dsTables(ViewLeague)Rows

For i As Integer = To rowsCount

rows(i)(Position) = offset + i +

Next

Return ds

End Function

End Class

ASPNET 入门教程完整版

[] [] [] [] [] []