Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Вниз

internet   Найти похожие ветки 

 
eduard   (2003-03-10 14:19) [0]

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


 
Beginer1   (2003-03-10 17:47) [1]

delphi тут вопще то ни причем. все зависет от сервера(Там где ты хочеш разместить свой сайт) но вот сылка может поможет

http://www.debryansk.ru/support/faq/httpaccess/index.shtml

:-)


 
Tornado   (2003-03-10 19:20) [2]

Это делается легко на языке PHP или подобном, примерно так:
<?php
function form()
{
echo "
<form action=admin.php method=get>
<table border=0 width=500 align=center cellspacing=1 cellpadding=3 bgcolor=000080>
<tr><td align=center bgcolor=face7d><font face=verdana size=2></td></tr>
<tr><td align=center bgcolor=face7d><font face=verdana size=2 color=de0000>Введите пароль</font></td></tr>
<tr><td align=center bgcolor=face7d><input typy=text name=p size=25></td></tr>
<tr><td align=center bgcolor=face7d><input type=submit value=Войти></td></tr>
</form>
";
}

if ($p != "1111") // если неправильный пароль - снова выводим форма для ввода пароля
{
form();
}
if ($p == "1111")
{
echo "

<form action=admin.php?action=done method=POST>
ну а пароль верный то выводим нужный раздел
</form>



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
1-87896
Delphi5.01
2003-03-16 09:01
2003.03.27
String to Procedure Name


1-88007
Bit Swinger
2003-03-14 01:08
2003.03.27
Как можно эмулировать командный процессор ОС Unix в виндах..


3-87856
Сергей
2003-03-10 20:05
2003.03.27
LEFT JOIN


6-88107
Sirus
2002-12-23 14:57
2003.03.27
Как полуить текст HTML Документа из TWebBrowser???


1-88053
zom
2003-03-14 17:38
2003.03.27
Сохранение и редактирование файлов QuickReport (*.QRT)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский