Opened by dechs at 2006-03-13 20:43
User since
2006-03-13
12 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-03-13
12 Artikel
BenutzerIn
Hallo,
hab ein kleines Problem
ich hab 2 code seiten
seite1
und seite2
ich möchte eigentlich nur, dass die ausgabe in einem eigenen Frame auf einer Html seite ausgegeben wird und in dem frame darunter ein abfragebutton ist. Ich schaffs net das zu realisieren.
mfg
dechs
hab ein kleines Problem
ich hab 2 code seiten
seite1
Code: (dl
)
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
!c:\Perl\bin\perl.exe -w
#
# Name: cgi-bin/projekt/seite1.pl
#
# Funktion: Seite 1
#
# Argumente:
# Ausgabe:
#
use strict;
use CGI qw(:standard);
my @Vereinsliste= qw /Feuerwehr Schuetzenverein neuer_Verein/;
print header,
start_html('Vereinsdatenbank'),
h1('Guten Tag'),
start_form (-action=>'/cgi-bin/Projekt/seite2.pl'),
<FORM ACTION=TARGET='oben'>
" Mit welchen Verein möchten Sie arbeiten ? ",
popup_menu(-name => 'verein_name',-value => [@Vereinsliste]),p,
"Geben Sie ihren Name ein ", textfield('user','root'),p,#root wird später durch einen Benutzer ersetzt
"Geben Sie ihren Passwort ein ", password_field('passwort'),p,
#durch password_field wird die Eingabe auf dem Bildschirm nicht sichtbar
submit(-value=>'Enter'),p,
end_form,
hr,
end_html;
und seite2
Code: (dl
)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
#!C:/Perl/bin/perl.exe
#Name: cgi-bin/projekt/seite2.pl
#
# Funktion: Seite 2
#
# Argumente:
# Ausgabe:
use DBI;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
# Datenbank wird per Param von Seite1 script übernommen
$datenbank = param('verein_name');
# Datenbankhost ist in unserem Beispiel immer "localhost"
$datenbankhost = "localhost";
# Datenbankusername wird per Param von Seite1 script übernommen
$datenbankuser = param('user');
# Datenbankpasswort wird per Param von Seite1 script übernommen
$datenbankpw = param('passwort');
print "Content-type: text/html\n\n";
print <<"ENDE";
<html>
<head>
<title>Datenbank von $datenbank</title>
</head>
</frameset>
<body>
<table style="width: 100%; text-align: left;" border="1" cellpadding="2"
cellspacing="2">
<tbody>
ENDE
#kommentar
print "Geben Sie den Namen ein ", textfield('suchname','Goerl'),p,;
print start_form (action=>'/cgi-bin/Projekt/seite3.pl');
print "<DIV ALIGN=CENTER>",submit(-value=>'Suche'),p,"</DIV>";
print end_form;
$dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$Datenbankpasswort") or print ("<tr><td><b><h2>Fehler bei der Datenbankverbindung aufgetreten.</h2></b></td></tr>");
my $sth = $dbh->prepare( "show columns from mitglieder");
$sth->execute();
print "<tr>";
while(@ergebnis=$sth->fetchrow_array)
{
print "<td>\n<b>";
print $ergebnis[0];
print "</b><br>\n</td>";
}
print "</tr>\n";
$sql = qq{select * from mitglieder};
$sth = $dbh->prepare( $sql );
$sth->execute();
while(@ergebnis=$sth->fetchrow_array)
{
print "\t<tr>\n";
foreach (@ergebnis)
{
print "\t\t<td>";
print;
print "<br></td>\n";
}
print "\t</tr>\n";
}
print"</tbody></table><br></body></html>";
$sth->finish();
$dbh->disconnect();
print start_form (-action=>'/cgi-bin/Projekt/seite1.pl');
print "<DIV ALIGN=CENTER>",submit(-value=>'Zurück zur Vereinsauswahl'),b,"</DIV>";
print end_form;
ich möchte eigentlich nur, dass die ausgabe in einem eigenen Frame auf einer Html seite ausgegeben wird und in dem frame darunter ein abfragebutton ist. Ich schaffs net das zu realisieren.
mfg
dechs