kostenloser Webspace werbefrei: lima-city


Kalender Änderfunktion

lima-cityForumProgrammiersprachenPHP, MySQL & .htaccess

  1. Autor dieses Themas

    kevinweiler

    Kostenloser Webspace von kevinweiler

    kevinweiler hat kostenlosen Webspace.

    Hallo zusammen,

    ich möchte eine Änderfunktion in einem Online Kalender einbauen.
    Die Codes:
    liste.php - Datei mit Kalenderterminen
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
    <meta http-equiv="expires" content="0">
    <title>Kalender</title>
    <link rel="stylesheet" type="text/css" href="styles.css">
    <script language="JavaScript" type="text/javascript">
    <!--
     function fSelAll(bStat){
      for(var i=0;i<self.document.TerminListe.length;++i)
       if(self.document.TerminListe.elements[i].type=='checkbox') self.document.TerminListe.elements[i].checked=bStat;
     }
    // -->
    </script>
    </head>
    
    <body>
    <h1><img src="_kalender.gif" width="19" height="25" border="0" align="bottom" alt=""> Kalender-Script: Terminübersicht</h1>
    
    <?php
    include('programmPfad.php'); define('NL',"\n"); $Msg=''; $bOK=false;
    if(file_exists($Pfad.'kalWerte.php')){
     include($Pfad.'kalWerte.php'); $nFelder=count($kal_FeldName); if(KAL_NListeAnders) $kal_ListenFeld=$kal_NListenFeld; $sLschNun='';
     if(isset($_POST['LschForm'])){ //Termine löschen
      $aId=array(); while(list($k,)=each($_POST)) if(substr($k,4,1)=='L') $aId[(int)substr($k,5)]=true; //Löschnummern
      if(count($aId)>0&&file_exists('loeschen.php')){
        { //jetzt löschen
        if(!KAL_SQL){ //Textdatei
         $aD=file(KAL_Pfad.KAL_Daten.KAL_Termine); $nSaetze=count($aD);
         for($i=1;$i<$nSaetze;$i++){$s=substr($aD[$i],0,12); $n=(int)substr($s,0,strpos($s,';')); if($aId[$n]) $aD[$i]='';} //löschen
         if($f=fopen(KAL_Pfad.KAL_Daten.KAL_Termine,'w')){
          fwrite($f,rtrim(implode('',$aD)).NL); fclose($f);
          $bOK=true; $Msg='<p class="kalMeld">'.KAL_TxLoescheErfo.'</p>';
         }else $Msg='<p class="kalFehl">'.str_replace('#','<i>'.KAL_Daten.KAL_Termine.'</i>',KAL_TxDateiRechte).'</p>';
        }else{ //bei SQL
         if($DbC=@mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
          if(@mysql_select_db(KAL_SqlDaBa,$DbC)){
           $s=''; while(list($k,)=each($aId)) $s.=' OR id='.$k;
           if(mysql_query('DELETE FROM '.KAL_SqlTabT.' WHERE '.substr($s,4))){
            $bOK=true; $Msg='<p class="kalMeld">'.KAL_TxLoescheErfo.'</p>';
           }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
          }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
         }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
        }//SQL
        if((in_array('b',$kal_FeldType)||in_array('f',$kal_FeldType))&&$bOK){ //Bilder und Dateien
         if($f=opendir(KAL_Pfad.substr(KAL_Bilder,0,-1))){
          $aD=array(); while($s=readdir($f)) if($i=(int)$s) if($aId[$i]) $aD[]=$s; closedir($f);
          foreach($aD as $s) @unlink(KAL_Pfad.KAL_Bilder.$s);
         }
        }//Bilder
       }//jetzt löschen
      }else $Msg='<p class="kalMeld">'.KAL_TxKeineAenderung.'</p>';
     }//LschForm
    
     $aD=array(); $aSpalten=array(); $nSpalten=0; $aQ=array(); $sQ=''; $nDatFeld2=0; //Abfrageparameter aufbereiten
     for($i=0;$i<$nFelder;$i++){ //Abfrageparameter aufbereiten
      $t=$kal_FeldType[$i]; $aSpalten[$kal_ListenFeld[$i]]=$i;
      $s=$_POST['kal_'.$i.'F1'].$_GET['kal_'.$i.'F1'];
      if(strlen($s)){
       $sQ.='&amp;kal_'.$i.'F1='.urlencode($s); $aQ[$i.'F1']=$s; if($i<=1) $bOhneGrenze=true;
       if($t!='d'&&$t!='@') $a1Filt[$i]=$s; else $a1Filt[$i]=fKalNormDatum($s);
      }
      $s=$_POST['kal_'.$i.'F2'].$_GET['kal_'.$i.'F2'];
      if(strlen($s)){
       $sQ.='&amp;kal_'.$i.'F2='.urlencode($s); $aQ[$i.'F2']=$s; if($t!='d'&&$t!='@') $a2Filt[$i]=$s; else{$a2Filt[$i]=fKalNormDatum($s); if($i==1) $bOhneGrenze=true;}
       if($t=='d'||$t=='@'||$t=='w'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='i'){if(empty($a1Filt[$i])) $a1Filt[$i]='0';}
       elseif($t=='j'||$t=='v') if(empty($a1Filt[$i])) $a1Filt[$i]='';
      }
      $s=$_POST['kal_'.$i.'F3'].$_GET['kal_'.$i.'F3'];
      if(strlen($s)){$a3Filt[$i]=$s; $sQ.='&amp;kal_'.$i.'F3='.urlencode($s); $aQ[$i.'F3']=$s;}
      if($t=='d'&&$i>1&&$nDatFeld2==0&&KAL_EndeDatum) $nDatFeld2=$i; //2.Datum
     }
     $sIntervallAnfang=date('Y-m-d',time()-86400*KAL_ZeigeAltesNochTage); $sIntervallEnde='99';
     if($_GET['kal_Archiv'].$_POST['kal_Archiv']){$bArchiv=true; $sIntervallEnde=$sIntervallAnfang; $sIntervallAnfang='00';} else $bArchiv=false;
     if($bOhneGrenze){$sIntervallAnfang='00'; $sIntervallEnde='99'; $bArchiv=false;}
    
     $aSpalten[0]=0; $nSpalten=count($aSpalten); $aTmp=array(); $aIdx=array(); //Daten bereitstellen
     if(!KAL_SQL){ //Textdaten
      $aD=file(KAL_Pfad.KAL_Daten.KAL_Termine); $nSaetze=count($aD);
      for($i=1;$i<$nSaetze;$i++){ //über alle Datensätze
       $a=explode(';',rtrim($aD[$i])); $sId=(int)$a[0]; $sAnfangDat=substr($a[1],0,10); $sEndeDat=$sAnfangDat;
       if(KAL_EndeDatum&&$nDatFeld2>0) if(!$sEndeDat=substr($a[$nDatFeld2],0,10)) $sEndeDat=$sAnfangDat;
       $b=(ADM_ZeigeAltes||(KAL_EndeDatum?$sEndeDat:$sAnfangDat)>=$sIntervallAnfang); //kommend oder laufend
       if($b&&$bArchiv) if($sAnfangDat>$sIntervallEnde) $b=false; //Archivfilter
       if($b&&is_array($a1Filt)){
        reset($a1Filt);
        while($b&&(list($j,$v)=each($a1Filt))){ //Suchfiltern 1-2
         $t=$kal_FeldType[$j]; $w=$a2Filt[$j]; //$v Suchwort1, $w Suchwort2
         if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x'){
          if(strlen($w)){if(stristr(str_replace('`,',';',$a[$j]),$w)) $b2=true; else $b2=false;} else $b2=false;
          if(!(stristr(str_replace('`,',';',$a[$j]),$v)||$b2)) $b=false;
         }elseif($t=='d'){ //Datum
          $s=substr($a[$j],0,10); //$s Datensatzdatum
          if($j==1&&KAL_EndeDatum){ //Termindatum
           if(!$sEndeDatum=substr($a[$nDatFeld2],0,10)) $sEndeDatum=$s;
           if(empty($w)){if($s>$v||$sEndeDatum<$v) $b=false;} elseif($s>$w||$sEndeDatum<$v) $b=false;
          }else{if(empty($w)){if($s!=$v) $b=false;} elseif($s<$v||$s>$w) $b=false;} //sonstiges Datum
         }elseif($t=='@'){ //EintragsDatum
          if(empty($w)){if($s!=$v) $b=false;} elseif($s<$v||$s>$w) $b=false;
         }elseif($t=='i'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='w'){
          $v=floatval(str_replace(',','.',$v)); $w=floatval(str_replace(',','.',$w));
          $s=floatval(str_replace(',','.',$a[$j]));
          if($w<=0){if($s!=$v) $b=false;} else{if($s<$v||$s>$w) $b=false;}
         }elseif($t=='o'){
          if($k=strlen($w)){if(substr($a[$j],0,$k)==$w) $b2=true; else $b2=false;} else $b2=false;
          if(!(substr($a[$j],0,strlen($v))==$v||$b2)) $b=false;
         }elseif($t=='j'||$t=='v'){$v.=$w; if(strlen($v)==1){$w=$a[$j]; if(($v=='J'&&$w!='J')||($v=='N'&&$w=='J')) $b=false;}}
        }
       }
       if($b&&is_array($a3Filt)){ //Suchfiltern 3
        reset($a3Filt); while(list($j,$v)=each($a3Filt))
         if($kal_FeldType[$j]!='o'){if(stristr(str_replace('`,',';',$a[$j]),$v)){$b=false; break;}}
         else{if(substr($a[$j],0,strlen($v))==$v){$b=false; break;}}
       }
       if($b){ //Datensatz gültig
        $aTmp[$sId]=array($sId); $aIdx[$sId]=sprintf('%0'.KAL_NummerStellen.'d',$i);
        for($j=1;$j<$nSpalten;$j++) $aTmp[$sId][]=str_replace('\n ',NL,str_replace('`,',';',$a[$aSpalten[$j]]));
       }
      }$aD=array();
     }else{ //SQL
      if($DbC=mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
       if(mysql_select_db(KAL_SqlDaBa,$DbC)){
        if($sIntervallAnfang>'00'&&!ADM_ZeigeAltes){
         if($nDatFeld2==0||!KAL_EndeDatum) $s=' AND kal_1>"'.$sIntervallAnfang.'"';
         else $s=' AND(kal_'.$nDatFeld2.'>"'.$sIntervallAnfang.'" OR kal_1>"'.$sIntervallAnfang.'")';
        }elseif($bArchiv) $s=' AND kal_1<="'.$sIntervallEnde.'~"'; else $s='';
        if(is_array($a1Filt)) while(list($j,$v)=each($a1Filt)){ //Suchfiltern 1-2
         $s.=' AND(kal_'.$j; $w=$a2Filt[$j]; $t=($kal_FeldType[$j]); //$v Suchwort1, $w Suchwort2
         if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x'){
          $s.=' LIKE "%'.$v.'%"'; if(strlen($w)) $s.=' OR kal_'.$j.' LIKE "%'.$w.'%"';
         }elseif($t=='d'){
          if($j==1&&KAL_EndeDatum){ //Termindatum
           if(empty($w)){$s.='<"'.$v.'~" AND kal_'.($nDatFeld2==0?1:$nDatFeld2).'>"'.$v.'" OR kal_'.$j.' LIKE "'.$v.'%"';} // nur 1 Wert
           else{$s.=' BETWEEN "'.$v.'" AND "'.$w.'~" OR kal_'.($nDatFeld2==0?1:$nDatFeld2).' BETWEEN "'.$v.'" AND "'.$w.'~"';}
          }else{if(empty($w)) $s.=' LIKE "'.$v.'%"'; else $s.=' BETWEEN "'.$v.'" AND "'.$w.'~"';} //sonstiges Datum
         }elseif($t=='@'){
          if(empty($w)) $s.=' LIKE "'.$v.'%"'; else $s.=' BETWEEN "'.$v.'" AND "'.$w.'~"';
         }elseif($t=='i'||$t=='n'||$t=='1'||$t=='2'||$t=='3'||$t=='r'||$t=='w'){
          $v=str_replace(',','.',$v);
          if(strlen($w)) $s.=' BETWEEN "'.$v.'" AND "'.str_replace(',','.',$w).'"'; else $s.='="'.$v.'"';
         }elseif($t=='o'){
          $s.=' LIKE "'.$v.'%"'; if(strlen($w)) $s.=' OR kal_'.$j.' LIKE "'.$w.'%"';
         }elseif($t=='j'||$t=='v'){$v.=$w; if(strlen($v)==1) $s.=($v=='J'?'=':'<>').'"J"'; else $s.='<>"@"';}
         $s.=')';
        }
        if(is_array($a3Filt)) while(list($j,$v)=each($a3Filt)){ //Suchfiltern 3
         $t=$kal_FeldType[$j];
         if($t=='t'||$t=='m'||$t=='g'||$t=='a'||$t=='k'||$t=='s'||$t=='l'||$t=='e'||$t=='b'||$t=='f'||$t=='c'||$t=='u'||$t=='x')
          $s.=' AND NOT(kal_'.$j.' LIKE "%'.$v.'%")';
         elseif($t=='o') $s.=' AND NOT(kal_'.$j.' LIKE "'.$v.'%")';
        }
        $t=''; for($j=1;$j<$nSpalten;$j++) $t.=',kal_'.$aSpalten[$j]; $i=0;
    
        if($rR=mysql_query('SELECT id'.$t.' FROM '.KAL_SqlTabT.' WHERE online="1"'.$s.' ORDER BY kal_1'.($nFelder>1?',kal_2'.($nFelder>2?',kal_3':''):'').',id')){
         while($a=mysql_fetch_row($rR)){
          $sId=(int)$a[0]; $aTmp[$sId]=array($sId); $aIdx[$sId]=sprintf('%0'.KAL_NummerStellen.'d',++$i);
          for($j=1;$j<$nSpalten;$j++) $aTmp[$sId][]=str_replace("\r",'',$a[$j]);
         }mysql_free_result($rR);
        }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
       }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
      }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
     }//SQL
     if(!$nStart=(int)($_GET['kal_Start'].$_POST['kal_Start'])) $nStart=1; $nStop=$nStart+ADM_ListenLaenge;
     if(ADM_Rueckwaerts) arsort($aIdx);
     reset($aIdx); $k=0; while(list($i,)=each($aIdx)) if(++$k<$nStop&&$k>=$nStart) $aD[]=$aTmp[$i];
     if(!$Msg) if(!$sQ) $Msg='<p class="kalMeld">Gesamt-Termin'.($bArchiv?'archiv':'liste').'</p>'; else $Msg='<p class="kalMeld">'.($bArchiv?'Archiv':'Termin').'abfrageergebnis</p>';
    }else $Msg='<p class="kalFehl">Setup-Fehler: Die Datei <i>kalWerte.php</i> im Programmverzeichnis kann nicht gelesen werden!</p>';
    
    //Scriptausgabe
    $sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://'.KAL_Www;
    ?>
    
    <table style="width:750px" border="0" cellpadding="0" cellspacing="0">
     <tr>
      <td><?php echo $Msg?></td>
      <td align="right">
       <?php if(!ADM_ZeigeAltes){?>[ <a href="liste.php">Terminliste</a> ] [ <a href="liste.php?kal_Archiv=1">Terminarchiv</a> ]<?php }?>
       <?php if(file_exists('suche.php')){?>[ <a href="suche.php?<?php echo substr($sQ.($bArchiv?'&amp;kal_Archiv=1':''),5)?>">Terminsuche</a> ]<?php }?>
      </td>
     </tr>
    </table>
    <?php $sNavigator=fKalNavigator($nStart,count($aIdx),ADM_ListenLaenge,$sQ,$bArchiv); echo $sNavigator;?>
    
    <form name="TerminListe" action="liste.php" method="post">
    <input type="hidden" name="LschForm" value="1" />
    <input type="hidden" name="LschNun" value="<?php echo $sLschNun?>" />
    <input type="hidden" name="kal_Archiv" value="<?php echo ($bArchiv?'1':'')?>" />
    <table class="kalTabl" width="750" border="0" cellpadding="2" cellspacing="1">
    <?php //Kopfzeile
     echo    '<tr class="kalTabl">';
     echo NL.' <td align="center"><b>Nr.</b></td>'.NL.' <td>&nbsp;</td>'.NL.' <td>&nbsp;</td>';
     for($j=1;$j<$nSpalten;$j++) echo NL.' <td><b>'.htmlentities($kal_FeldName[$aSpalten[$j]]).'</b></td>';
     echo NL.'</tr>';
     if($nStart>1) $sQ.='&amp;kal_Start='.$nStart; $aQ['Start']=$nStart;
     $bAendern=file_exists('aendern.php'); $bKopiere=file_exists('kopieren.php'); $bDetail=file_exists('detail.php');
     foreach($aD as $a){ //Datenzeilen ausgeben
      $sId=$a[0];
      echo NL.'<tr class="kalTabl">';
      echo NL.' <td align="right" valign="top">'.$sId.'&nbsp;<input class="kalCheck" type="checkbox" name="kal_L'.$sId.'" value="1"'.($aId[$sId]?' checked="checked"':'').' /></td>';
      echo NL.' <td align="center" valign="top">'.($bAendern?'<a href="aendern.php?kal_Num='.$sId.$sQ.'"><img src="'.$sHttp.'grafik/iconAendern.gif" width="12" height="13" border="0" title="Bearbeiten"></a>':'&nbsp;').'</td>';
      echo NL.' <td align="center" valign="top">'.($bKopiere?'<a href="kopieren.php?kal_Num='.$sId.$sQ.'"><img src="'.$sHttp.'grafik/iconKopieren.gif" width="12" height="13" border="0" title="Kopieren"></a>':'&nbsp;').'</td>';
      for($j=1;$j<$nSpalten;$j++){
       $k=$aSpalten[$j]; $t=$kal_FeldType[$k]; $sStil='';
       if($s=$a[$j]){
        switch($t){
         case 't': case 'm': case 'g': $s=fKalBB($s); break; // Text/Memo
         case 'a': case 'k': case 'o': case 'u': break; // so lassen
         case 'd': case '@': $w=substr($s,11,1); // Datum
          $s1=substr($s,8,2); $s2=substr($s,5,2); $s3=(KAL_Jahrhundert?substr($s,0,4):substr($s,2,2));
          switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
           case 0: $v='-'; $s1=$s3; $s3=substr($s,8,2); break; case 1: $v='.'; break;
           case 2: $v='/'; $s1=$s2; $s2=substr($s,8,2); break; case 3: $v='/'; break; case 4: $v='-'; break;
          }
          $s=$s1.$v.$s2.$v.$s3;
          if($t=='d'){if(KAL_MitWochentag) if(KAL_MitWochentag<2) $s=$kal_WochenTag[$w].'&nbsp;'.$s; else $s.='&nbsp;'.$kal_WochenTag[$w];}
          if($j==1&&$bDetail) $s='<a href="detail.php?kal_Num='.$sId.$sQ.($bArchiv?'&amp;kal_Archiv=1':'').'">'.$s.'</a>';
          break;
         case 'z': $sStil.='text-align:center;'; break; // Uhrzeit
         case 'w': // Währung
          if($s>0||!KAL_PreisLeer){
           $s=number_format($s,KAL_Dezimalstellen,KAL_Dezimalzeichen,KAL_Tausendzeichen);
           if(KAL_Waehrung) $s.='&nbsp;'.KAL_Waehrung; $sStil.='text-align:right;';
          }else $s='&nbsp;';
          break;
         case 'j': case 'v': $s=strtoupper(substr($s,0,1)); // Ja/Nein
          if($s=='J'||$s=='Y') $s=KAL_TxJa; elseif($s=='N') $s=KAL_TxNein; $sStil.='text-align:center;';
          break;
         case 'n': case '1': case '2': case '3': case 'r': // Zahl
          if($t!='r') $s=number_format($s,(int)$t,KAL_Dezimalzeichen,''); else $s=str_replace('.',KAL_Dezimalzeichen,$s); $sStil.='text-align:right;';
          break;
         case 'l':
          if(ADM_LinkSymbol){
           $v='<img src="'.$sHttp.'grafik/'.(strpos($s,'@')?'mail':'link').'.gif" width="16" height="16" border="0" title="'.$s.'">'; $sStil.='text-align:center;';
          }else $v=$s;
          $s='<a href="'.(strpos($v,'@')?'mailto:':'http://').$s.'" target="_blank">'.$v.'</a>';
          break;
         case 'e': case 'c':
          if(!KAL_SQL) $s=fKalDeCode($s);
          if(ADM_LinkSymbol){
           $v='<img src="'.$sHttp.'grafik/mail.gif" width="16" height="16" border="0" title="'.$s.'">'; $sStil.='text-align:center;';
          }else $v=$s;
          $s='<a href="mailto:'.$s.'" target="_blank">'.$v.'</a>';
          break;
         case 's': $w=$s;
          if(ADM_SymbSymbol){
           $s='grafik/symbol'.$kal_Symbole[$s].'.'.KAL_SymbolTyp; $aI=@getimagesize(KAL_Pfad.$s);
           $s='<img src="'.$sHttp.$s.'" '.$aI[3].' border="0" alt="'.$w.'" />'; $sStil.='text-align:center;';
          }
          break;
         case 'b':
          if(ADM_BildVorschau){
           $s=substr($s,0,strpos($s,'|')); $s=KAL_Bilder.$sId.'-'.$s; $aI=@getimagesize(KAL_Pfad.$s); // Bild
           $s='<img src="'.$sHttp.$s.'" '.$aI[3].' border="0" title="'.substr($s,7).'" />'; $sStil.='text-align:center;';
          }else $s=fKalKurzName(substr($s,strpos($s,'|')+1));
          break;
         case 'f':
          if(ADM_DateiSymbol){
           $w=substr(strrchr($s,'.'),1); $v=ucfirst(strtolower(substr($w,0,3))); // Datei
           if($v!='Doc'&&$v!='Xls'&&$v!='Pdf'&&$v!='Zip'&&$v!='Htm'&&$v!='Jpg'&&$v!='Gif') $v='Dat'; $sStil.='text-align:center;';
           $v='<img src="'.$sHttp.'grafik/datei'.$v.'.gif" width="16" height="16" border="0" title="'.strtoupper($w).'-'.KAL_TxDatei.'" />';
          }else $v=fKalKurzName($s);
          $s='<a href="'.$sHttp.KAL_Bilder.$sId.'~'.$s.'">'.$v.'</a>';
          break;
         case 'x': break;
         case 'p': $s=str_repeat('*',strlen($s)/2); break;
        }
       }else $s='&nbsp;';
       if(($w=$kal_SpaltenStil[$k])||$sStil) $sStil=' style="'.$sStil.$w.'"';
       echo NL.' <td valign="top"'.$sStil.'>'.$s.'</td>';
      }
      echo NL.'</tr>';
     }
    ?>
     <tr class="kalTabl">
     <td align="right">
      <?php if(file_exists('loeschen.php')){?><input type="image" src="<?php echo $sHttp?>grafik/iconLoeschen.gif" width="12" height="13" border="0" title="markierte Termine löschen" /><?php }?>&nbsp;<input class="kalCheck" type="checkbox" name="kal_All" value="1" onClick="fSelAll(this.checked)" />
     </td>
     <td colspan="<?php echo 1+$nSpalten?>">&nbsp;</td>
     </tr>
    </table>
    <?php while(list($k,$v)=each($aQ)) echo NL.'<input type="hidden" name="kal_'.$k.'" value="'.$v.'" />'?>
    
    </form>
    <?php echo $sNavigator?>
    
    <p><?php echo date('d.m.Y, H:i:s')?></p>
    </body>
    </html>
    
    <?php
    function fKalDeCode($w){
     $nCod=(int)substr(KAL_Schluessel,-2); $s=''; $j=0;
     for($k=strlen($w)/2-1;$k>=0;$k--){$i=$nCod+($j++)+hexdec(substr($w,$k+$k,2)); if($i>255) $i-=256; $s.=chr($i);}
     return $s;
    }
    
    function fKalKurzName($s){$i=strlen($s); if($i<=25) return $s; else return substr_replace($s,'...',16,$i-22);}
    
    function fKalNormDatum($w){
     $nJ=2; $nM=1; $nT=0;
     switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
      case 0: $t='-'; $nJ=0; $nM=1; $nT=2; break; case 1: $t='.'; break;
      case 2: $t='/'; $nJ=2; $nM=0; $nT=1; break; case 3: $t='/'; break; case 4: $t='-'; break;
     }
     $a=explode($t,str_replace('_','-',str_replace(':','.',str_replace(';','.',str_replace(',','.',$w)))));
     return sprintf('%04d-%02d-%02d',strlen($a[$nJ])<=2?$a[$nJ]+2000:$a[$nJ],$a[$nM],$a[$nT]);
    }
    
    function fKalNavigator($nStart,$nCount,$nListenLaenge,$sQry,$bArchiv){
     $nPgs=ceil($nCount/$nListenLaenge); $nPag=ceil($nStart/$nListenLaenge);
     $s ='<td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).'1'.($bArchiv?'&amp;kal_Archiv=1':'').'" title="Anfang">|&lt;</a></td>';
     $nAnf=$nPag-4; if($nAnf<=0) $nAnf=1; $nEnd=$nAnf+9; if($nEnd>$nPgs){$nEnd=$nPgs; $nAnf=$nEnd-9; if($nAnf<=0) $nAnf=1;}
     for($i=$nAnf;$i<=$nEnd;$i++){
      if($i!=$nPag) $nPg=$i; else $nPg='<b>'.$i.'</b>';
      $s.=NL.'  <td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).(($i-1)*$nListenLaenge+1).($bArchiv?'&amp;kal_Archiv=1':'').'" title="'.'">'.$nPg.'</a></td>';
     }
     $s.=NL.'  <td style="width:16px;text-align:center;"><a href="liste.php?'.substr($sQry.'&amp;kal_Start=',5).(max($nPgs-1,0)*$nListenLaenge+1).($bArchiv?'&amp;kal_Archiv=1':'').'" title="Ende">&gt;|</a></td>';
     $X =NL.'<table style="width:750px;margin-top:8px;margin-bottom:8px;" border="0" cellpadding="0" cellspacing="0">';
     $X.=NL.' <tr>';
     $X.=NL.'  <td>Seite '.$nPag.'/'.$nPgs.'</td>';
     $X.=NL.'  '.$s;
     $X.=NL.' </tr>'.NL.'</table>'.NL;
     return $X;
    }
    
    //BB-Code zu HTML wandeln
    function fKalBB($s){
     $v=str_replace("\n",'<br />',str_replace("\n ",'<br />',str_replace("\r",'',$s))); $p=strpos($v,'[');
     while(!($p===false)){
      $Tg=substr($v,$p,9);
      if(substr($Tg,0,3)=='[b]') $v=substr_replace($v,'<b>',$p,3); elseif(substr($Tg,0,4)=='[/b]') $v=substr_replace($v,'</b>',$p,4);
      elseif(substr($Tg,0,3)=='[i]') $v=substr_replace($v,'<i>',$p,3); elseif(substr($Tg,0,4)=='[/i]') $v=substr_replace($v,'</i>',$p,4);
      elseif(substr($Tg,0,3)=='[u]') $v=substr_replace($v,'<u>',$p,3); elseif(substr($Tg,0,4)=='[/u]') $v=substr_replace($v,'</u>',$p,4);
      elseif(substr($Tg,0,7)=='[color='){$o=substr($v,$p+7,9); $o=substr($o,0,strpos($o,']')); $v=substr_replace($v,'<span style="color:'.$o.'">',$p,8+strlen($o));} elseif(substr($Tg,0,8)=='[/color]') $v=substr_replace($v,'</span>',$p,8);
      elseif(substr($Tg,0,6)=='[size='){$o=substr($v,$p+6,4); $o=substr($o,0,strpos($o,']')); $v=substr_replace($v,'<span style="font-size:'.$o.'em">',$p,7+strlen($o));} elseif(substr($Tg,0,7)=='[/size]') $v=substr_replace($v,'</span>',$p,7);
      elseif(substr($Tg,0,8)=='[center]'){$v=substr_replace($v,'<p class="kalText" style="text-align:center">',$p,8); if(substr($v,$p-6,6)=='<br />') $v=substr_replace($v,'',$p-6,6);} elseif(substr($Tg,0,9)=='[/center]'){$v=substr_replace($v,'</p>',$p,9); if(substr($v,$p+4,6)=='<br />') $v=substr_replace($v,'',$p+4,6);}
      elseif(substr($Tg,0,7)=='[right]'){$v=substr_replace($v,'<p class="kalText" style="text-align:right">',$p,7); if(substr($v,$p-6,6)=='<br />') $v=substr_replace($v,'',$p-6,6);} elseif(substr($Tg,0,8)=='[/right]'){$v=substr_replace($v,'</p>',$p,8); if(substr($v,$p+4,6)=='<br />') $v=substr_replace($v,'',$p+4,6);}
      elseif(substr($Tg,0,5)=='[url]'){
       $o=$p+5; if(!$l=min(strpos($v,'[',$o),strpos($v,' ',$o))) $l=strpos($v,'[',$o);
       if(substr($v,$l,1)==' ') $v=substr_replace($v,'">',$l,1); else $v=substr_replace($v,'">'.substr($v,$o,$l-$o),$l,0);
       $v=substr_replace($v,'<a class="kalText" target="_blank" href="http://',$p,5);
      }elseif(substr($Tg,0,6)=='[/url]') $v=substr_replace($v,'</a>',$p,6);
      elseif(substr($Tg,0,5)=='[list'){
       if(substr($Tg,5,2)=='=o'){$q='o';$l=2;}else{$q='u';$l=0;}
       $v=substr_replace($v,'<'.$q.'l class="kalText"><li class="kalText">',$p,6+$l);
       $e=strpos($v,'[/list]',$p+5); if(substr($v,$e+7,6)=='<br />') $l=6; else $l=0; $v=substr_replace($v,'</'.$q.'l>',$e,7+$l);
       $l=strpos($v,'<br />',$p);
       while($l<$e&&$l>0){$v=substr_replace($v,'</li><li class="kalText">',$l,6); $e+=19; $l=strpos($v,'<br />',$l);}
      }
      $p=strpos($v,'[',$p+1);
     }return $v;
    }
    ?>

    aendern.php - die ändern datei die jetzt jedoch auf form action eingeben.php (dadurch wird anschließend der alte termin nicht gelöscht nur ein neuer erstellt.
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
    <meta http-equiv="expires" content="0">
    <title>Kalender</title>
    <link rel="stylesheet" type="text/css" href="styles.css">
    <script type="text/javascript" src="kalEingabe.js"></script>
    </head>
    
    <body>
    <h1><img src="_kalender.gif" width="19" height="25" border="0" align="bottom" alt=""> Kalender-Script: Termin aendern</h1>
    
    <?php
    include('programmPfad.php'); define('NL',"\n"); $Msg='';
    if(file_exists($Pfad.'kalWerte.php')){
     include($Pfad.'kalWerte.php'); $nFelder=count($kal_FeldName);
     $aFehl=array(); $aW=array(); $aOh=array(); $aOa=array(); $aOs=array();
     $bOK=false; $sFehl=''; $sZ=''; $sF=''; $bVmk=(strlen($_POST['kal_Vmk'].$_GET['kal_Vmk'])>0);
     if($_SERVER['REQUEST_METHOD']!='POST'){ //GET Daten holen
      $sQ=$_SERVER['QUERY_STRING']; $sId=$_GET['kal_Num'];
      if(!KAL_SQL){ //Textdaten
       $aD=file(KAL_Pfad.KAL_Daten.($bVmk?KAL_Vormerk:KAL_Termine)); $nSaetze=count($aD);
       for($i=1;$i<$nSaetze;$i++){
        $s=rtrim($aD[$i]); $p=strpos($s,';'); if($sId==substr($s,0,$p)){$aW=explode(';',str_replace('\n ',NL,$s)); break;}
       }
      }else{ //SQL-Daten
       if($DbC=mysql_connect(KAL_SqlHost,KAL_SqlUser,KAL_SqlPass)){
        if(mysql_select_db(KAL_SqlDaBa,$DbC)){
         if($rR=mysql_query('SELECT * FROM '.KAL_SqlTabT.' WHERE id="'.$sId.'" AND online'.($bVmk?'<>':'=').'"1"')){
          $aW=mysql_fetch_row($rR); mysql_free_result($rR); array_splice($aW,1,1);
         }else $Msg='<p class="kalFehl">'.KAL_TxSqlFrage.'</p>';
        }else $Msg='<p class="kalFehl">'.KAL_TxSqlDaBnk.'</p>'; mysql_close($DbC);
       }else $Msg='<p class="kalFehl">'.KAL_TxSqlVrbdg.'</p>';
      }
      for($i=1;$i<=$nFelder;$i++)
       if($kal_FeldType[$i]=='d'){if($aW[$i]) $aW[$i]=fKalAnzeigeDatum($aW[$i]);}
       elseif($kal_FeldType[$i]=='b'||$kal_FeldType[$i]=='f'){$aOa[$i]=$aW[$i]; if($p=strpos($aW[$i],'|')) $aW[$i]=substr($aW[$i],1+$p);}
       elseif($kal_FeldType[$i]=='w'||$kal_FeldType[$i]=='n'||$kal_FeldType[$i]=='1'||$kal_FeldType[$i]=='2'||$kal_FeldType[$i]=='3'||$kal_FeldType[$i]=='r') $aW[$i]=str_replace('.',KAL_Dezimalzeichen,$aW[$i]);
       elseif(($kal_FeldType[$i]=='e'||$kal_FeldType[$i]=='c')&&!KAL_SQL) $aW[$i]=fKalDeCode($aW[$i]);
       elseif($kal_FeldType[$i]=='p') $aW[$i]=fKalDeCode($aW[$i]);
       elseif($kal_FeldType[$i]=='@'){if($aW[$i]) $aW[$i]=trim(fKalAnzeigeDatum($aW[$i]).strstr($aW[$i],' '));}
     }else{ //POST Formularauswertung
      $sId=$_POST['kal_Num']; $sQ=$_POST['kal_Qry'];
      // Eingaben holen
      for($i=1;$i<$nFelder;$i++) if($kal_FeldType[$i]=='b'||$kal_FeldType[$i]=='f')
       {$aOh[$i]=$_POST['kal_Oh'.$i]; $aOa[$i]=$_POST['kal_Oa'.$i];} // kal_Oh: hochgeladene; kal_Oa: alte;
      for($i=1;$i<$nFelder;$i++){
       $s=stripslashes(@strip_tags(trim($_POST['kal_F'.$i]))); $t=$kal_FeldType[$i];
       if(strlen($s)>0||!$kal_PflichtFeld[$i]||$t=='b'||$t=='f'||$t=='@'){
        if($t!='m'&&$t!='g') $s=str_replace('"',"'",$s); $v=$s; // s:Eingabe, v:Speicherwert
        switch($t){
        case 't': case 'm': case 'a': case 'k': case 's': case 'j': case 'v': case 'g': case 'u': case 'x': //Text,Memo,Kategorie,Auswahl,Ja/Nein,Nutzer,Google-Map
         break;
        case 'd': //Datum
         if($s) if($v=fKalErzeugeDatum($s)) $s=fKalAnzeigeDatum($v); else $aFehl[$i]=true; break;
        case '@': //EintragsDatum
         if($s){if($v=fKalErzeugeDatum($s)) $v=substr($v,0,10).strstr($s,' '); else $v=date('Y-m-d H:i'); $s=fKalAnzeigeDatum($v).strstr($s,' ');}
         else{$v=date('Y-m-d H:i'); $s=fKalAnzeigeDatum($v).date(' H:i');} break;
        case 'z': //Uhrzeit
         if($s){$a=explode(':',str_replace('.',':',str_replace(',',':',$s))); $s=sprintf('%02d:%02d',$a[0],$a[1]); $v=$s;} break;
        case 'e': case 'c': // e-Mail, Kontakt-e-Mail
         if($s) if(!ereg("^[a-z0-9_-]+(\.[a-z0-9_-]+)*@([a-z0-9_-]+\.)*([a-z0-9äöü-]+\.[a-z]{2,4})$",strtolower($s))) $aFehl[$i]=true;
         if(!KAL_SQL) $v=fKalEnCode($s); break;
        case 'l': //Link oder e-Mail
         if($p=strpos(strtolower(substr($s,0,7)),'tp://')){$s=substr($s,$p+5); $v=$s;} break;
        case 'b': //Bild
         break;
        case 'f': //Datei
         break;
        case 'w': //Währung
         $v=number_format(str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s)),KAL_Dezimalstellen,'.','');
         $s=number_format($v,KAL_Dezimalstellen,KAL_Dezimalzeichen,''); break;
        case 'n': case '1': case '2': case '3': //Zahl
         $v=number_format(str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s)),(int)$t,'.','');
         $s=number_format($v,(int)$t,KAL_Dezimalzeichen,''); break;
        case 'r': //Zahl
         $v=str_replace(KAL_Dezimalzeichen,'.',str_replace(KAL_Tausendzeichen,'',$s));
         $s=str_replace('.',KAL_Dezimalzeichen,$v); break;
        case 'o': //PLZ
         if($s) if(strlen($s)!=KAL_PLZLaenge) $aFehl[$i]=true; break;
        case 'p': $v=fKalEnCode($s); break; //Passwort
        }$aW[$i]=$s;
        if(!KAL_SQL) $sZ.=';'.str_replace(NL,'\n ',str_replace("\r",'',str_replace(';','`,',$v)));
        else $sZ.=',kal_'.$i.'="'.str_replace('"','\"',$v).'"';
       }else{$aFehl[$i]=true; if(!KAL_SQL) $sZ.=';';}
      }
      if($bVmk){$aW[$nFelder]=$_POST['kal_Per']; if(!KAL_SQL) $sZ.=';'.$aW[$nFelder];}
    
      $Msg='<p class="kalFehl">In diesem Demo sind Terminänderungen nicht vorgesehen.</p>';
    
     }//POST
     $aVg=file(KAL_Pfad.KAL_Daten.KAL_Vorgaben); //Hinweise und Kategorien holen
     if(!$Msg) $Msg='<p class="kalMeld">'.KAL_TxAendereMeld.'</p>';
    }else $Msg='<p class="kalFehl">Setup-Fehler: Die Datei <i>kalWerte.php</i> im Programmverzeichnis kann nicht gelesen werden!</p>';
    
    //Scriptausgabe
    $sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://'.KAL_Www;
    echo $Msg.NL;
    ?>
    
    <script type="text/javascript">
     function GeoWin(){geoWin=window.open("about:blank","geowin","width=<?php echo (min(max(KAL_GMapBreit,500),725)+50)?>,height=700,left=5,top=5,menubar=no,statusbar=no,toolbar=no,scrollbars=yes,resizable=yes");geoWin.focus();}
    </script>
    
    <form name="kalEingabe" action="eingabe.php" enctype="multipart/form-data" method="post">
    <input type="hidden" name="kal_Num" value="<?php echo $sId?>" />
    <input type="hidden" name="kal_Vmk" value="<?php echo ($bVmk?'1':'')?>" />
    <input type="hidden" name="kal_Qry" value="<?php echo $sQ?>" />
    <input type="hidden" name="kal_Per" value="<?php echo $aW[$nFelder]?>" />
    <table class="kalTabl" width="750" border="0" cellpadding="2" cellspacing="1">
    <?php
     for($i=1;$i<$nFelder;$i++){
      $aHlp=explode(';',trim($aVg[$i])); //Hilfetext und etwaige Vorgabewerte
      echo NL.' <tr class="kalTabl">';
      echo NL.'  <td style="vertical-align:top;padding-top:5px;">'.$kal_FeldName[$i].($kal_PflichtFeld[$i]?'*':'').'</td>'; //Feldname
      echo NL.'  <td>'; $sZ=NL.'   <div'.($aFehl[$i]?' class="kalFehl"':'').'>';
      $t=$kal_FeldType[$i]; $v=str_replace('`,',';',$aW[$i]); //Feldinhalt
      switch($t){
      case 't': case 'l': case 'e': case 'c': //Text, Link, e-Mail, Kontakt
       echo $sZ.'<input class="kalEing" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="255" /></div>';
       break;
      case 'm': //Memo
       if(KAL_FormatCode) echo NL.'   <div title="'.KAL_TxBB_X.'">'.NL.fKalBBToolbar($i).NL; else echo NL.'   <div>';
       echo $sZ.'<textarea class="kalEing" name="kal_F'.$i.'" cols="80" rows="10">'.$v.'</textarea></div>'.NL.'   </div>';
       break;
      case 'a': case 'k': case 's': //Aufzählung/Kategorie
       reset($aHlp); $sO=''; foreach($aHlp as $w) $sO.='<option value="'.$w.'"'.($v==$w?' selected="selected"':'').'>'.$w.'</option>';
       echo $sZ.'<select class="kalEing" name="kal_F'.$i.'" size="1"><option value=""></option>'.substr($sO,strpos($sO,'<option',9)).'</select></div>';
       break;
      case 'd': //Datum
       echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="10" /> <span class="kalMini">'.KAL_TxFormat.' '.fKalDatumsFormat().'</span></div>';
       break;
      case '@': //EintragsDatum
       echo $sZ.$v.'<input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /></div>'; break;
      case 'z': //Zeit
       echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="5" /> <span class="kalMini">'.KAL_TxFormat.' '.KAL_TxSymbUhr.'</span></div>';
       break;
      case 'j': case 'v': //Ja/Nein
       echo $sZ.'<input class="kalRadio" type="radio" name="kal_F'.$i.'" value="J"'.($v!='J'?'':' checked="checked"').' /> '.KAL_TxJa.' &nbsp; <input class="kalRadio" type="radio" name="kal_F'.$i.'" value="N"'.($v!='N'?'':' checked="checked"').' /> '.KAL_TxNein.'</div>';
       break;
      case 'w': //Währung
       echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> '.KAL_Waehrung.'</div>';
       break;
      case 'n': case 'r': case '1': case '2': case '3': case 'o': //Zahlen
       echo $sZ.'<input class="kalEing" style="width:7em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" />'.($t!='o'?'':' <span class="kalMini">'.KAL_PLZLaenge.' '.KAL_TxStellen.'</span>').'</div>';
       break;
      case 'b': //Bild
       echo $sZ.'<input class="kalEing" type="file" name="kal_Up'.$i.'" /><input type="hidden" name="kal_Oa'.$i.'" value="'.$aOa[$i].'" /></div>';
       if($v) echo NL.'   <div style="float:left;"><input class="kalCheck" type="checkbox" name="kal_Dl'.$i.'" value="1" /><input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /><input type="hidden" name="kal_Oh'.$i.'" value="'.$aOh[$i].'" /> <span class="kalMini">'.$v.' '.KAL_TxLoeschen.'</span></div>';
       echo NL.'   <div style="text-align:right;padding:1px;line-height:1.4em;"><span class="kalMini">(max. '.KAL_BildMaxKByte.' KByte)</span></div>';
       break;
      case 'f': //Datei
       echo $sZ.'<input class="kalEing" type="file" name="kal_Up'.$i.'" /><input type="hidden" name="kal_Oa'.$i.'" value="'.$aOa[$i].'" /></div>';
       if($v) echo NL.'   <div style="float:left;"><input class="kalCheck" type="checkbox" name="kal_Dl'.$i.'" value="1" /><input type="hidden" name="kal_F'.$i.'" value="'.$v.'" /><input type="hidden" name="kal_Oh'.$i.'" value="'.$aOh[$i].'" /> <span class="kalMini">'.$v.' '.KAL_TxLoeschen.'</span></div>';
       echo NL.'   <div style="text-align:right;padding:1px;line-height:1.4em;"><span class="kalMini">(max. '.KAL_DateiMaxKByte.' KByte)</span></div>';
       break;
      case 'x':
       echo $sZ.'<input class="kalGMap" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="255" />&nbsp;<a href="'.$sHttp.'googlemap.php?'.$i.($v?','.$v:'').'" target="geowin" onclick="javascript:GeoWin();"><img src="'.$sHttp.'grafik/iconAendern.gif" width="12" height="13" border="0" title="Koordinaten bearbeiten"></a></div>';
       break;
      case 'g': //Gastkommentar
       if(KAL_FormatCode) echo NL.'   <div title="'.KAL_TxBB_X.'">'.NL.fKalBBToolbar($i).NL; else echo NL.'   <div>';
       echo $sZ.'<textarea class="kalEing" name="kal_F'.$i.'" cols="80" rows="10">'.$v.'</textarea></div>'.NL.'   </div>';
       break;
      case 'u': // Benutzername
       echo $sZ.'<input class="kalEing" style="width:12em;" type="text" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> <span class="kalMini">'.KAL_TxNutzerNr.'</span></div>';
       break;
      case 'p': // Passwort
       echo $sZ.'<input class="kalEing" style="width:12em;" type="password" name="kal_F'.$i.'" value="'.$v.'" maxlength="16" /> <span class="kalMini">'.KAL_TxPassRegel.'</span></div>';
       break;
      }
      if($v=$aHlp[0]) echo NL.'   <div><span class="kalMini">'.str_replace('`,',';',$v).'</span></div>'; // Eingabehilfe
      echo NL.'  </td>'.NL.' </tr>';
     }
     //Pflichtfeldzeile
     echo NL.' <tr class="kalTabl"><td class="kalMini">&nbsp;</td><td class="kalMini" style="text-align:right;">* <span class="kalMini">'.KAL_TxPflicht.'</span></td></tr>';
    ?>
    
    </table>
    <p style="margin:12px;padding-left:310px;"><input type="submit" value="Eintragen" style="width:120px;"></p>
    </form>
    <?php if(file_exists((!$bVmk?'liste':'vormerkungen').'.php')){?><p style="margin:12px;padding-left:316px;">[ <a href="<?php echo (!$bVmk?'liste':'vormerkungen').'.php?'.$sQ?>">zurück zur Liste</a> ]</p><?php }?>
    
    <p><?php echo date('d.m.Y, H:i:s')?></p>
    </body>
    </html>
    
    <?php
    function fKalEnCode($w){
     $nCod=(int)substr(KAL_Schluessel,-2); $s='';
     for($k=strlen($w)-1;$k>=0;$k--){$n=ord($w{$k})-($nCod+$k); if($n<0) $n+=256; $s.=sprintf('%02X',$n);}
     return $s;
    }
    function fKalDeCode($w){
     $nCod=(int)substr(KAL_Schluessel,-2); $s=''; $j=0;
     for($k=strlen($w)/2-1;$k>=0;$k--){$i=$nCod+($j++)+hexdec(substr($w,$k+$k,2)); if($i>255) $i-=256; $s.=chr($i);}
     return $s;
    }
    
    function fKalDateiname($s){
     $s=str_replace('Ä','Ae',str_replace('Ö','Oe',str_replace('Ü','Ue',str_replace('ß','ss',$s))));
     return str_replace('ä','ae',str_replace('ö','oe',str_replace('ü','ue',str_replace(' ','_',$s))));
    }
    
    function fKalErzeugeDatum($w){
     $nJ=2; $nM=1; $nT=0;
     switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
      case 0: $t='-'; $nJ=0; $nM=1; $nT=2; break; case 1: $t='.'; break;
      case 2: $t='/'; $nJ=2; $nM=0; $nT=1; break; case 3: $t='/'; break; case 4: $t='-'; break;
     }
     $a=explode($t,str_replace('_','-',str_replace(':','.',str_replace(';','.',str_replace(',','.',$w)))));
     $nJ=(strlen($a[$nJ])<=2?2000+$a[$nJ]:(int)$a[$nJ]); $nM=(int)$a[$nM]; $nT=(int)$a[$nT];
     if(checkdate($nM,$nT,$nJ)) return sprintf('%04d-%02d-%02d',$nJ,$nM,$nT).rtrim(@date(' w',@mktime(12,0,0,$nM,$nT,$nJ)));
     else return false;
    }
    
    function fKalAnzeigeDatum($w){
     $s1=substr($w,8,2); $s2=substr($w,5,2); $s3=substr($w,0,4);
     switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
      case 0: $t='-'; $s1=$s3; $s3=substr($w,8,2); break; case 1: $t='.'; break;
      case 2: $t='/'; $s1=$s2; $s2=substr($w,8,2); break; case 3: $t='/'; break; case 4: $t='-'; break;
     }
     return $s1.$t.$s2.$t.$s3;
    }
    
    function fKalDatumsFormat(){
     $s1=KAL_TxSymbTag; $s2=KAL_TxSymbMon; $s3=(KAL_Jahrhundert?KAL_TxSymbJhr:'').KAL_TxSymbJhr;
     switch(KAL_Datumsformat){ //0:yy-mm-dd 1:dd.mm.yy 2:mm/dd/yy 3:dd/mm/yy 4:dd-mm-yy
      case 0: $t='-'; $s1=$s3; $s3=KAL_TxSymbTag; break; case 1: $t='.'; break;
      case 2: $t='/'; $s1=$s2; $s2=KAL_TxSymbTag; break; case 3: $t='/'; break; case 4: $t='-'; break;
     }
     return $s1.$t.$s2.$t.$s3;
    }
    
    function fKalBBToolbar($Nr){
     $sHttp='http'.($_SERVER['SERVER_PORT']!='443'?'':'s').'://';
     $X =NL.'<table class="kalTool" border="0" cellpadding="0" cellspacing="0">';
     $X.=NL.' <tr>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Bold',   0,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Italic', 2,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Uline',  4,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Center', 6,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Right',  8,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Enum',  10,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Number',12,$sHttp).'</td>';
     $X.=NL.'  <td>'.fDrawToolBtn($Nr,'Link',  16,$sHttp).'</td>';
     $X.=NL.'  <td><img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tbColor.gif" style="margin-right:0;cursor:default;" title="'.KAL_TxBB_O.'" /></td>';
     $X.=NL.'  <td>
       <select class="kalTool" name="kal_Col'.$Nr.'" onChange="fCol('.$Nr.',this.options[this.selectedIndex].value); this.selectedIndex=0;" title="'.KAL_TxBB_O.'">
        <option value=""></option>
        <option style="color:black" value="black">Abc9</option>
        <option style="color:red;" value="red">Abc9</option>
        <option style="color:violet;" value="violet">Abc9</option>
        <option style="color:brown;" value="brown">Abc9</option>
        <option style="color:yellow;" value="yellow">Abc9</option>
        <option style="color:green;" value="green">Abc9</option>
        <option style="color:lime;" value="lime">Abc9</option>
        <option style="color:olive;" value="olive">Abc9</option>
        <option style="color:cyan;" value="cyan">Abc9</option>
        <option style="color:blue;" value="blue">Abc9</option>
        <option style="color:navy;" value="navy">Abc9</option>
        <option style="color:gray;" value="gray">Abc9</option>
        <option style="color:silver;" value="silver">Abc9</option>
        <option style="color:white;background-color:#999999" value="white">Abc9</option>
       </select>
      </td>';
     $X.=NL.'  <td><img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tbSize.gif" style="margin-right:0;cursor:default;" title="'.KAL_TxBB_S.'" /></td>';
     $X.=NL.'  <td>
       <select class="kalTool" name="kal_Siz'.$Nr.'" onChange="fSiz('.$Nr.',this.options[this.selectedIndex].value); this.selectedIndex=0;" title="'.KAL_TxBB_S.'">
        <option value=""></option>
        <option value="+2">&nbsp;+2</option>
        <option value="+1">&nbsp;+1</option>
        <option value="-1">&nbsp;- 1</option>
        <option value="-2">&nbsp;- 2</option>
       </select>
      </td>';
     $X.=NL.' </tr>';
     $X.=NL.'</table>';
     return $X;
    }
    function fDrawToolBtn($Nr,$vImg,$nTag,$sHttp){
     return '<img class="kalTool" src="'.$sHttp.KAL_Www.'grafik/tb'.$vImg.'.gif" onClick="fFmt('.$Nr.','.$nTag.')" style="background-image:url('.$sHttp.KAL_Www.'grafik/tool.gif);" title="'.constant(KAL_TxBB_.$vImg{0}).'" />';
    }
    ?>



    Ein ziemlich langer HTML Code.
    Könnt ihr mir helfen indem ihr einen PHP Code entwirft, der die alte Termindatei auch automatisch löschst.
    Wenn Dateien noch benötigt werden bitte einfach melden.
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. Sorry, aber es wäre wesentlich einfacher Dir zu helfen, wenn man Deinen Code richtig lesen könnte. Halte Dich dabei einfach an den Standard: [LINK]

    Ist zwar nen haufen Arbeit das zu überarbeiten, aber Dir und vor allem uns, fällt es dann wesentlich leichter das Problem zu finden.
  4. Autor dieses Themas

    kevinweiler

    Kostenloser Webspace von kevinweiler

    kevinweiler hat kostenlosen Webspace.

    Naja was solls
    dann lass ich lieber den PHP Code so und versuche selber das Problem zu finden.
    Dachte der PHP Code wäre überall gleich.
  5. kevinweiler schrieb:
    Naja was solls
    dann lass ich lieber den PHP Code so und versuche selber das Problem zu finden.
    Dachte der PHP Code wäre überall gleich.


    Ja, Dein code ist überall gleich... gleich in einer Zeile geschrieben und kaum vernünftig zu lesen:
    <?php
    include('programmPfad.php'); define('NL',"\n"); $Msg=''; $bOK=false;
    if(file_exists($Pfad.'kalWerte.php')){
     include($Pfad.'kalWerte.php'); $nFelder=count($kal_FeldName); if(KAL_NListeAnders) $kal_ListenFeld=$kal_NListenFeld;


    Schreibt man Zum Beispiel eher so:
    <?php
    include('programmPfad.php');#
    define('NL',"\n");
    
    $Msg='';
    $bOK=false;
    
    if(file_exists($Pfad.'kalWerte.php')) {
     include($Pfad.'kalWerte.php');
      $nFelder=count($kal_FeldName);
      if(KAL_NListeAnders) // Was soll hier groß passieren?
      $kal_ListenFeld=$kal_NListenFeld;
      //...
     }
     //...
    }
    ?>


    Die Tabs habe ich mir mal gespart... aber das Prinzip sollte klar sein.
  6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!