Ein einfacher Counter der statt Zahlen Grafiken anzeigt und das Datenbankbasiert. Das ist das wesentliche von diesem Tipp. Als Grundlage wird der Counter von Tipp 8: ASP - Counter verwendet. Natürlich wird die Datenbank weiter eingesetzt, das Skript daraus:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Response.Write(Counter)

Public Function Counter()
    Dim rs, strPfadDB
    strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                Server.MapPath("db\Counter.mdb") & _
                ";Mode=ReadWrite;Persist Security Info=False"

    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "Select tblCounter.Counter from tblCounter", strPfadDB, 1, 2
    rs.Update
    rs.Fields("Counter").Value = rs.Fields("Counter").Value + 1
    Counter = rs.Fields("Counter").Value
    rs.UpdateBatch
    rs.Close
    set rs = nothing
End Function

Dieser Quellcode wird nun so geändert, daß statt Zahlen Grafiken ausgegeben werden. Die Änderungen sind nicht allzu umfangreich. Nur daß statt einer Function eine Sub eingesetzt wird, das ganze soll ja keinen Wert zurückgeben. Damit wird natürlich eine weitere Variable benötigt, neben 2 weiteren.

Nachdem der Wert ausgelesen wurde, wird in einer Schleife jede einzelne Zahl als Grafik dargestellt, so sieht das Ergebnis aus:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

call graphiccounter()
public sub graphiccounter()
    Dim rs, strPfadDB, strCounter, LenOfCounter, index
    strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                Server.MapPath("db\Counter.mdb") & _
                ";Mode=ReadWrite;Persist Security Info=False"

    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "Select tblCounter.Counter from tblCounter", strPfadDB, 1, 2
    rs.Update
    rs.Fields("Counter").Value = rs.Fields("Counter").Value + 1
    strCounter = rs.Fields("Counter").Value
    rs.UpdateBatch
    rs.Close
    set rs = nothing

    LenOfCounter = len(strCounter)
    for index = 1 to LenOfCounter
        Response.Write("<img src=""images/graphiccounter/" & _
                           mid(strCounter, index, 1) & ".gif"">")
    next
end sub

Herunterladen: tip84.zip

<< Zum vorherigen Tipp 83:
Höhe und Breite von einem Bild ermitteln

Zum nächsten Tipp 85 >>
Access-Datenbank per Passwort sichern

top