CMS4free - www.bei123.de - Alles aus baseportal herausholen

Forum CMS4free Impressum Sitemap Nutzungsbedingungen

© bei123.de

CMS4free > Die Datenbank > Text

Weitere Informationen

Page
Rubrik
Subpage
Text
Alle Einträge

Text

Im Datenbankfeld Text geben Sie den Inhalt/Content an, welcher auf der jeweiligen Seite angezeigt werden soll. HTML- und PERL-Code können dabei eingegeben werden - es handelt sich um ein Eingabefeld vom Typ textarea.

Nachfolgend als Beispiel die Dateneingabe für die Page Forum

Page:
Rubrik:
Subpage:	Forum-Hilfe
Text:	Hier mal ein spezielles <i>Themenforum</i> zur Erläuterung und Diskussion der Funktionsweise des Programmes. <br>Bevor Sie eine neues Thema aufgreifen sollten Sie erst mal SUCHEN, ob dies nicht schon behandelt wurde. - Danke! $bei123_LINE EOF sub forum_antwort {################ einfache Antwortanzeige ################### my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; my $Text=convert_links($Text); $Text=convert_br($Text); my $beit_=""; #--- einzelne Antwort $beit_.="<table width=100%><tr><td valign=top><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag</a><br><b>$Name, $date</b><br>$Text</td></tr></table><br>"; return($beit_); }################################################# if($cmd ne "do_mod" and $cmd ne "mod" and $cmd ne "del") {############## Ändern und Löschen nicht erlaubt ###### my $listfields="-Id,Aktion,Text,Beitrag,Liste,Nr"; my $allfields="-Id,Aktion"; $db="CMSForum"; #################### die verwendete Datenbank out "<table><tr><td>"; # Buttons my $list_button=&$bei123_CMD("Themenübersicht","- Themenübersicht -","")."</td><td>" if($cmd ne "" or ($_fullsearch)); #--------------- my $add_button=&$bei123_CMD("Neues Thema","- Neues Thema -","cmd=do_add")."</td><td>" if($cmd ne "do_add" and $cmd ne "all"); #--------------- my $search_button=&$bei123_CMD("Suchen im Forum","- Volltextsuche -","cmd=do_search")."</td><td>" if($cmd ne "do_search" ); #--------------- out $list_button; out $add_button; out $search_button; out "</td></tr></table>"; ############# Ende der Buttonreihe if($cmd eq "search") # Volltext Suchmodus {$tsearch=convert_url($_sel[$#_sel]); #- @_sel auswerten $url="$_link&bei123=$_get{bei123}&_fullsearch~~$tsearch&_fullsearch_range=14,500000&db=$db"; $_header="Location: $url\n"; #- direkt zum Ergebnis }# if($_fullsearch) {# out "<table width=100%><tr><td><li><b>Such-Ergebnisse</b></li></td></tr></table>"; get "fullsearch_match=10&fullsearch_sort=Datum", "$db"; while(get_next($db)) {#-------------- die gefundenen Einträge my $seek_found=&forum_antwort; out $seek_found; } my $newrange=$_fullsearch_range+$_fullsearch_range_length; my $txt; out "<table width=100%>"; if($_fullsearch_match_pos<$newrange) { $txt="Suche nach weiteren Treffern"; $newrange=$_fullsearch_match_pos; } else { out "<tr><td><b>Kein Treffer.</b></td></tr>" if $_fullsearch_amount<1; $txt="Suche in weiteren Datensätzen"; } if($newrange<$_amount_all) { out "<tr><td><b>Es wurde noch nicht in allen Datensätzen gesucht:</b></td></tr>"; out "<tr><td><b><a href=\"baseportal.pl?htx=$htx&show=$_get{show}&_fullsearch~~".convert_url($_fullsearch)."&fullsearch_range=$newrange,$_fullsearch_range_length&db=$db\">$txt</a></b></td></tr>"; } else { out "<tr><td><b>Die Datenbank wurde komplett durchsucht.</b></td></tr>"; } out "</table>"; }# if(%_put)# falls Eingabe { $_put{Name}=&html2text($_put{Name}); $_put{Eintrag}=convert_html($_put{Eintrag}); $_put{Name}="anonym" if($_put{Name} eq ""); if($_put{Text} eq "") {out "<font color=red><b>Nicht gespeichert, da NICHTS eingegeben!</b></font>"; undef %_put; } else {#### falls Text in Neubeitrag my $ti =time(); # Zeit merken if($nr eq "") {my $_bt=$ti.$_REMOTE_ADDR;# Beitrag-Feld eindeutig belegen $_put{Beitrag}=$_bt; put; $_header="Location: $_link&bei123=$_get{bei123}\n\n"; } else { # falls Antwort get "Id==$nr","$db"; $_put{Beitrag}=$Beitrag; $_put{Nr} =$Id; $_put{Liste} =($Liste eq "" ? $Id.".".$ti : $Liste.".".$ti); if($_put{Eintrag} eq "")# { if($Eintrag !~ /^Re: /) { $_put{Eintrag}="Re: ".$Eintrag; } else {$_put{Eintrag}=$Eintrag; } }#falls leer else { $_put{Eintrag}="Re: ".$_put{Eintrag}; } put; $_header="Location: $_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id\n\n"; }######################## Ende falls Antwort } } if($_get{cmd} eq "" or $_get{cmd} eq "list" or $_get{cmd} eq "do_add" or $cmd eq "do_search") { #--------------------- falls antworten if($_get{cmd} eq "do_add" and $bt ne "" and $nr ne "") {get "Id==!$nr", "$db"; {##################### my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; $Text=convert_links($Text); $Text=convert_br($Text); $beit.="<table width=100% bgcolor=$headback><tr><td valign=top><b>$Name, $date</b><br><b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag</a></b><br>$Text</td></tr></table>"; out $beit; } } if(!$_fullsearch)## -falls Nicht Suchergebnis anzeigen {$rr=$range\|\|"0,20"; do_all "db=$db listfields=$listfields allfields=$allfields databack=$databack headback=$headback headcolor=$headcolor headface=Verdana tdparam=valign=top gridcolor=$gridcolor spacing=1 selectbrowse=no buttonbrowse=top searchfields=-Id,Datum,Name,Beitrag,Liste,Nr formfields=-Beitrag,Liste,Nr,EMail tdparam=valign=top listtype=- detail=no range^=$rr sort=-Beitrag Nr<0" , "bt=$bt", "nr=$nr", "bei123=$bei123" ; # Beitrag und Nr durchschleifen ! out "Geben Sie Ihren Suchbegriff für die Volltextsuche ein" if ($cmd eq "do_search"); #------------------------------------------------------------- if($cmd ne "do_add" and $cmd ne "do_search") {# Themenübersicht ######################### get "Id==*&sort=-Beitrag&Nr<0&range=$rr", "$db"; while (get_next($db)) {my $date=datum("$Datum","kurz"); out "<p><b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag<a></b><br>$Name am $date </p>"; }# ende While } } } ############################# Einträge ######################## if($cmd eq "all") { my $disk=""; # Diskussionsverlauf my $beit=""; # Beitrag my @beit=""; # Folgebeiträge my $bid=$_get{nr}; # Id des Beitrages my $mmm=""; get "Beitrag==!$bt&sort=Liste", "$db"; #------------------------------------ while(get_next($db)) # Beitrage sortiert nach Liste {if($Id eq $bid) {# der gewählte Beitrag zum Thema my $date=datum("$Datum","kurz"); my $Name=$Name\|\|"anonym"; my $Text=convert_links($Text); $Text=convert_br($Text); my $answer_box=&$bei123_CMD("hierzu antworten","- Beitrag beantworten-","cmd=do_add&bt=$Beitrag&nr=$Id")."</td><td>" if($cmd eq "all"); # Buton für "antworten" # der aktuelle Beitrag $beit.="<table width=100% bgcolor=$headback><tr><td valign=top><b>$Name, $date</b><h2><b>$Eintrag</b></h2>$Text</td></tr></table><table><tr><td>$answer_box</td></tr></table>$bei123_LINE"; } if($Nr eq $bid) {# Folgebeiträge my $follow_found=&forum_antwort; push(@beit,$follow_found); # werden gesammelt }############################################################## # Diskussionpfad generieren $Name=$Name\|\|"anonym"; my $date=datum("$Datum","kurz"); my @ein=split(/\./,$Liste); my $ez=@ein; my $zz=($ez>0 ? "...." x ($ez-1):">"); # Abtstandspunkte my $Beitrag=convert_html($Beitrag); my $entry="<b><a href='$_link&bei123=$_get{bei123}&cmd=all&bt=$Beitrag&nr=$Id'>$Eintrag<a></b>"; # alles zusammenbauen $disk.="<table cellpadding=2 cellspacing=0><tr><td valign=top>"; my $bg=($_get{nr} eq $Nr ? $headback:$databack ); # Folgebeitrag my $bgcolor=($Id eq $bid ? $headback:$bg ); # Aktueller Beitrag $disk.="$zz</td><td bgcolor=$bgcolor>$re$entry</td></tr>"; $disk.="<tr><td></td><td>$Name am $date</td></tr></table>"; } out $beit; my $anzbeit=@beit-1; #------------------------------------------------------- ##@beit=reverse(@beit); #-- ggf. Reihenfolge umdrehen #------------------------------------------------------- out "<b>Aktuelle Antworten zum o.g. Beitrag: $anzbeit</b><br>"; out "<table width=100% bgcolor=$headback><tr><td>@beit</td></tr></table>" if($anzbeit>0); out "<p>$bei123_LINE<b>Nachfolgend der Diskussionsverlauf</b>:</p>$disk" if($_amount_query>1); out $bei123_LINE; } } else {out "...Ändern/Löschen nicht erlaubt!</b><p><h2>Starten Sie $bei123_LINK{$bei123_PAGE} neu</h2></p>"; } out <<EOF;

Also einfach den HTML- und PERL-Code in das Datenbankfeld Text in der bp-Datenbank eingeben.

Normaler Text wird als Text ausgeben!
HTML-Code muss mit den entsprechenden Tags eingeben werden
PERL-Code muss am Anfang mit EOF und am Ende mit out <<EOF; abgeschlossen werden !

CMS4free - © 2004 www.bei123.de
Content-Management-System von H.Fehde
powered in 0.00s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!