Größte Bild soll erscheinen. - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 19.April.2001, 20:03.
    Größte Bild soll erscheinen.

      Hallo,

      das Problem stellte ich schon heut vormittag, jetzt ist es aber weg.
      Ich habe eine Seite auf der das größte mir zur verfügung stehende Bild dargestellt werden soll.
      $BildLink ist das große und
$BildvorschauLink ist das kleinere.
Wenn in der Datenbank kein großes eingetragen ist sol das kleine dargestellt werden.
      Hier der Link um dies zu zeigen was jetzt kommt.
      http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/ausgabegross&Stadt~=Berlin&range=0,1
      und der Quelltext:
      <html>

      <head>
      <title>Ausgabe mit Bilder</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<table border="0" width="100%" cellpadding="1" cellspacing="1">
<tr>
<td width="100%"  valign="top" colspan="2" valign="middle" align="center">

      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
$append = $append."&Land~=$Land" if $Land ne "";
$append = $append."&Stadt~=$Stadt" if $Stadt ne "";
$append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
$append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
</perl>
<loop code=perl db=brueckenbau>
out "";
</loop>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

         </td>
<loop db=brueckenbau>

      <tr align="center">
       
        <tr>
    <td <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
  </tr>

        <tr>
    <td><p align="center"> <img src="$BildLink" alt="$Brueckenname" border="0"></td>
  </tr>
</tr>

      </loop>
      <tr><td colspan=1 align=center>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

      </td></tr>
      </table>
<center>
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</center>
</body>
</html>

      übrigens die Daten und Dateien,die ich heute vormittag nach baseportal fehlerfrei geladen habe waren jetzt auch weg.

      Bis bald


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 19.April.2001, 20:03.
    Größte Bild soll erscheinen.

      Hallo,

      das Problem stellte ich schon heut vormittag, jetzt ist es aber weg.
      Ich habe eine Seite auf der das größte mir zur verfügung stehende Bild dargestellt werden soll.
      $BildLink ist das große und
$BildvorschauLink ist das kleinere.
Wenn in der Datenbank kein großes eingetragen ist sol das kleine dargestellt werden.
      Hier der Link um dies zu zeigen was jetzt kommt.
      http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/ausgabegross&Stadt~=Berlin&range=0,1
      und der Quelltext:
      <html>

      <head>
      <title>Ausgabe mit Bilder</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<table border="0" width="100%" cellpadding="1" cellspacing="1">
<tr>
<td width="100%"  valign="top" colspan="2" valign="middle" align="center">

      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
$append = $append."&Land~=$Land" if $Land ne "";
$append = $append."&Stadt~=$Stadt" if $Stadt ne "";
$append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
$append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
</perl>
<loop code=perl db=brueckenbau>
out "";
</loop>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

         </td>
<loop db=brueckenbau>

      <tr align="center">
       
        <tr>
    <td <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
  </tr>

        <tr>
    <td><p align="center"> <img src="$BildLink" alt="$Brueckenname" border="0"></td>
  </tr>
</tr>

      </loop>
      <tr><td colspan=1 align=center>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

      </td></tr>
      </table>
<center>
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</center>
</body>
</html>

      übrigens die Daten und Dateien,die ich heute vormittag nach baseportal fehlerfrei geladen habe waren jetzt auch weg.

      Bis bald

     Antworten

    Beitrag von Christoph Bergmann (8110 Beiträge) am Samstag, 21.April.2001, 03:29.
    Re: Größte Bild soll erscheinen.

      Ok, wenn ich alles richtig verstanden habe, dann geht es um diesen Abschnitt hier:

      <tr>
<td><p align="center"> <img src="$BildLink" alt="$Brueckenname" border="0"></td>
</tr>

      Dazu kannst Du weiter oben im Perl-Abschnitt in etwa folgendes eintragen:

      $BildLink=$BildVorschauLink if $BildLink eq "";


      Äh, noch eine Frage: Was soll denn

      <loop code=perl db=brueckenbau>
out "";
</loop>

      bezwecken?? Du gehst durch die ganze Datenbank, ohne irgendwas damit zu machen??? Wozu??


      Wg. des Datenverlustes siehe:

      http://baseportal.de/cgi-bin/baseportal.pl?htx=/baseportal/forum&wcheck=1&Pos=1844

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Samstag, 21.April.2001, 09:55.
    Re: Größte Bild soll erscheinen.

      Hallo,

      hab eingefügt, es geht aber noch nicht.
      Was der 3 Zeiler mit Loop soll weis ich nicht,
      den hat sander geschriegen.
      Hir noch mal der geänderte Quelltext:
      <html>

      <head>
      <title>Ausgabe mit Bilder</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<table border="0" width="100%" cellpadding="1" cellspacing="1">
