Проект Анкета
Проект Подробности
Проект Поиск магазина

Код на странице Анкета отображает вопросы, задаваемые посетителю, и добавляет их ответы в базу данных. В начале страницы помешены три директивы компилятора:

<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>

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

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

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Bold="True"
runat-"server"
/>

<asp:Panel
id="pnlRequest"
Width="90%"
runat="server"
/>
</asp:Panel>

Обратите внимание, что элемент управления Panel пока не содержит других элементов управления. Они будут добавлены в процессе работы программы.

<asp:button
id="butOK"
text=" OK "
Type="Submit"
OnClick"="SubmitBtn_Click"
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("SurveylD") = I
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server-localhost;"
& "Initial' Catalog=INETC3;" _
& "User Id-sa;"
& "Password-yourpassword;")
DBCommand.« New OleDbDataAdapter _
("Select SurveyName, Surveylnstructions " _
& "From Surveys Where SurveylD = " _
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _
"Surveylnfo")
IblTitle.Text=,"<center>" _
& DSPageData.Tables("Surveylnfo"). _
Rows(0).ItemC'SurveyName") &"</center>"
IblMessage.Text - DSPageData.Tables("Surveylnfo"). _
Rows(0).Item("Surveyшnstructions")
DBCommanand - New OleDbDataAdapter _
("Select SurveyQuestionID, SurveyQuestionLong " _
& "From SurveyQuestions Where SurveylD = " _
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _
"SurveyQuestions")
For I = 0 to DSPageData.Tables("SurveyQuestions"). _
Rows.Count - 1
Dim IcHTML - New LiteralControl
IcHTML.Text " DSPageData.Tables("SurveyQuestions"). _
Rows(I).Item("SurveyQuestionLong") &"<br>"
pnlQuestions.Controls.Add(IcHTML)
Dim MyDDL = New DropDownList
TempID=DSPageData.Tables("SurveyQuestions"). _
Rows (I) .ItemC'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, Myltem = New ListItem
Myltem.Text = DSPageData.Tables(TempID). _
Rows (J). .Item("SurveyAnswer")
MyDDL.Items.Add(Myltem)
Next
pnlQuestions.Controls.Add(MyDDL)
lcHTML2 - New LiteralControl
lcHTML2.Text="<br><br>"
pnlQuestions.Controls.Add(IcHTML2)
Next
End Sub