Висновок

В ході виконання курсової роботи було реалізовано WEB – додаток, який надає можливість користувачам відповідати на питання тесту по різній тематиці, та отримання результатів та вірних відповідей тесту.

Основна функція проекту являється перевірка знань користувача, отримання результату тесту, отримання правильних відповідей на питання, які були поставленні в тесті.

Реалізується це все за допомогою WEB – додатку (сторінки), що розміщений на сервері(локальний сервер).

Головна сторінка WEB – проекту надає можливість відповідати на запитання тесту, де є вибір відповідей у вигляді випадаючого списку. Кінцева сторінка надає користувачеві дізнатись результати тесту та правильних відповідей.

Даний WEB – додаток дає можливість людям перевірити наявність знань у вигляді тесту по різній тематиці та дає можливість користувачам дізнатись правильних відповідей на поставлені запитання у ході проходження тесту.

Література

1. Разработка Web- приложений на Microsoft Visual Basic .NET.

2. Microsoft Visual C# .NET. Учебный курс MCAD MCSD.

3. Бучек Г. ASP.NET. Учебный курс — СП6.: Питер. 2002. — 512 с.: ил.

4. Троелсен Э. «C# и платформа .NET. Библиотека программиста» - СПб.: Питер 2007 796л.

5. Шилдт Г. — Самоучитель C++, видавництво — «БХВ-Петербург, 3-е издание, 2003», 318с. ISBX 944-53S-328-2.

6. Т. А. Павловська, Програмування високого рівня, Києво-Могилян. акад. 285с. 2005. ISBX 911-11S-418-4.

7. Н. Вірт - Алгоритми і структура даних, Києво-Могилян. акад., 366с. ISBX 962-75S-358-0.

8. Charls Petsold (Ч. Петзольд) - Код – таємна мова програмування. Washing. P., 2004. 206c. ISBX 162-53S-238-4.

9. http://www.ebooks.streltsov.spb.su/microsoft.htm.

10. http://www.aabooks.ru/books/180.html.

11. http://msdn.microsoft.com/ru-ru/asp.net/gg404476.

12. http://msdn.microsoft.com/ruru/library/yedba920.aspx.

Додаток 1 – Лістинг програми

Лістинг файлу «index.aspx»

<%@ Page Language=VB Debug=true %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat=server>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

Dim DBConn as OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

Dim I as Integer

Dim J as Integer

Dim TempID as String

Application("SurveyID") = 2

' Application("SurveyID") = 1

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C3/Survey/" _

& "Access/C3Survey.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select SurveyName, SurveyInstructions " _

& "From Surveys Where SurveyID = " _

& Application("SurveyID"), DBConn)

DBCommand.Fill(DSPageData, _

"SurveyInfo")

lblTitle.Text = "<CENTER>" _

& DSPageData.Tables("SurveyInfo"). _

Rows(0).Item("SurveyName") & "</CENTER>"

lblMessage.Text = DSPageData.Tables("SurveyInfo"). _

Rows(0).Item("SurveyInstructions")

DBCommand = New OleDbDataAdapter _

("Select SurveyQuestionID, SurveyQuestionLong " _

& "From SurveyQuestions Where SurveyID = " _

& Application("SurveyID"), DBConn)

DBCommand.Fill(DSPageData, _

"SurveyQuestions")

For I = 0 to DSPageData.Tables("SurveyQuestions"). _

Rows.Count - 1

Dim lcHTML = New LiteralControl

lcHTML.Text = DSPageData.Tables("SurveyQuestions"). _

Rows(I).Item("SurveyQuestionLong") & "<BR>"

pnlQuestions.Controls.Add(lcHTML)

Dim MyDDL = New DropDownList

TempID = DSPageData.Tables("SurveyQuestions"). _

Rows(I).Item("SurveyQuestionID")

MyDDL.ID = "Q" & TempID

DBCommand = New OleDbDataAdapter _

