Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Закладки
Проект Регистрация
Проект Предпочтения
Если регистрация не была выполнена, посетитель направляется на страницу Регистрация:
-
Response.Redirect("./index.aspx")
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC12;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBOpdate.CommandText = "Update Users set " _
& "TextFont. = '" _
& ddlTextFont.Selectedltern.Value & "',"_
& "TextColor = '" _ & ddlTextColor.Selectedltem.Value & "', " _
& "BGColor = '" _
& ddlBGCOlor.Selectedltem.Value & "' " _
& "Where UserlD = " & Session("UserlD")
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery ()
Response.Redirect("./demo.aspx")
End Sub
-
DBUpdate.CommandText = "Update Users set " _
& "TextFont = '" _ & ddlTextFont.Selectedltem.Value & "',"_
& "TextColor = '" _
& ddlTextColor.Selectedltem.Value & "', " _
& "BGColor = '"
& ddlBGCOlor.Selectedltem.Value & "' " _
& "Where UserlD = " & Session("UserlD")
-
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
-
DBUpdate.ExecuteNonQuery()
-
Response.Redirect("./demo.aspx")
Эта страница показывает, как получить заданные пользователем параметры использованных дляизменения вида любой нужной страницы.
Два элемента Label в теле страницы определены таким образом, чтобы шрифт и цвет выводимого ими текста устанавливались в соответствии с настройками посетителя:-
<asp:Label
id="lb!Title"
BorderWidth="7px"
BorderStyle=9
Width="90%"
Font-Size="25pt"
Text="fleMOHCTpauMH того, как используются параметры"
runat="server"
<asp: Label
id="lblMessage"
Font-Si ze="12pt"
runat=" server"
-
Private TheTextFont as String
Private TheTextColor as String
Private TheBGColor
Это означает, что переменные будут доступны из любой процедуры на странице или непосредственно в теле страницы. Все они предназначены для временного хранения параметров, заданных посетителем.
При загрузке страницы выполняется следующая процедура:-
Sub Page_Load (ByVal Sender as Object, ByVal E as EventArgs)
If Len (Session ("UserlD") ) = 0 Then
Response. Redirect (" . /index.aspx")
End If
Dim DBConn as OleDbConnection
Dim DBCornmand As OleDbDataAdapter
Dim DSPrefs as New DataSet
Dim MyColor as new System. Drawing. Color
DBConn = New OleDbConnection ("Provider=sqloledb; " _
& "server=localhost; " _
& "Initial Catalog=INETC12;" _
& "User Id=sa;" _
& "Password=yourpassword; ")
DBCommand = New OleDbDataAdapter _
("Select TextFont, TextColor, BGColor " _
& "From Users Where " _
& "UserlD = " & Session ("UserlD") , DBConn)
DBCommand. Fill (DSPrefs, _
"Prefs")
TheTextFont = DSPrefs .Tables ("Prefs") . _
Rows (0) .Item ("TextFont")
TheTextColor = DSPrefs .Tables ("Prefs") . _
Rows (0) .Item ("TextColor")
TheBGColor = DSPrefs. Tables ("Prefs") . _
Rows(O) .Item ("BGColor")
IblMessage .Text = "Внешний вид этой страницы " _
& "сформирован с учетом ваших установок!"
IblMessage. Font. Name = TheTextFont
IblMessage . ForeColor= MyColor . FromName (TheTextColor)
IblTitle. Font .Name = TheTextFont
lblTitle.ForeColor= MyColor.FromName(TheTextColor) End Sub
 |
 |
|
