Страница 309 из 476 BCaps «? Request .Browser If Len(Request.QueryString("PagelD")) - 0 Then lblMessage.Text - "He задана страница для закладки. " _ & "Выберите страницу." Elself BCaps.Cookies - False Then lblMessage.Text - "Закладка не создана. " _ & "Ваш браузер не поддерживает файлы cookie!" Else Response. Cookies ("Bookmark" __ « Request.QueryString("PagelD")).Expires - "5/1/2010" Response.Cookies("Bookmark" _ & Request.QueryString("PagelD")).Value - _ Request.QueryString("PagelD") lblMessage.Text - "Создана закладка на выбранную страницу." End If End Sub Для того чтобы установить, поддерживает ли браузер посетителя файлы cookie, нужен объект BrowserCapabilities: Dim BCaps As HttpBrowserCapabilities Данному объекту передаются параметры браузера посетителя:BCaps - Request.Browser После этого осуществляется проверка того, был ли передан странице код Page id: If Len(Request.QueryString("PagelD")) - 0 Then В случае получения отрицательного результата выводится сообщение об ошибке: lblMessage.Text - "Не задана страница для закладки. " _ & "Выберите страницу." Далее необходимо удостовериться, что браузер посетителя осуществляет поддержку файлов cookie: Elself BCaps.Cookies - False Then Если это не так, отображается сообщение об ошибке: lblMessage.Text - "Закладка не создана. " & "Ваш браузер не поддерживает файлы cookie!" Если же поддержка файлов cookie обеспечивается браузером» то задается действительность этих файлов в течение длительного времени: Response.Cookies("Bookmark" & Request.QueryString("PagelD")).Expires - "5/1/2010" и им присваиваются значения, основанные на коде PagelD: Response.Cookies("Bookmark" & Request.QueryString("PagelD")).Value - _ Request.QueryString("PagelD") А напоследок выводится сообщение для посетителя об успешном создании закладки: lblMessage.Text ~ "Создана закладка на выбранную страницу."
|