|
|||||||||
Автор: Alexander Suhhinin Продолжим создание каталогизатора ссылок. В одной из предыдущих статей мы создали две таблицы в базе данных на сервере MySql:
"ProgramminG-программирование для всех!";"http://www.programming.dax.ru";1 "Corwell Design Studio";"http://www.cds.ru";1 "МТУ-Информ";"http://www.mtu.ru";1 "Студия Артемия Лебедева";"http://www.design.ru";1 "Каталог детских ресурсов";"http://www.kinder.ru/";1 "Быки и коровы";"http://bk.ru";2 "Мерен";"http://meren.ru/";2 "Все девочки";"http://www.allgirls.ru/";2 "Развлекательный сайт пива Доктор Дизель";"http://www.doctordizel.ru";2 "Анекдотов.net - максимум развлечений";"http://anekdotov.net";2 "Знакомства и Развлечения";"http://www.atis.kz/";2 "Чертовы Кулички";"http://www.kulichki.com/";2 "Драконье логово";"http://balrog.virtualave.net/";2 "Инфосити";"http://www.infocity.kiev.ua/";3 "Открытые системы";"http://www.opennet.ru/";3 "Масса полезной документации";"http://citforum.ru/";3 "Download.ru";http://www.download.ru/;4 "СОФТЛИСТ.РУ";http://www.softlist.ru/;4 "Темы.РУ";http://www.themes.ru/;4 "Altavista.com";"http://www.altavista.com/";5 "Яндекс.ру";"http://www.yandex.ru/";5 "Мета-ukraine";"http://meta-ukraine.com/";5 "Gala chat";"http://www.galachat.com";6 "Свежак для открытых систем";"http://freshmeat.net";7 "Sourceforge";"http://sourceforge.net";7 "Linuxguru";"http://www.linuxguru.com";7 "Для Web-разработчика";"http://www.stars.com";7 "PHP.net";"http://www.php.net";8 "Google groups";"http://groups.google.com";9 "Lenta.ru";"http://lenta.ru";10 "Корреспондент.нет";"http://www.korrespondent.net";10Сохранить его , скажем в "c:\MyDocs\links.txt". Теперь нужно поместить его в таблицу links. Мы это уже делали с категориями, теперь запросом LOAD DATA LOCAL INFILE '/MyDocs/links.txt' REPLACEзаполним таблицу ссылок из текстового файла. Запрос можно выполнить как из скрипта, так и из программы администрирования SQL сервера. Теперь можно писать скрипт, который будет выводить список ссылок из выбранной категории. В предыдущей статье мы написли ссылкуprint "<td>","<a href=\"$scr_name?page=$ln->{'id'}\">$ln->{'name'}</a>","</td></tr>\n"; Значит, в качестве параметров мы передаем скрипту номер (id) категории под именем page. Чтобы вывести ссылки только из данной категории, нужно выполнить SQL запрос SELECT * FROM links WHERE category=id;Скрипт будет выполнять следующие действия:
<!-- LINKS_HERE -->Программа на языке Perl будет иметь следующий вид: #!/usr/bin/perl use DBI; print "Content-type:text/html\n\n"; $temp=$ENV{'QUERY_STRING'}; # Разбор строки параметров if ($temp ne '') { @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2);В результате исполнения этого скрипта будет выведен список ссылок, оформленный как Немаркированный список, каждая ссылка будет открываться в новом окне. Надеюсь, принцип работы данной программы понятен, и каждый волен ее дорабатывать на свой вкус. Я , например в рабочей версии каталогизатора (она, правда написана на PHP), еще добавил в таблицу links еще и описание ресурса, и счетчик, куда записывается каждый клик по ссылке. Автор: Alexander Suhhinin |
|||||||||
![]() |
![]() |