<tr>
<td width="100%"  valign="top" colspan="2" valign="middle" align="center">

      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
$append = $append."&Land~=$Land" if $Land ne "";
$append = $append."&Stadt~=$Stadt" if $Stadt ne "";
$append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
$append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";

      </perl>
      <loop code=perl db=brueckenbau>
out "";
</loop>
<perl>

      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
      $BildLink=$BildvorschauLink if $BildLink eq "";
</perl>

         </td>
<loop db=brueckenbau>

      <tr align="center">
       
        <tr>
    <td <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
  </tr>

        <tr>
    <td><p align="center"> <a href="$BildLinkSeite"><img src="$BildLink" alt="$Brueckenname" lowsrc="$BildvorschauLink" border="0"></td>
  </tr>
  <tr>
    <td><p align="center"> $Beschreibung</td>
  </tr>
</tr>

      </loop>
      <tr><td colspan=1 align=center>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

      </td></tr>
      </table>
<center>
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</center>
</body>
</html>

      Und der Link zum Testen:
      http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/ausgabegross&Stadt~=Berlin&range=0,1

      bis bald

     Antworten

    Beitrag von Sander (8133 Beiträge) am Sonntag, 22.April.2001, 01:17.
    Re: Größte Bild soll erscheinen.

      der 3Zeiler war ne Notlösung, wenn die Blätterpfeile über der Ausgabe erscheinen sollen. Ich habs mit init probiert, kann mich dunkel dran erinnern, das es nicht geklappt hat.

      Sander

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Montag, 23.April.2001, 17:40.
    Re: Größte Bild soll erscheinen.

      Hallo Sander,

      Hast du dier den Quelltext mal angesehen,
      und weist vielleicht auch warum er nicht geht ?
      http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/ausgabegross&Stadt~=Berlin&range=0,1

      Hier der aktuelle Quelltext.
      <html>

      <head>
      <title>Ausgabe mit Bilder</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<table border="0" width="100%" cellpadding="1" cellspacing="1">
<tr>
<td width="100%"  valign="top" colspan="2" valign="middle" align="center">

      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
$append = $append."&Land~=$Land" if $Land ne "";
$append = $append."&Stadt~=$Stadt" if $Stadt ne "";
$append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
$append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
</perl>
<loop code=perl db=brueckenbau>
out "";
</loop>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
      $BildLink=$BildvorschauLink if $BildLink eq "";
</perl>

         </td>
<loop db=brueckenbau>

      <tr align="center">
       
        <tr>
    <td <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
  </tr>

        <tr>
    <td><p align="center"> <a href="$BildLinkSeite"><img src="$BildLink" alt="$Brueckenname" border="0"></td>
  </tr>
  <tr>
       <td width="100%"><p align="center"><font size="1">Copyright ® des Bildes ist bei <a href="$EigentuemerLink">$SeitenEigentuemer</a></font></td>
  </tr>
  <tr>
    <td><p align="center"> $Beschreibung</td>
  </tr>
</tr>

      </loop>
      <tr><td colspan=1 align=center>
<perl>
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

      </td></tr>
      </table>
<center>
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</center>
</body>
</html>

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 23.April.2001, 19:19.
    Re: Größte Bild soll erscheinen.

      ein link war nicht geschlossen "</a>" bei einem <tr fehlt > - bloß zur info.

      also aus loop wird code=perl und out <<EOF....EOF und die Varzuweisung kommen rein.

      <loop db=brueckenbau code=perl>
$BildLink=$BildVorschauLink if $BildLink eq "";
out <<EOF;
<tr align="center">
  <tr>
<td> <a align="center" valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
</tr>
<tr>
<td><p align="center"> <a href="$BildLinkSeite">
<img src="$BildLink" alt="$Brueckenname" border="0"></a></td>
</tr>
 <tr>
<td width="100%"><p align="center"><font size="1">Copyright ® des Bildes ist bei <a href="$EigentuemerLink">$SeitenEigentuemer</a></font></td>
</tr><tr>
<td><p align="center"> $Beschreibung</td>
</tr></tr>
EOF
</loop>

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Montag, 23.April.2001, 22:16.
    Re: Größte Bild soll erscheinen. klapt jetzt

      Danke Sander,

      noch kleine Änderungen am Quelltext.
      Jetzt geht es.

      Bis auf weiteres.

     Antworten


     
 Liste der Einträge von 63150 bis 63300:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.48s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!