| Код |
<html>
<head>
<TITLE>Регистрация в каталоге</TITLE>
</head>
<body>
<script language="JavaScript">
<!--
function namosw_goto_byselect(sel, targetstr)
{
var index = sel.selectedIndex;
if (sel.options[index].value != '') {
if (targetstr == 'blank') {
window.open(sel.options[index].value, 'win1');
} else {
var frameobj;
if (targetstr == '') targetstr = 'self';
if ((frameobj = eval(targetstr)) != null)
frameobj.location = sel.options[index].value;
}
}
}
// -->
</script>
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<form name="form1">
<p><select name="formselect1" size="1" OnChange="namosw_goto_byselect(this, 'self')">
<option selected value="http://mysite.com/wfsearch.08/hi-tech.php">Hi-Tech </option>
<option value="http://mysite.com/wfsearch.08/job.php">Работа </option>
<option value="http://mysite.com/wfsearch.08/Science.php">Наука и образование</option>
<option value="http://mysite.com/wfsearch.08/home.php">Дом </option>
<option value="http://mysite.com/wfsearch.08/Society.php">Общество</option>
<option value="http://mysite.com/wfsearch.08/Rest.php">Отдых</option>
<option value="http://mysite.com/wfsearch.08/Culture.php">Культура</option>
<option value="http://mysite.com/wfsearch.08/Media.php">СМИ</option>
<option value="http://mysite.com/wfsearch.08/Business.php">Бизнес</option>
<option value="http://mysite.com/wfsearch.08/others.php">Прочее</option>
</select></p>
</form>
<p> </p>
<?
print "<table width= cellpadding=0 cellspacing=0 border=0 align=center>
<p>| <a href=\"addsite1.php?kshyms=add\">Добавить сайт </a>| | <a
href=\"addsite1.php?kshyms=addsite\">Просмотреть базу</a> | Ключевые слова</p>
";
print "<body>
<div align=\"center\"><center>
<table border=\"1\" width=\"711\" height=\"25\" bordercolor=\"#FFFFFF\" bgcolor=\"#E9E9E9\"
bordercolorlight=\"#FFFFFF\" bordercolordark=\"#FFFFFF\">
<tr>
<td width=\"209\" height=\"25\">
Описание</td>
<td width=\"209\" height=\"25\">
URL</td>
<td width=\"209\" height=\"25\">
Ключевые слова</td>
</tr>
</table>
</center></div>
</body>";
switch($kshyms) :
default :
print "<table width= cellpadding=0 cellspacing=0 border=0 align=center>";
break;
case("add") :
print "
<center><h2>Добавить сайт</h2></center>
<form action=addsite1.php?kshyms=kshyms method=post>
URL : <input type=text value='' name=name size=30><br>
E-mail : <input type=text value='' name=mail size=30><br>
Заголовок : <input type=text value='' name=zag size=30><br>
Ключевые слова : <textarea cols=40 rows=5 size=100 name=mess></textarea><br>
<input type=submit value='Отправить'>
</form>
";
break;
case("kshyms") :
if ($name == "") {print "Введите имя!"; exit;}
if ($mess == "") {print "Введите текст!"; exit;}
if ($zag == "") {print "Введите заголовок!"; exit;}
if (!eregi("^([0-9a-z]([-_.]?[0-9a-z])*@[0-9a-z]([-.]?[0-9a-z])*\\.[a-wyz][a-z](fo|g|l|m|mes|o|op|pa|ro|seum|t|u|v|z)?)$", $mail) and $mail != "") {print "Вы ввели некорректный E-mail адрес!"; exit;}
$er = 1;
$id = date("dmGs");
$text = "$name:::$mail:::$zag:::$mess:::$date:::$id";
$text = stripslashes($text);
$text = htmlspecialchars($text);
$text = str_replace("\r\n", "<br>", $text);
$text = str_replace(":red:", "<font color=#ff0000>", $text);
$text1 = $text;
$text = substr($text,0,900);
print "Спасибо $name, за добавление сайта!";
$fp=fopen("addsite.data","a");
fputs($fp,"\r\n $text");
fclose($fp);
$fp=fopen("$id.data","a");
fputs($fp,"\r\n $text");
fclose($fp);
@chmod("$id.data", 0777);
break;
case("addsite") :
$n = "0";
$g = "0";
$fill="addsite.data";
$test = file("$fill");
$size = sizeof($test);
$num = $size;
do {
$data = explode(":::", $test[$num]);
if ($data[0] != "") {
print"
<br>
<body>
<div align=\"center\"><center>
<table border=\"0\" width=\"711\" height=\"25\" bordercolor=\"#FFFFFF\" bgcolor=\"#F8F8F8\"
bordercolorlight=\"#FFFFFF\" bordercolordark=\"#FFFFFF\">
<tr>
<td width=\"209\" height=\"25\">
<a href=\"addsite1.php?kshyms=shyms&id=$data[5]\">$data[2]</a>
<td width=\"209\" height=\"25\">
<a href=mailto:$data[1]>$data[0]</a>
<td width=\"209\" height=\"25\">
  $data[4]</td>
</tr>
</table>
</center></div>
</body>
</html> ";
}
$num3 = $num+17;
if ($g == "17") { print "<tr><td colspan=2><hr size=1>
";
$num4 = $num3/17;
$num4 = explode(".", $num4);
$n = "0";
do {
$nn = $n+1;
$n++;
} while($n < $num4[0]);
exit; }
$g++;
$num--;
$n++;
} while ($n < "$size");
break;
case("shyms") :
if ($id == "") { print "error"; exit; }
$data1 = file("$id.data");
$data1size = sizeof($data1);
$n = "0";
do {
$datatext = explode(":::", $data1[$n]);
if ($n == "0") { $col = $id; $subject = "$datatext[3]"; } else { $col = $id; }
if ($datatext[3] != "") {
print"
<font size=\"2\"> $datatext[2]
<br>
<body>
<div align=\"center\"><center>
<table border=\"0\" width=\"711\" height=\"25\" bordercolor=\"#FFFFFF\" bgcolor=\"#F8F8F8\"
bordercolorlight=\"#FFFFFF\" bordercolordark=\"#FFFFFF\">
<tr>
<td width=\"209\" height=\"25\">
<a href=mailto:$datatext[1]>$datatext[0]</a>
<td width=\"400\" height=\"50\">
$datatext[3]
<td width=\"209\" height=\"25\">
  $datatext[4]</td>
</tr>
</table>
</center></div>
</body>
</html> ";
}
$n++; } while($n < $data1size);
$text = "$name:::$mail:::$zag:::$mess:::$date:::$id";
$text = stripslashes($text);
$text = htmlspecialchars($text);
$text = str_replace("\r\n", "<br>", $text);
$text = str_replace(":red:", "<font color=#ff0000>", $text);
$text1 = $text;
$text = substr($text,0,900);
print "Спасибо $name, за добавление ответа. Вернитесь <a href=\"javascript:history.back(1)\">Назад</a>";
$fp=fopen("$id.data","a");
fputs($fp,"\r\n $text");
fclose($fp);
@chmod("$fp", 0777);
break;
endswitch;
print"<link rel=\"stylesheet\" type=\"text/css\" href=\"styles.css\">";
?>
</body>
</html>
|
Вообщем идея такая добавляем сайт на выбранную страницу каталога без примения HTTP. Всем страницам каталога объявляем чмод 0777. При написании скрипта использовались готовые фразы из 3 скриптов форумов Этот скрипт 3 в 1 каталог сайтов. Пока не работает. Но думаю в перспективе заработает, если подскажите. Если нет тогда попозже думаю все равно заработает. Я думаю здесь еще много лишнего. Если уберете лишнее буду также премного благодарен.  он здесь Это сообщение отредактировал(а) kshyms - 18.11.2007, 11:55 |
каталог сайтов, проблема наладки скрипта 
Дата 18.11.2007, 11:05 (
Загрузка ...
