Autor Zpráva
lopik
Profil
#1 · Zasláno: 13. 7. 2006, 16:50:21
Odpovědět Citovat
prosim o radu. ako spravim to ze ked niekto zada svoj email da sa odkaz na jeho meno a po kliknuti sa bude dat poslat mail ale ked mail nezada tak aby odkaz na to meno uz nebol. lebo co som vytvoril ja tak aj po nezadani mailu sa hadzal odkaz na mailto ale prazdny. dik
Hugo
Profil
#2 · Zasláno: 13. 7. 2006, 16:58:18
Odpovědět Citovat
Otestujes, jestli je email zadany a podle toho se ridis, napr takto

print Trim($data['Email']) == '' ? $data['Jmeno'] : '<a href="mailto:'.$data['Email'].'.">'.$data['Jmeno'].'</a>';
lopik
Profil
#3 · Zasláno: 13. 7. 2006, 17:23:16 · Upravil/a: lopik
Odpovědět Citovat
tu pridavam kod v insert.php ktory som vytvoril a odkaz tam je aj ked nezadam email:


<?
$jmeno = HTMLSpecialChars($jmeno);
$email = HTMLSpecialChars($email);
$web = HTMLSpecialChars($web);


$jmeno = "<table><tr><td class=jmeno><A HREF=mailto:$email>$jmeno</A></td></tr>";
$email = "<tr><td class=odkaz></td></tr>";
if ($web!="" && $web!="http://"):


$www = "<tr><td class=odkaz><A HREF=\"$web\">$web</A></td></tr>";
endif;

$cas = "<tr><td class=cas><div align= center>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</div></td></tr>";

$zprava = SubStr($zprava, 0, 1500);
$zprava = Trim($zprava);
$zprava = HTMLSpecialChars($zprava);
$zprava = Str_Replace("\n"," <BR> ", $zprava);

$znak = 66;
$slovo = Split("[[:blank:]]+", $zprava);
for($y=0;$y<Count($slovo);$y++):
$slovo[$y] = Trim($slovo[$y]);
if (Strlen($slovo[$y])<=$znak): if (EregI("^(www\..+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]);
elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]);
else:
$odkaz = $slovo[$y] . " ";
endif;
$celek .= $odkaz;
else:
$delit = Ceil(StrLen($slovo[$y])/$znak);
for($z=0;$z<$delit;$z++):
$cast = Substr($slovo[$y], $z*$znak, $znak);
$celek .= $cast . " - ";
endfor;
endif;
endfor;

$zprava = Str_Replace("&lt;b&gt;", "<b>", $celek);
$zprava = Str_Replace("&lt;/b&gt;", "</b>", $zprava);

$zprava = Str_Replace("&lt;i&gt;", "<i>", $zprava);
$zprava = Str_Replace("&lt;/i&gt;", "</i>", $zprava);

$zprava = Str_Replace("&lt;u&gt;", "<u>", $zprava);
$zprava = Str_Replace("&lt;/u&gt;", "</u>", $zprava);

$zprava = "<tr><td class=text><br>$zprava</td></tr>
</table>

<hr color=#00008B>\n";

$write = StripSlashes($jmeno . $email . $www . $cas . $zprava);

if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
$data = FRead ($fp, FileSize("book.dat"));
FClose($fp);
endif;

$fp = FOpen ("book.dat", "w");
FWrite ($fp, $write.$data);
FClose ($fp);

?>
<html><head>
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=kniha.php">
</head></html>
Hugo
Profil
#4 · Zasláno: 13. 7. 2006, 17:34:01
Odpovědět Citovat 

$jmeno = Trim($email) == '' ? 

  "<table><tr><td class=jmeno>$jmeno</td></tr>" : 

  "<table><tr><td class=jmeno><A HREF=mailto:$email>$jmeno</A></td></tr>";
lopik
Profil
#5 · Zasláno: 13. 7. 2006, 17:43:22
Odpovědět Citovat
dik moc si mi pomohol
lopik
Profil
#6 · Zasláno: 13. 7. 2006, 22:10:40
Odpovědět Citovat
este sa vyskytol jeden problem. ked som zadal aj mail odkaz sa mi zadal ale napisal sa mi aj nad meno zadany email. neviete mi poradit preco?
tu je novy kod:

<?

$jmeno = HTMLSpecialChars($jmeno);
HTMLSpecialChars($email);
$predmet = HTMLSpecialChars($predmet);


$jmeno = Trim($email) == '' ?
"<table><tr><td class=jmeno><b>Meno:</b> $jmeno</tr></td>":
"<table><tr><td class=jmeno><b>Meno:</b> <A HREF=mailto:$email>$jmeno</A></td></tr>";


$predmet = "<tr><td class=predmet><b>Predmet:</b> $predmet</td></tr></table>";
$cas = "<font size=1><DIV align='right'>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</div></font><hr>\n";


$zprava = SubStr($zprava, 0, 1500);
$zprava = Trim($zprava);
$zprava = HTMLSpecialChars($zprava);
$zprava = Str_Replace("\n"," <BR> ", $zprava);

$znak = 66;
$slovo = Split("[[:blank:]]+", $zprava);
for($y=0;$y<Count($slovo);$y++):
$slovo[$y] = Trim($slovo[$y]);
if (Strlen($slovo[$y])<=$znak):
if (EregI("^(www\..+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]);
elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]);
else:
$odkaz = $slovo[$y] . " "; //jedna se o normalni slovo
endif;
$celek .= $odkaz;
else:
$delit = Ceil(StrLen($slovo[$y])/$znak);
for($z=0;$z<$delit;$z++):
$cast = Substr($slovo[$y], $z*$znak, $znak);
$celek .= $cast . " - ";
endfor;
endif;
endfor;


$zprava = Str_Replace("&lt;b&gt;", "<b>", $celek);
$zprava = Str_Replace("&lt;/b&gt;", "</b>", $zprava);

$zprava = Str_Replace("&lt;i&gt;", "<i>", $zprava);
$zprava = Str_Replace("&lt;/i&gt;", "</i>", $zprava);

$zprava = Str_Replace("&lt;u&gt;", "<u>", $zprava);
$zprava = Str_Replace("&lt;/u&gt;", "</u>", $zprava);

$zprava = "<table><tr><td class=text><br><b>Text:</b><br>$zprava</td></tr></table>";




$write = StripSlashes($jmeno . $email . $predmet . $zprava . $cas);

if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
$data = FRead ($fp, FileSize("book.dat"));
FClose($fp);
endif;

$fp = FOpen ("book.dat", "w");
FWrite ($fp, $write.$data);
FClose ($fp);

?>
<html><head>
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=kniha.php">
</head></html>


poradte please
pavel prochazka.zde.cz
Profil *
#7 · Zasláno: 15. 7. 2006, 17:18:51
Odpovědět Citovat
nepochopil jsem posledni dataz.....
lopik
Profil
#8 · Zasláno: 15. 7. 2006, 18:05:10 · Upravil/a: lopik
Odpovědět Citovat
no ked som napisal do knihy aj mail tak sa mi dal na meno pozadovany odkaz ale zaroven sa vypisal zadany odkaz nad meno. napr:

ked som zadal mail:

jshsjs@ddkd.sk(toto neviem odstranit)
lopik(aj s odkazom na mail)

ked som nezadal:

lopik(bez odkazu)


poradte dik
Časová prodleva: 20 let
Toto téma je uzamčeno. Odpověď nelze zaslat.

0