Rubrik: Teile für PC's
/* Aufruf: http://data.clinch.ch/posten/posten.html?id=SYS */ $DataFile = "\wwwroot\data.clinch.ch\posten\posten.txt"; $IPLogFile = "\wwwroot\data.clinch.ch\posten\posten.log"; $cfile = "\wwwroot\data.clinch.ch\posten\posten.cou"; echo "
Rubrik $id
"; /* Zugriffszähler */ if (file_exists($cfile)) { $fp = fopen($cfile,"r+"); $data = fgets($fp,25); $ip = chop(substr($data,0,15)); $count = substr($data,16); $count += 1; rewind ($fp); fputs($fp,substr($ip." ",0,16).$count); fclose ($fp); echo "Besucher: $count"; } else { $fp = fopen($cfile,"w"); $np = $_SERVER["REMOTE_ADDR"]; $count = "1"; fputs($fp,substr($np." ",0,16).$count); fclose ($fp); } echo "
"; /* IP Adresse aufzeichnen */ $fp = fopen($IPLogFile,"a"); fputs($fp,$_SERVER["REMOTE_ADDR"] . " " . date("d.m.Y, H:i") . "\r\n"); fclose ($fp); /* Preise ausgben */ if (file_exists($DataFile)) { $fp = fopen($DataFile,"r"); echo "
"; echo "
"; $zCount = 1; while ((!feof($fp)) and ($zCount<300)) { $Zeile = fgets($fp,1000); $Rubrik = SubStr($Zeile,0,strpos($Zeile,',')); $Zeile = SubStr($Zeile,strpos($Zeile,',')+1,1000); $ArtNr = SubStr($Zeile,0,strpos($Zeile,',')); $Zeile = SubStr($Zeile,strpos($Zeile,',')+1,1000); $Preis = SubStr($Zeile,0,strpos($Zeile,',')); $Zeile = SubStr($Zeile,strpos($Zeile,',')+1,1000); $Menge = SubStr($Zeile,0,strpos($Zeile,',')); $Zeile = SubStr($Zeile,strpos($Zeile,',')+1,1000); $Ueberschr = SubStr($Zeile,0,strpos($Zeile,',')); $Zeile = SubStr($Zeile,strpos($Zeile,',')+1,1000); $Bezeich = SubStr($Zeile,0,strpos($Zeile,',')); $BildScr = "Leer.gif"; If ($Rubrik==$id) { If (file_exists("$ArtNr.gif")) {$BildScr=$ArtNr . ".gif"; } If (file_exists("$ArtNr.jpg")) {$BildScr=$ArtNr . ".jpg"; } echo "
"; echo "
"; If ($BildScr<>"Leer.gif") { Echo "
";} else {echo " ";} echo "
"; echo "
"; echo "
$Ueberschr
"; echo "$Bezeich
"; echo "Art: $ArtNr Menge: $Menge
Preis: $Preis
"; echo "
"; echo "
"; echo "
"; } $zCount += 1; } fclose ($fp); echo "
"; } ?>