nicht angemeldet
mysql
#!/usr/bin/perl -w
require "lib.pl";
use strict;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI;
$dbserver="DBI:mysql:DB40184:rdbms.strato.de";
$dbuser="www.xxxxxxxx-xxxxxxxxxxxxxxxxxxxx.de";
$dbpass="xxxx";
$sqlbefehl="select * from Tabellenname where Feld=Wert";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
print "Content-type: text/html \n\n";
print qq~
<HTML>
<BODY>
~;
if ($action eq "write")
{
mysql_query("INSERT INTO DB40184 (datum, name, titel, eintrag) VALUES (NOW(''), '$FORM{'name'}', '$FORM{'titel'}', '$FORM{'eintrag'}') ", $dbh);
}
if ($action eq "show")
{
mysql_select_db("daten", $dbh);
$result=mysql_query("SELECT * FROM $query ORDER BY datum DESC LIMIT 30", $dbh);
for($i=0; $i<mysql_num_rows($result); $i++)
{
$$query[$i]=mysql_fetch_object($result);
}
echo "<table border="0">";
for($i=0; $i<mysql_num_rows($result); $i++)
{
print "<tr>",
"<td><b>#",
$i+1,
": ",
$$query[$i]->titel,
"</b></td>",
"</tr>",
"<tr>",
"<td>",
nl2br($$query[$i]->eintrag),
"</td>",
"</tr>",
"<tr>",
"<td>Eintrag von <b>",
$$query[$i]->name,
"</b> am <b>",
substr($$query[$i]->datum, 8, 2),
".",
substr($$query[$i]->datum, 5, 2),
".",
substr($$query[$i]->datum, 0, 4),
" ",
substr($$query[$i]->datum, 10),
"</b></td>",
"</tr>",
"<tr><td><hr></td></tr>";
}
print "</table><br><br>";
}
if ($action eq "new")
{
<a name="neuereintrag"><h3>Neuer Eintrag:</h3></a>
<form action="gaestebuch.pl" method="post">
<table border="1">
<tr>
<td><b>Name:</b></td>
<td><input type="text" name="name" maxlength="50"></td>
</tr>
<tr>
<td><b>Titel des Eintrages:</b></td>
<td><input type="text" name="titel" maxlength="40"></td>
</tr>
<tr>
<td><b>Eintrag:</b></td>
<td><textarea name="eintrag" cols="30" rows="5"></textarea></td>
</tr>
<tr>
<td align="center" colspan="2">
<input type=hidden name=action value=write>
<input type="submit" value="Eintragen">
<input type="reset" value="Löschen">
</td>
</tr>
</table>
</form>
</body>
</html>
}
print qq~
</BODY>
</HTML>
~;
------------------------------------------
sollte ne art gaestebuch sein in perl aber es kann sein das ich ausversehene ein bisschen php mit reingemischt habe antworten unter bad-franz@web.de oder ICQ: 150491231
-
Hallo,
[...]
sollte ne art gaestebuch sein in perl aber es kann sein das ich ausversehene ein bisschen php mit reingemischt habe antworten unter bad-franz@web.de oder ICQ: 150491231
was ist Deine Frage?
Reiner
-
was daran falsch is des funktioniert ned
Hallo,
[...]
sollte ne art gaestebuch sein in perl aber es kann sein das ich ausversehene ein bisschen php mit reingemischt habe antworten unter bad-franz@web.de oder ICQ: 150491231
was ist Deine Frage?
Reiner
-
Hallo!
was daran falsch is des funktioniert ned
Deine Darstellung des Problems ist dermaßen präzise, daß bestimmt gleich jemand auftaucht, der helfen kann....
Wie wäre es, wenn wir hier irgendwo eine Upload-Funktion integrieren, wo man irgendwelche konfusen Quelltexte hinterlegen kann. Hier sind ja soviele Cracks, daß die Frage sowieso fehlen kann. Fehler werden wohl offensichtlich sein. Toll wäre es noch, wenn bei Lösung des Problems direkt eine Meldung per Mail, SMS oder ICQ an den Fragenden geht und dieser sich den fehlerfreien Code runternudeln kann.
Man sollte mal drüber nachdenken...
Reiner
-
-
-
use Mosche;
use strict;
$dbserver="DBI:mysql:DB40184:rdbms.strato.de";perldoc strict
perldoc -f mysollte ne art gaestebuch sein in perl aber es kann sein das ich ausversehene ein bisschen php mit reingemischt habe antworten unter bad-franz@web.de oder ICQ: 150491231
Ich habe nicht vor, weiter den Quelltext durchzusehen, wenn du uns nicht wenigstens die Fehlermeldung gibst.
use Tschoe qw(Matti);
-
use Mosche;
use strict;
$dbserver="DBI:mysql:DB40184:rdbms.strato.de";perldoc strict
perldoc -f mysollte ne art gaestebuch sein in perl aber es kann sein das ich ausversehene ein bisschen php mit reingemischt habe antworten unter bad-franz@web.de oder ICQ: 150491231
Ich habe nicht vor, weiter den Quelltext durchzusehen, wenn du uns nicht wenigstens die Fehlermeldung gibst.
Die Fehlermeldung:
Software error:
gaestebuch.pl has too many errors.
For help, please send mail to the webmaster (service@webmailer.de), giving this error message and the time and date of the error. ;use Tschoe qw(Matti);
-
Hi,
Die Fehlermeldung:
Software error:
gaestebuch.pl has too many errors.
For help, please send mail to the webmaster (service@webmailer.de), giving this error message and the time and date of the error. ;versuch es mal damit:
<a href="mailto:service@webmailer.de?subject=HILFE&body=hallo,ich habe vor, etwas zu realisieren, was aber leider nicht funktioniert. Teile meines Scriptes habe ich von Dir geklaut, andere Dinge aus einem anderen Script. Verstehen tue ich sowieso nichts. In einem Forum konnten meine Fragen nicht beantwortet werden, weil ich nicht wußte, wie meine Frage zu formulieren sei. Danke!">klick hier</a>
Habe ich leider nicht getestet, aber das müßte klappen!
Reiner
-
use Mosche;
perldoc strict
perldoc -f myHaben dir diese Tips nicht geholfen?
Die Fehlermeldung:
Software error:
gaestebuch.pl has too many errors.
For help, please send mail to the webmaster (service@webmailer.de), giving this error message and the time and date of the error. ;- Lies bitte http://learn.to/quote und </faq/>.
- Kannst du bitte den Eintrag im ErrorLog schicken, der von dir angegebene ist nichtssagend.
Des weiteren hat dein Codeteil eine Menge an Fehlern, die du mit einem Mindestmaß an Perl-Kenntnissen und Geduld finden würdest - sie sind grob auffällig.
use Tschoe qw(Matti);
-
-