Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
Sub Page_Load(ByVal Sender as Object, ByVal E as JSventArgs)
If Len(SessionrstudentID")) = 0 Then
Response.Redirect("./index.aspx")
End If
If Len(Session("CourselD")) = 0 Then
Response.Redirect("./home_room.aspx")
End If
If Not IsPostBacJc Then
Dim DBConn as OleDbConnection
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 CourseName from Courses Where " _
& "CourselD = " s Session("CourselD") _
, DBConn)
DBCommand.Fill(DSPageData, _
"CourseName")
IblTitle.Text = "<center>Kypc " _
& DSPageData.Tables("CourseName"). _
Rows (0) .Item("CourseName") _
& "</center>"
DBCommand New OleDbDataAdapter _
("Select CourseSectionID, SectionName from " _
6 "CourseSections Where " _
& "CourselD = " s Session("CourselD") _
, DBConn)
DBCommand.Fill(DSPageData, _
"CourseSections")
ddlSectionsl.DataSource = _
DSPageData.Tables("CourseSections").DefaultView
ddlSectionsl.DataBind()
ddlSections2.DataSource = _
DSPageData.Tables("CourseSections").DefaultView
ddlSections2.DataBind()
DBCommand = New OleDbDataAdapter _
("Select SectionName as [Раздел], Score as [Баллы],
& "TotalQuestions as [Количество вопросов], " _
& "Convert(varchar(12),DateTaken,107) " _
& "as [Дата] From CourseSections "
& "Inner Join QuizResults On " _
& "QuizResults.CourseSectionID = " _
& "CourseSections.CourseSectionID Where StudentID -
& Session("StudentlD") & " And " _
& "QuizResults.CourseSectionID In ((" _
& "Select CourseSectionID from CourseSections where
I "CourselD = " & Session CCourselD"), 4 "))!
, DBConn)
DBCommand.Fill(DSPageData, _
"QuizResults")
dgQuizResults.DataSource = _
DSPageData.Tables("QuizResults").DefaultView
dgQuizResults.DataBind()
If
End Sub
-
If Len(Session("StudentID")) = 0 Then
-
Response.Redirect("./index.aspx")
-
If Len(Session("CourselD")) = 0 Then
-
Response.Redirect("./home_room.aspx")
-
DBCommand = New OleDbDataAdapter'_
("Select CourseName from Courses Where " _
& "CourselD = " & Session("CourselD") _
, DBConn)
 |
 |
|
