Решение следующее:

---

PHP - Код

echo "<pre>";

   // качаем страницу в переменную $buf

   $buf=implode("",file("http://www.ru/")); 

   // получем ссылки в массив

   preg_match_all("/<[Aa][ rnt]{1}[^>]*[Hh][Rr][Ee][Ff][^=]*=[ '"nrt]*([^ "'>rnt#]+)[^>]*>/",$buf,$url); 

   // выводим массив на экран

   while($i<count($url[1])) { echo $url[1][$i++]."n"; }

   echo "</pre>";

Все, что мы записываем в переменную $s (массив), будет доступно для чтения при следующем заходе посетителя на сервер. Про сессии, на самом деле, можно сказать очень много, чтобы описать возможности и особенноти.. Но если вы поюзаете пример и попробуете использовать в своих задачах, сами поймете.

---

PHP - Код

unset($s); // думаю, это писать не надо, но это явно не повредит
   session_start(); // это равносильно HEADERS() и SETCOOKIES(), до вызова функции
                    // ничего на экран не выводить
   session_register("s"); // объявляем, что $s является частью сессии


   if (isset($c) && $c=='clear') {
      // функция обнуления идентификации посетителя.
      unset($s);
      header("Location: sess.phtml");
      echo "clear...";
      exit;
   }

   echo "<a href=sess.phtml>обновить страницу</a><p>";
   echo "<a href=sess.phtml?c=clear>обнулить идентификацию</a><p>";

   if (!isset($s['count'])) {
      // Посетитель пришел впервые. Объявляем переменную, которая 
      // должны быть всегда. Это счетчик загрузок страницы.
      $s['count']=1;
   }
   else $s['count']++;
   echo "Вы загружили эту страницу раз: $s[count]<p>";

   // обработка формы, заполняемой посетителем
   // если введено имя, заносим в сессию
   if (strlen($name)>1) $s['name']=$name;

   if (!isset($s['name']))
      // если имя еще не введено, выводим форму для ввода
      echo "Вы новый пользователь. Пожалуйста,
      введите ваше имя:
      <form action=sess.phtml><input type=text name=name>
      <input type=submit></form>";
   else 
      // иначе пишем имя из сесси
      echo "Вы зарегистрированы под именем: $s[name]";

Процесс создания cookies на ASP очень прост. После создания этих файлов, они будут храниться на компьютерах у посетителей вашего сайта.

---

Одним из основных параметров у cookies является дата истечения срока их действия, т.е. expire date. Получается, что у вас, как у программиста, в руках жизнь этих файлов.

Еще отмечу, что если не указать дату expire для cookies, то они существуют до тех пор, пока пользователь не закрыл свой браузер.

Для примера:

Код

<%
1. Response.Cookies("siteName")= "DevTutorials"
2. siteName = Response.Cookies("siteName")
3. response.write ("Site Name is :" & siteName & vbnewline)
%>

Сейчас возьмите и откройте свой любимый бразуер (мой выбор в пользу огненного лиса Firefox :) ) и вызовите страницу с cookie.

Теперь просто удалите в коде строку (1), закройте браузер и еще раз вызовите код. Как вы можете видеть, уже имя сайта не отображается.

Все дело в том, что мы не модифицировали дату истечения срока действия cookie и при закрытии браузера они были потеряны.

Теперь рассмотрим код с добавленной датой expiration date:

Код

