Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости

Код на странице Игрок выводит всю информацию об игроке, используя идентификатор, переданный на страницу.

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Size="10pt"
Font-Name-"Tahoma"
Font-Bold="True"
runat="server"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If ben(Request.QueryString("PlayerlD")) - 0 Then
Response.Redirect("./index.aspx")
End If
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=looalhost;" _
& "Initial Catalog=INETC6;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select PlayerNumber, LastName, FirstName, PPG, " _
& "APG, RPG, BPG, Description From Players " _
&"Where PlayerlD = " _
& Request.QueryString("PlayerID"), DBConn)
DBCommand.Fill(DSPageData, _
"Player")
IblTitle.Text = DSPageData.Tables("Player").
Rows(O).Item("PlayerNumber") 4 " - "
& DSPageData.Tables ГPlayer"). _
Rows(0).Item("FirstName") & " "~_
&DSPageData.Tables("Player"}. _
Rows(O).Item("LastName")
IblMessage.Text = "Среднее число <BR>OчKOB, набранных за игру: " _
& DSPageData.Tables("Player"). _
Rows(O).Item("PPG") ? "<BR>" _
& "Результативных передач за игру: " _
& DSPageData.Tables("Player").
Rows(0).Item("APG") & "<BR>"
& "Подборов за игру: " _
& DSPageData.Tables("Player").
Rows(0).Item("RPG") S "<BR>"
& "Блокировок бросков за игру: " _
6 DSPageData.Tables("Player"). _
Rows(O) .Item("BPG") ? "<BR><BR>" _ .
& DSPagejOata» Tables ("Player"). _
Rows(0).Item("Description")
End If
End Sub

If Len(Request.QueryString("PlayerID")) = 0 Then

Response.Redirect("./index.aspx")

DBCommand = New OleDbDataAdapter _
("Select PlayerNumber, LastName, FirstName, PPG, "
& "APG, RPG, BPG, Description From Players " _
& "Where PlayerlD = " _
& Request.QueryString("PlayerlD"), DBConn)

DBCommand.Fill(DSPageData, _
"Player")

IblTitle.Text =- DSPageData.Tables("Player"). _
Rows(0).Item("PlayerNumber") & " = "
& DSPageData.Tables("Player").
Rows(0).Item("FirstName") & " "_
& DSPageData.Tables("Player")._
Rows(O).Item("LastName")

IblMessage.Text = "Среднее число <ВН>Очков, набранных за игру: "_
& DSPageData.Tables("Player").
Rows(O).Item("PPG") & "<BR>"
& "Результативных передач за игру: " _
& DSPageData.Tables("Player").
Rows(0).Item("APG") & "<BR>"
4 "Подборов за игру: " _
& DSPageData.Tables("Player").
Rows(0).Item("RPG") & "<BR>"
& "Блокировок бросков за игру: " ,
& DSPageData.Tables("Player")._ ~
Rows (0) .Item("BPG") S "<BR><BR>"
& DSPageData.Tables("Player").
Rows(O).Item("Description")