Просмотр файла ParkerLove/change.php

<?

$page = "
<table width=\"500\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Имя:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">$name</font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Возраст:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">$age</font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Пол:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">$sex</font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">E-mail:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href='mailto:$mail'>$mail</a></font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">ICQ:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href='http://www.icq.com/$icq'>$icq</a></font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Сайт:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href='http://$site'>Есть!</a></font></td>
  </tr>
  <tr> 
    <td width=\"80\" bgcolor=\"#FFE1E1\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Цель знакомства:</font></td>
    <td width=\"420\" bgcolor=\"#FFFFCC\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">$wish</font></td>
  </tr>
</table>
<font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><b>О себе:</b></font><BR> 
<pre><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">$about</font><pre>
<hr size=\"1\" width=\"500\" align=\"left\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><a href = \"change.php?do=change\">Изменить личную информацию.</a></font>";

$fp = fopen ("data.dat", "r+"); // открываем файл
$read = fgetss($fp, 4000); // счтиваем файл
list($l_login,$p_pass,$n_name,$m_mail,$i_icq,$s_site,$a_age,$s_sex,$w_wish,$a_about) = split(':',$read); // читаем строки и определяем переменные

?>

<form name="form1" method="post" action="change.php">
  <table border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;
 border:none;mso-border-alt:solid windowtext .0pt;mso-padding-alt:0cm 0pt 0cm 0pt' width="72%">
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Логин:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="text" name="login">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%"><font color="#FFFFFF">...</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        (не менее 3 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Пароль: 
        </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="text" name="pass">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        (не менее 3 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Имя:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="text" name="name" value="<? print $n_name; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%" height="11"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%" height="11"> 
        <input type="text" name="mail" value="<? print $m_mail; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%" height="11">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%" height="11"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></td>
    </tr>
    <tr>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%" height="11"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">ICQ:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%" height="11"> 
        <input type="text" name="icq" value="<? print $i_icq; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%" height="11">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%" height="11">&nbsp;</td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%" height="11"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Страничка:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%" height="11"> 
        <input type="text" name="site" value="<? print $s_site; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%" height="11">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%" height="11">&nbsp;</td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Возраст:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="text" name="age" value="<? print $a_age; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Пол:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <select name="sex" size="1">
          <option value="">Выберите категорию!</option>
          <option value="Мужской">Мужской</option>
          <option value="Женский">Женский</option>
        </select>
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Цель:: 
        </font> </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <select name="wish" size="1">
          <option value="">Выберите категорию!</option>
          <option value="Дружба">Дружба</option>
          <option value="Переписка">Переписка</option>
	  <option value="Длительные отношения">Длительные отношения</option>
	  <option value="Фин. помощь">Фин. помощь</option>
 	  <option value="Секс">Секс</option>
        </select>
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">*</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">О себе: 
        </font> </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="text" name="about" value="<? print $a_about; ?>">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        (не более 300 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%"> 
        <input type="submit" name="Submit" value="Изменить!">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%">&nbsp;</td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="8%">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="29%">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="2%">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width="61%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000"> 
        Поля, отмеченные (*) являются обязательными для заполнения</font></b></font></td>
    </tr>
  </table>
</form>

<?

$form2 = "
<form name=\"form1\" method=\"post\" action=\"change.php\">
<input type=\"hidden\" name=\"seenform2\" value=\"y\">
  <table border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;
 border:none;mso-border-alt:solid windowtext .0pt;mso-padding-alt:0cm 0pt 0cm 0pt' width=\"72%\">
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"5%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Логин:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"21%\"> 
        <input type=\"text\" name=\"old_login\">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"1%\"><font color=\"#FFFFFF\">...</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"73%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> 
        (не менее 3 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"5%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Пароль: 
        </font><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> </font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"21%\"> 
        <input type=\"text\" name=\"old_pass\">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"1%\">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"73%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> 
        (не менее 3 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"5%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Логин:</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"21%\"> 
        <input type=\"text\" name=\"new_login\">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"1%\"><font color=\"#FFFFFF\">...</font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"73%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> 
        (не менее 3 символов) *</font></td>
    </tr>
    <tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"5%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Пароль: 
        </font><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> </font></td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"21%\"> 
        <input type=\"text\" name=\"new_pass\">
      </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"1%\">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"73%\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"> 
        (не менее 3 символов) *</font></td>
    </tr>
<tr> 
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"5%\">&nbsp;</td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"21%\"> 
        <input type=\"submit\" name=\"Submit\" value=\"Изменить!\">
        </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"1%\">&nbsp; </td>
      <td valign=top style='border:none;padding:0cm 0pt 0cm 0pt' width=\"73%\">&nbsp;</td>
    </tr>
  </table>
</form>";

 if ($pass != $p_pass or $login != $l_login)
	{
	$error = 1;
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><b>Введите пароль и логин!</b></font><BR>";
	}
 if ($login == "" or $pass == "" or $name == "" or $mail == "" or $age == "" or $sex == "" or $wish == "" or $about == "")
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Заполните все поля!</font><br>";
	$error = 1;
	}
 if (strlen($login) <=3 and $login != "")
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Логин должен быть более чем 3 символа!</font><br>";
	$error = 1;
	}
 if (!eregi("^([_A-Za-z0-9А])", $login) and $login != "")
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Логин должен состоять из латинский букв и (или) цифр!</font><br>";
	$error = 1;
	}
 if (!eregi("^([_A-Za-z0-9])", $pass) and $pass != "")	
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Пароль должен состоять из латинских букв и (или) цифр!</font><br>";
	$error = 1;
	}
 if (!eregi("^([0-9])", $age) and $age != "")	
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Поле <b>Возраст</b> должно состоять только из цифр!</font><br>";
	$error = 1;
	}
 if (strlen($pass) <= 3 and $pass != "")
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Пароль должен быть более чем 3 символа!</font><br>";
	$error = 1;
	}
 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 "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Вы ввели некорректный e-mail адрес!</font><br>";
	$error = 1;
	}
 if (!eregi("^([0-9])", $icq) and $icq != "")	
	{
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">ICQ - обычно это набор цифр...</font><br>";
	$error = 1;
	}
 if (strlen($mail) > 30 and $mail != "")
	{
	print  "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">E-mail не должен превышать 30 символов!</font><br>";
	$error = 1;
	}
 if (strlen($about) > 300 and $about != "")
	{
	print  "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">В поле <b>О себе</b> больше чем 300 символов - не пойдёт!</font><br>";
	$error = 1;
	}

 if ($error == "" and $login == $l_login and $pass == $p_pass)
	{
	$fd = fopen("page.htm","w");
	fwrite ($fd, $page);
	print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"3\">Ваша информация изменена. Вы увидете это после того, как вернётесь на вашу страничку прямо <a href = 'page.htm'><b>здесь</b></a>!</font><br>";
	fclose($fd);
	
	$fp = fopen("data.dat","w");
	fwrite ($fp, "$login:$pass:$name:$mail:$icq:$site:$age:$sex:$wish:$about");
	fclose($fp);
	}
	
?>