Сайт создан по материалам книги Г. Бучека "Учебный курс по 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.(" ,/hpme_room,aspx")
-
DBCommand = New OleDbDataAdapter _
("Select SectionName from CourseSections Where "
& "CourseSectionID = " & Session("CourseSectionID") _
, DBConn)
-
DBCommand.Fill (DSPageData, _
"SectionName")
-
lblTi.tle.Text = "<СЕNТЕR>Раздел " _
& DSPageData.Tables("SectionName"). _
Rows(0).Item("SectionName") _
& "</CENTER>"
-
DBCommand = New OleDbDataAdapter _
("Select SectionQuestionID, QuestionText " _
& "From SectionQuestions Where CourseSectionID = " _
& Session("CourseSectionID"), DBConn)
DBCommand.Fill(DSPageData, _
"QuizQuestions")
-
For I = 0 to DSPageData.Tables("QuizQuestions"). _
Rows.Count - 1
-
Dim IcHTML = New LiteralControl
-
IcHTML.Text = "<В>"
& DSPageData.Tables{"QuizQuestions"). _
Rows(I) .Item("QuestionText") & "</B>
"
-
pnlQuestionsiControls.Add(IcHTML)
-
Dim MyDDL - New DropDownList
-
TempID - DSPageData.Tables("QuizQuestions"). _
Rows(I).Item("SectionQuestionID")
-
MyDDL.ID = "Q" & TempID
-
DBCommand = New OleDbDataAdapter _
("Select AnswerText "
& "From QuestionAnswers Where SectionQuestionID = " _
& TempiD, DBConn)
DBCommand.Fill(DSPageData, _
TempID)
-
For J = 0 to DSPageData.Tables(TempID). _
Rows.Count = 1
-
Dim Myltem = New Listltem
 |
 |
|
