Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
If Len(Session("StudentID")) = 0 Then
Response.Redirect("./index.aspx")
End If
-
If Len(Session("CourseSectionID")) = 0 Then
-
Response.Redirect("./home_room.aspx")
-
DBCommand = New OleDbDataAdapter _
("Select SectionName from CourseSections Where " _
& "CourseSectionID = " & Session("CourseSectionID") _
, DBConn)
DBCommand.Fill(DSPageData, _
"SectionName")
-
IblTitle.Text = "<center>Раздел " _
& DSPageData.Tables("SectionName").
Rows(0).Item("SectionName") _
& "</center>
-
DBCommand - New OleDbDataAdapter _
("Select SectionContentID, SectionContentTitle, " _
& "SectionContent from SectionContents Where "
& "SectionContentID= (Select Min(SectionContentID) " _
& "From SectionContents Where CourseSectionlD • " _
& Session("CourseSectionlD") & ")", DBConn)
DBCommand.Fill(DSPageData, _
"SectionContent")
-
Session("CurrentSectionContentlD") = _
DSPageData.Tables("SectionContent"). _
Rows(0).Item("SectionContentID")
-
IblMessage.Text = DSPageData.Tables("SectionContent"). _
Rows(0).ItemC'SectionContentTitle") _
& "<br><br>" _
& DSPageData.Tables("SectionContent"). _
Rows(O).Item("SectionContent")
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn asOleDbConnection
Dim DBCommand 'As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial*Catalog-INETC9;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select SectionContentID, SectionContentTitle," _
& "SectionContent from SectionContents Where " _
& "SectionContentID = (Select Min(SectionContentID) " _
& "From SectionContents Where SectionContentID > " _
& Session("CurrentSectionContentlD") _
& " and CourseSectionlD = " _
& Session ("CourseSectionlD") & ")", DBConn)
DBCommand.Fill(DSPageData, _
"SectionContent")
If DSPageData.Tables("SectionConteht"} .Rows.Count = 0 Then
Response.Redirect("./course.aspx")
Else
Session("CurrentSectionContentlD") -'_
DSPageData.Tables("SectionContent"). _
Rows(0).Item("SectionContentID")
IblMessage.Text » DSPageData.Tables("SectionContent"). _
Rows(0).ItemC'SectionContentTitle") _
& "<br><br>" _
& DSPageData.Tables("SectionContent"). _
Rows(O).Item("SectionContent")
End If
End Sub
 |
 |
|
