nicht angemeldet
#!/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