Leser: 1
|< 1 2 3 >| | 22 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
$html->div(
$html->img(
{-src=>'/pics_hp/banner.jpg'},),
),
$html->div(
{-class=>'ueberschr'},'News'),
$html->div(
{-class=>'haupt'},
$html->div(
{-class=>'mitte'},);
while (my $news = $news_dbh->fetchrow_array){
print $html->start_table(
$html->TR($html->th("$$news{'ueberschrift'}"),),
$html->TR(
$html->td("$$news{'datum'}"),),
$html->TR(
$html->td("$$news{'text'}"),),),
$html->end_table();
}
$html->div(
{-class=>'rechts'},
'Hier wird viel Text stehen und ein paar bilderHier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
Hier wird viel Text stehen und ein paar bilder
'),
),
{-class=>'mitte'};
document.getElementById('LoginForm').style.display='none';
1
2
3
4
5
if (!$angemeldet) {
# Login-Formular ausgeben
} else {
# Den Seiteninhalt, den nur angemeldete User sehen sollen ausgeben
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
my $html = new CGI;
my @data;
my $i = 0;
my $dbh;
print $html->header,
$html->start_html(-title=>'Datenbankverwaltung',
-style=>{'src'=>'/main.css'},),
$html->div({align=>'center'},"Dies wird ein kleines System zur Datenbankberwaltung.<br><br>"),
$html->div({-align=>'center'});
#Eingabefelder zum herstellen der Verbindungen
if ($dbh ne "")
{
}
else{
print $html->startform(-method=>'POST',
-action=>'datenbank_verwaltung.pl'),
$html->div({align=>'center'},'Servername/IP-Adresse: '),
$html->textfield(-name=>'server'),
$html->div({align=>'center'},'Datenbank: '),
$html->textfield(-name=>'datenbank'),
$html->div({align=>'center'},'Nutzername: '),
$html->textfield(-name=>'name'),
$html->div({align=>'center'},'Passwort: '),
$html->password_field(-name=>'passwort');
$html->end_form(),
print "<br><br>";
#Übergabe der eingaben an "richtige" Variablen
my $server = param(server);
my $nutzer = param(name);
my $passwort = param(passwort);
my $datenbank = param(datenbank);
#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";
print $html->submit(-name=>'Login');
$dbh = DBI -> connect($source,$nutzer,$passwort);
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#Eingabefelder zum herstellen der Verbindungen
if ($dbh ne "")
{
}
else{
print $html->startform(-method=>'POST',
-action=>'datenbank_verwaltung.pl'),
$html->div({align=>'center'},'Servername/IP-Adresse: '),
$html->textfield(-name=>'server'),
$html->div({align=>'center'},'Datenbank: '),
$html->textfield(-name=>'datenbank'),
$html->div({align=>'center'},'Nutzername: '),
$html->textfield(-name=>'name'),
$html->div({align=>'center'},'Passwort: '),
$html->password_field(-name=>'passwort');
$html->end_form(),
print "<br><br>";
#Übergabe der eingaben an "richtige" Variablen
my $server = param(server);
my $nutzer = param(name);
my $passwort = param(passwort);
my $datenbank = param(datenbank);
#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";
print $html->submit(-name=>'Login');
$dbh = DBI -> connect($source,$nutzer,$passwort);
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#Eingabefelder zum herstellen der Verbindungen
if ($html->param('server') and $html->param('name') )
{
#Übergabe der eingaben an "richtige" Variablen
my $server = $html->param('server');
my $nutzer = $html->param('name');
my $passwort = $html->param('passwort');
my $datenbank = $html->param('datenbank');
$dbh = DBI -> connect($source,$nutzer,$passwort);
# mach was mit $dbh
}
else{
print $html->startform(-method=>'POST',
-action=>'datenbank_verwaltung.pl'),
$html->div({align=>'center'},'Servername/IP-Adresse: '),
$html->textfield(-name=>'server'),
$html->div({align=>'center'},'Datenbank: '),
$html->textfield(-name=>'datenbank'),
$html->div({align=>'center'},'Nutzername: '),
$html->textfield(-name=>'name'),
$html->div({align=>'center'},'Passwort: '),
$html->password_field(-name=>'passwort'),
"<br><br>";
#Übergabe der eingaben an "richtige" Variablen
#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";
print $html->submit(-name=>'Login'),
$html->end_form();
}
Can't connect to data source , no database driver specified and DBI_DSN env var not set at C:/xampp/cgi-bin/datenbank_verwaltung.pl line 26
|< 1 2 3 >| | 22 Einträge, 3 Seiten |