<%
0. Response.Cookies(("siteName").Expires= Now()+15
1. Response.Cookies("siteName")= "DevTutorials"
2. siteName = Response.Cookies("siteName")
3. response.write ("Site Name is :" & siteName & vbnewline)
%>

Теперь после закрытия браузера и повторного вызова кода можно видеть, что cookie по-прежнему продолжает существовать.

Я несколько раз видел в конференциях вопросы типа "как мне добавить элементы управления в TTabbedNotebook или TNotebook во время выполнения программы?". Теперь, когда у меня выдалось несколько свободных минут, я попытаюсь осветить этот вопрос как можно подробнее.

---

TTabbedNotebook

Добавление элементов управления в TTabbedNotebook во время проектирования - красивая и простая задача. Все, что Вам нужно - это установить свойство PageIndex или ActivePage на необходимую страницу и начать заполнять ее элементами управления.

Добавление элементов управление во время выполнения приложения также очень просто. Тем не менее, в прилагаемой документации по Delphi вы не найдете рецептов типа Что-и-Как. Видимо для того, чтобы окончательно запутать начинающих программистов, фирма-изготовитель даже не удосужилась включить исходный код TTabbedNotebook в VCL-библиотеку. Таким образом, TTabbedNotebook остается для некоторых тайной за семью печатями. К счастью, я имею некоторый опыт, коим и хочу поделиться.

Первым шагом к раскрытию тайны послужит просмотр файла DELPHIDOCTABNOTBK.INT, интерфейсной секции модуля TABNOTBK.PAS, в котором определен класс TTabbedNotebook. Беглый просмотр позволяет обнаружить класс TTabPage, описанный как хранилище элементов управления отдельной страницы TTabbedNotebook.

Вторым шагом в исследовании TTabbedNotebook может стать факт наличия свойством Pages типа TStrings. В связи с этим отметим, что Delphi-классы TStrings и TStringList соорганизуются с двумя свойствами: Strings и Objects. Другими словами, для каждой строки в TStrings есть указатель на соответствующий Objects. Во многих случаях этот дополнительный указатель игнорируется, нам же он очень пригодится.

После небольшого эксперимента выясняем, что свойство Objects указывает на нашу копию TTabPage и ссылается на имя страницы в свойстве Strings. Блестяще! Всегда полезно знать что ищешь. Теперь посмотрим что мы можем сделать:

Код

{ Данная процедура добавляет кнопку в случайной позиции на }
{ текущей странице данного TTabbedNotebook. }

procedure AddButton(tabNotebook : TTabbedNotebook);
var

tabpage : TTabPage;
button : TButton;
begin

with tabNotebook do
tabpage := TTabPage(Pages.Objects[PageIndex]);
button := TButton.Create(tabpage);
try
with button do begin
Parent := tabpage;
Left := Random(tabpage.ClientWidth - Width);
Top := Random(tabpage.ClientHeight - Height);
end;
except
button.Free;
end;
end;

TNotebook

Операция по заполнению элементами управления компонента TNotebook почти такая же, как и в TTabbedNotebook - разница лишь в типе класса - TPage вместо TTabPage. Тем не менее, если вы заглянете в DELPHIDOCEXTCTRLS.INT, декларацию класса TPage вы там не найдете. По неизвестной причине Borland не включил определение TPage и в DOC-файлы, поставляемые с Delphi. Декларация TPage в EXTCTRLS.PAS (можно найти в библиотеке VCL-исходников), правда, расположена в интерфейсной части модуля. Мы восполним пропущенную информацию о классе TPage:

Код

TPage = class(TCustomControl)
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
protected
procedure ReadState(Reader: TReader); override;
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
published
property Caption;
property Height stored False;
property TabOrder stored False;
property Visible stored False;
property Width stored False;
end;

Теперь, по аналогии с вышеприведенной процедурой, попробуем добавить кнопку на TNotebook. Все, что мы должны сделать - заменить "TTabbedNotebook" на "TNotebook" и "TTabPage" на "TPage". Вот что должно получиться:

Код

{ Данная процедура добавляет кнопку в случайной позиции на }
{ текущей странице данного TNotebook. }

procedure AddButton(Notebook1 : TNotebook);
var

page : TPage;
button : TButton;
begin

with Notebook1 do
page := TPage(Pages.Objects[PageIndex]);
button := TButton.Create(page);
try
with button do begin
Parent := page;
Left := Random(page.ClientWidth - Width);
Top := Random(page.ClientHeight - Height);
end;
except
button.Free;
end;
end;