ASP: Graphische Counter in ASP, textdateibasierend

SELFHTML aktuell Artikel ASP
	ASP: Graphische Counter, textdateibasierend
	Manuel Ernst Hinweise zum Thema Beispiel mit Erläuterungen Weiterführende Links

Manuel Ernst

E-Mail:	manuel-ernst@t-online.de
Homepage-URL:	http://www.manuprivate.de

Bei Fragen zu diesem Beitrag bitte den Autor des Beitrags kontaktieren!

Viele haben ja auf ihrem Webspace keine SQL-Unterstützung oder möchten sich nicht näher damit beschäftigen, daher bietet es sich an einen Counter über eine TXT-Datei laufen zu lassen. (Zumal es sich eher weniger lohnt eine Datenbank für einen einzelnen Counter zu verwenden.)

Das Ganze ist in ASP umgesetzt und greift auf eine TXT-Datei zu.
Der Vorteil ist, dass es mit keinem Browser Probleme gibt, da der Counter nicht über JavaSkripts oder Includes eingebunden wird, sondern dass es sich um einfache Bilddateien handelt, die in der HTML-Datei angezeigt werden.

Vorraussetzungen:

Es muss eine Datei count.txt geben (kann beliebig umgenannt werden, allerdings muss dem entsprechend auch der Dateiname im Quelltext geändert werden), in der Datei muss der Wert "0" stehen. (kann auch irgend einer andere ganze Zahl sein. Je nach dem was auf dem Counter angezeigt werden soll... *g*)
Es muss 10 *.gif Dateien geben, mit den Dateinamen 0.gif, 1.gif, 2.gif, .... 9.gif. (Im Beispiel in dem Verzeichnis "img"

Beispiel mit Erläuterungen

Beispiel

<% option explicit %>
<% dim objFSO, objfile, zeile, laenge, i, zeichen %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
	<title>Counter</title>
</head>

<body bgcolor="#000000">
<font face="arial">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<% path = Server.MapPath("/count.txt") %>
<% set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% set objfile = objFSO.OpenTextFile(("path"), 1, true) %>

	<% zeile = objfile.readline %>
	<% zeile = zeile + 1 %>

<% set objfile = nothing %>
<% set objfile = objFSO.OpenTextFile(("path"), 2, true) %>

	<% objfile.writeline(zeile) %>

<% objfile.close %>
<% set objfile = nothing %>
<% set objFSO = nothing %>

<% laenge = len(zeile) %>
	
<% for i = 1 to laenge %>
	<% zeichen = mid(zeile, i, 1) %>
	<td>
	<img src="img/<% = zeichen %>.gif">
	</td>

<% next %>

</tr>
</table>
</font>
</body>
</html>

Erläuterung:

Als erstes wird ein Serverobjekt erstellt.
Dann wird die Datei count.txt geöffnet. (lesender Zugriff) (Über Server.MapPath wird der physikalische Pfad auf dem Server zur Datei "count.txt" ermittelt.
Die erste Zeile wird ausgelesen und mit 1 addiert
Dann wird der Inhalt des Serverobjekts wieder gelöscht.
Die Datei wird dann wieder geöffnet (schreibender Zugriff)
Dann wird der neue Counter Wert in die Datei geschrieben
Der Inhalt des Serverobjekts wird gelöscht und das Serverobjekt auf "nothing" gesetzt
Theoretisch könnte man jetzt den Wert schon als Text ausgeben, jetzt kommt aber noch die graphische Umsetzung.
Die Länge des Strings wird ermittelt. (len(zeile))
Die Schleife wird dann entsprechend der Länge des Strings durchlaufen
Bei jedem Durchgang wird das entsprechende Zeichen herausgeholt (mid(zeile, 1, 1)), und dem entsprechend ein Bild ausgegeben. (src="img/<% = Zeichen %>.gif")

Durch die Tabelle wird gewährleistet, dass die Bilder alle ordentlich neben einander stehen.

Weiterführende Links

Die folgenden Stellen werden empfohlen, um das obige Beispiel besser zu verstehen, oder um weitere Möglichkeiten und Details zu erfahren.

ASP-Forum

ASP:Graphische Counter, textdateibasierend

Manuel Ernst

Hinweise zum Thema

Beispiel mit Erläuterungen

Beispiel

Erläuterung:

Weiterführende Links

ASP:
Graphische Counter, textdateibasierend