
Проект Закладки
Проект Регистрация
Проект Предпочтения
Во втором элементе Label отображается сообщение о результате записи cookie-файлов на компьютер посетителя:
<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Verdana"
runat="server"
/>
Никакие другие элементы управления на этой странице не нужны. Когда страница загружена, срабатывает следующий блок кода:
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim BCaps As HttpBrowserCapabilities
BCaps = Request.Browser
If Len(Request.QueryString("PagelD")) = 0 Then
IblMessage.Text = "He задана страница для закладки. " _
& "Выберите страницу."
Elself BCaps.Cookies = False Then
IblMessage.Text = "Закладка не создана. " _
& "Ваш браузер не поддерживает файлы cookie!"
Else
Response.Cookies("Bookmark" _
& Request.QueryStringC'PagelD")).Expires = "5/1/2010"
Response.Cookies("Bookmark" _
& Request.QueryStringC'PagelD")).Value = _
Request.QueryStringC'PagelD")
IblMessage.Text = "Создана закладка на выбранную страницу."
End If
End Sub
Для того чтобы установить, поддерживает ли браузер посетителя файлы cookie, нужен объект BrowserCapabilities:
Dim BCaps 'As HttpBrowserCapabilities
Данному объекту передаются параметры браузера посетителя:
После этого осуществляется проверка того, был ли передан странице код Радею:
If Len(Request.QueryStringC'PagelD")) = 0 Then
В случае получения отрицательного результата выводится сообщение об ошибке:
IblMessage.Text = "Не задана страница для закладки. " _
& "Выберите страницу."
Далее необходимо удостовериться, что браузер посетителя осуществляет поддержку файлов cookie:
Elself BCaps.Cookies = False Then
Если это не так, отображается сообщение об ошибке:
IblMessage.Text = "Закладка не создана. " _
& "Ваш браузер не поддерживает файлы cookie!"
Если же поддержка файлов cookie обеспечивается браузером, то задается действительность этих файлов в течение длительного времени:
Response.Cookies("Bookmark" _
& Request.QueryString("PageID")).Expires = "5/1/2010"
и им присваиваются значения, основанные на коде Page ID:
Response.Cookies("Bookmark" _
& Request.QueryStringC'PagelD")).Value = _
Request.QueryString("PagelD")
А напоследок выводится сообщение для посетителя об успешном создании закладки:
IblMessage.Text = "Создана закладка на выбранную страницу."
Страница Закладки
На странице Закладки содержится перечень всех страниц, отмеченных посетителем. Элемент Label предназначен для отображения заголовка страницы:
<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=9
Width="90%"
Font-Size="25pt"
Font-Name="Impact"
Text="Закладки"
runat="server"
/>
|