Wowbagger: Textcounteranbieter, gibt es so etwas?

Beitrag lesen

SELF-Forum

Textcounteranbieter, gibt es so etwas?

Wowbagger
– Informationen zu den Bewertungsregeln

Hi,

Nun ja, stelle Dir einfach folgende Frage: Wie (mit welchem Tag) soll der Counter eingebunden werden? Bei einer Grafik ist das kein Problem, für Text gibt es da kaum Möglichkeiten - und die auch erst seit den allerneuesten Browsern, was für einen Counter inakzeptabel ist.

also ich hab's 'mal so probiert und das funktionierte
(es ist allerdings JavaScript nötig und ich schätze die 3er fossilien werden nicht mitspielen, doch das ist ja egal ;))

----- >=8 ------------------------- TEST.HTM

<SCRIPT LANGUAGE="JavaScript" type="text/javascript"><!--
NN= (document.layers) ? 1 : 0; IE= (document.all) ? 1 : 0;
function load(url,id,width) {
if (NN) document.layers[id].load(url,width);
//if (IE) if (window.frames.length>-1) window.frames[id].location.href= url;
}
//--></SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Text-Counter</title>
</head>

<body onLoad="if (NN) load('//www.domainname.xxx/cgi-bin/tcounter.pl','myLayer',25);">

<font face="Arial" size="1" color="teal">
Counterstand:
<iframe src="//www.domainname.xxx/cgi-bin/tcounter.pl" scrolling="No" width="50" height="25" id="myLayer" frameborder="No"></iframe>
<layer id="myLayer" style="position:relative;width:50;height:25;">
</layer>
</font>

<br><br>
hallo Welt!

</body>
</html>

----- >=8 ------------------------- TCOUNTER.PL

#!perl

$Savepath= "counter.dat";
#oder mit lokalem pfad, also z.b. E:/document_root/wasweisich/counter.dat
#das teil ist natürlich 'doof' und kann nur einen counter-verwalten (nur eine counter.dat) aber das ist ja nicht der punkt...
$fail= 0;
$Daten= 0;

if (open(COUNTDAT, "<$Savepath")==false) {$fail= 1;}

if ($fail==0) {
while (<COUNTDAT>) {
  $Daten= $_;
}
close(COUNTDAT);
$Daten++;
open(COUNTDAT, ">$Savepath")
  print "open_fail: $fail - Fehler beim Anlegen der Counter-Datei: $!";
print COUNTDAT $Daten;
close(COUNTDAT);
print $Head,$Daten,$Tail;
} else {
open(COUNTDAT, ">$Savepath")
  print "open_fail: $fail - Fehler beim Anlegen der Counter-Datei: $!";
$Daten++;
print COUNTDAT $Daten;
close(COUNTDAT);
print $Head,$Daten,$Tail;
}

----- >=8 -------------------------

<VOICE style="cow_and_chicken">
EEEND!
</VOICE>

so long...
/*,*/
Wowbagger

Beitrag melden
–
Informationen zu den Bewertungsregeln