Знакомство с ASP.NET

Что еще нужно знать об ASP.NET

Взаимодействие с клиентом

Создание интерактивных приложений для intranet-сетей

Расширение функциональных возможностей intarnet

Создание спортивного Web-узла

Управление содержимым Web-узла

Отслеживание действий посетителейa

Виртуальный университет

 Использование специализированных приложений на узлах компаний

Виртуальная риэлтерская контора

Персонализация узла для посетителей

Интерактивные возможности узла

Увеличение посещаемости узла

Создание интерактивного магазина

Создание интерактивного аукциона

Web-службы

Справочник по языку ASP.NET/VB.

Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET". Москва: BHV, 2002.

Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
В нем будет содержаться текст ответа:

    Myltem.Text = DSPageData.Tables(TempID). _
    Rows (J) .Item("AnswerText")

Этот объект добавляется к элементу DropDownList:

    MyDDL.Items.Add(Myltem)

Теперь можно перейти к обработке следующего ответа:

    Next

После завершения работы внутреннего цикла элемент управления DropDownList добавляется к элементу Panel:

    pnlQuestions.Controls.Add(MyDDL)

Между вопросами следует установить некоторый промежуток:

    Dim 1CHTML2 = New LiteralControl
    lcHTML2.Text = "<BR><BR>"

Далее осуществляется переход к обработке следующего вопроса:

    pnlQuestions.Controls.Add(lcHTML2)

Вторая процедура активизируется при выполнении щелчка на элементе управления Button и предназначается для определения результата теста.

    Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim DBConnas OleDbConnection
    Dim DBInsert As New OleDbCommand
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    Dim MyControl as Control
    Dim MyDDL as DropDownList
    Dim TotalCorrect as Integer
    Dim TotalQuestions as Integer
    Dim I as Integer
    DBConn = New OleDbConnection("Provider«sqloledb;" _
    & "server=localhost;" _
    & "Initial Catalog-INETC9;" _
    & "User Id=sa;" _
    & "Password=yourpassword;")
    For Each MyControl in pnlQuestions.Controls
    If MyControl.GetTypeO.FullName - _
    "System.Web.UI.WebControls.DropDownList" Then
    TotalQuestions = TotalQuestions + 1
    MyDDL = MyControl
    DBCommand = New OleDbDataAdapter _
    ' ("Select CorrectAnswer From SectionQuestions Where " _
    & "SectionQuestionID = " & Mid(MyDDL.ID, 2)
    , DBConn)
    DBCommand.Fill(DSPageData, _
    "CorrectAnswer" & TotalQuestions)
    If MyDDL.Selectedltern.Text = ^_
    DSPageData.Tables _
    ("CorrectAnswer" & TotalQuestions). _
    Rows(I).Item("CorrectAnswer") Then
    TotalCorrect = TotalCorrect + 1
    End If
    End If
    Next
    DBInsert.CommandText = "Insert Into QuizResults (" _
    & "StudentID, CourseSectionID, DateTaken, " _
    & "Score, TotalQuestions) values (" _
    & Session("StudentID") & ", " & Session("CourseSectionID") _
    & ", GetDateO, " & TotalCorrect & ", "
    & TotalQuestions S ")"
    DBInsert.Connection = DBConn
    DBInsert.Connection.Open
    DBInsert.ExecuteNonQuery ()
    Response.Redirect("./course.aspx")
    End Sub .

Нам понадобятся объекты, позволяющие повторно использовать элементы управления, расположенные в элементе Panel:

    Dim MyControl as Control
    Dim MyDDL as DropDownList

Следующие две переменные используются для подсчета количества вопросов теста и количества правильных ответов на них:

    Dim TotalCorrect as Integer
    Dim TotalQuestions as Integer

Для обработки каждого из элементов управления, расположенных в элементе Panel, используется цикл:

    For Each MyControl in pnlQuestions.Controls

Обработке подлежат только элементы управления DropDownList, содержащие ответы на вопросы. Поэтому необходимо обеспечить проверку типа элемента управления:

    If MyControl.GetType().FullName =__
    "System.Web.Ul.WebControis.DropDownList" Then

Hosted by uCoz