("Select SurveyAnswer " _

& "From SurveyAnswers Where SurveyQuestionID = " _

& TempID, DBConn)

DBCommand.Fill(DSPageData, _

TempID)

For J = 0 to DSPageData.Tables(TempID). _

Rows.Count - 1

Dim MyItem = New ListItem

MyItem.Text = DSPageData.Tables(TempID). _

Rows(J).Item("SurveyAnswer")

MyDDL.Items.Add(MyItem)

Next

pnlQuestions.Controls.Add(MyDDL)

lcHTML = New LiteralControl

lcHTML.Text = "<BR><BR>"

pnlQuestions.Controls.Add(lcHTML)

Next

End Sub

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)

Dim DBConn as OleDbConnection

Dim DBInsert As New OleDbCommand

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

Dim MyControl as Control

Dim MyDDL as DropDownList

DBConn = New OleDbConnection("Provider=sqloledb;" _

& "server=bhv2k;" _

& "Initial Catalog=INETC3;" _

& "User Id=sa;" _

& "Password=bhv;")

DBInsert.Connection = DBConn

' DBInsert.Connection.Open

For Each MyControl in pnlQuestions.Controls

If MyControl.GetType().FullName = _

"System.Web.UI.WebControls.DropDownList" Then

MyDDL = MyControl

DBInsert.CommandText = "Insert Into SurveyResponses " _

& "(SurveyQuestionID, SurveyResponse) " _

& "values (" _

& Mid(MyDDL.ID, 2) & ", " _

& "'" _

& Replace(MyDDL.SelectedItem.Text, "'", "''") _

& "')"

' DBInsert.ExecuteNonQuery()

End If

Next

DBCommand = New OleDbDataAdapter _

("Select SurveyResponse " _

& "From Surveys Where SurveyID = " _

& Application("SurveyID"), DBConn)

' DBCommand.Fill(DSPageData, _

' "SurveyInfo")

'lblMessage.Text = DSPageData.Tables("SurveyInfo"). _

' Rows(0).Item("SurveyResponse")

pnlQuestions.Visible = False

butOK.Visible = False

'ssssssssssssssssssssssssssssssssssssssssss

If butOK.Visible = False Then

Application("SurveyID") = 3

DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _

& "DATA SOURCE=" _

& Server.MapPath("/INetBook/C3/Survey/" _

& "Access/C3Survey.mdb;"))

DBCommand = New OleDbDataAdapter _

("Select SurveyName, SurveyInstructions " _

& "From Surveys Where SurveyID = " _

& Application("SurveyID"), DBConn)

DBCommand.Fill(DSPageData, _

"SurveyInfo")

lblTitle.Text = "<CENTER>" _

& DSPageData.Tables("SurveyInfo"). _

Rows(0).Item("SurveyName") & "</CENTER>"

lblMessage.Text = DSPageData.Tables("SurveyInfo"). _

Rows(0).Item("SurveyInstructions")

End If

'sssssssssssssssssssssssssssssssssssssssssss

End Sub

</SCRIPT>

<HTML>

<HEAD>

<TITLE>Тестування знань</TITLE>

</HEAD>

<BODY BACKGROUND="./lightblue.gif" TEXT="black" LINK="darkblue" VLINK="darkblue" ALINK="red" LEFTMARGIN="40">

<form runat="server">

<asp:Label

id="lblTitle"

BorderWidth="7px"

BorderStyle=7

Width="90%"

Font-Size="25pt"

Font-Name="Arial"

runat="server"/>

<Font Face="Arial">

<BR><BR>

<asp:Label

id="lblMessage"

Font-Bold="True"

runat="server"/>

<BR><BR>

<asp:Panel

id="pnlQuestions"

Width="90%"

runat="server">

</asp:Panel>

<asp:button

id="butOK"

text=" OK "

Type="Submit"

OnClick="SubmitBtn_Click"

runat="server"/>

</Font>

</Form>

</BODY>

</HTML>