Räknare

Vissa ÄLSKAR accesscounters (Själv hatar jag dessa. Kanske för att jag aldrig själv kommer upp i mångsiffriga tal på mina sidor...)

Man kan enkelt skapa en counter med ASP. En fördel med ASP countern är att den räknar antalet besökare som kommer till NÅGON sida i applikationen

En nackdel med nedanstående kod är att räknaren nollställs om Web servern stängs eller serverdatorn stängs

Countern är således inte kopplad till en viss sida utan till själva applikationen

I global.asa filen kan man sätta in följande kod

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
    ' ...
    ' eventuell annan kod som skall köras
    ' ...
    Application.Lock
    Application("NumVisits") = Application("NumVisits") + 1
    If Application("NumVisits") = 1 Then
        Application("STARTED") = Date
    End if
    Application.Unlock
End Sub
</SCRIPT>

Sedan kan man sätta in t.ex. följande:

Du är besökare <%= Application("NumVisits") %> sedan <%= Application("STARTED") %>

Du är besökare 3 sedan

Eller varför inte: (Om vi har filerna 0.gif, 1.gif ... 9.gif i ./images katalogen)

Det har varit
<%  nummer = Application("NumVisits")
' sätt antal till antalet siffror du vill visa i din räknare
antal = 8
nummer = "0000000000000" & nummer
nummer = Right(nummer, antal)
For I = 1 to antal
      tecken = Mid(nummer,I,1)
      %>
      <img src="../images/<% =tecken %>.gif"
        border="0" width="<% =(I * 4 + 20) %>"
        height="<% =(I * 4 + 20) %>">
<%
next
%>
besökare!

Vilket ger:

---

Det har varit:
<img src="../images/0.gif" border="0" width="24" height="24">
<img src="../images/0.gif" border="0" width="28" height="28">
<img src="../images/0.gif" border="0" width="32" height="32">
<img src="../images/0.gif" border="0" width="36" height="36">
<img src="../images/0.gif" border="0" width="40" height="40">
<img src="../images/0.gif" border="0" width="44" height="44">
<img src="../images/0.gif" border="0" width="48" height="48">
<img src="../images/3.gif" border="0" width="52" height="52">
besökare!

Vill man undvika att bilderna kommer på olika rader (= mellanrum mellan dem) kan man använda följande kod istället:

<br>
<%  nummer = Application("NumVisits")
nummer = "00000000" & nummer
nummer = Right(nummer, 8)
'Response.Write nummer
For I = 1 to 8
      Response.Write "<img src=""../images/" & _
                          Mid(nummer,I,1) & _
                          ".gif"" border=""0"" width=""" & _
                          (I * 4 + 20) & """ height=""" & _
                          (I * 4 + 20) & _
                          """ HSPACE=""0"">"
next
%>

Det har varit: besökare!

Storleksförändringen är rätt onödig, men eftersom det gick att göra så...
Jag ber om ursäkt för de simpla siffrorna. Jag är ingen konstnär!

OBS! Egenligen är texten:
Du är besökare
missvisande eftesom det kan hända att det kommer fler användare in till applikationen innan ASP programmet hinner visa den applikationsglobla variabeln.

Nedan kommer en mer anständig variant:

<br>
<%  nummer = Application("NumVisits")
nummer = "00000000" & nummer
nummer = Right(nummer, 8)
'Response.Write nummer
For I = 1 to 8
      Response.Write "<img src=""../images/" & _
                          Mid(nummer,I,1) & _
                          ".gif"" border=""0"" & _
                          width=""24""" & _
                          height=""24"" >"
next
%>

Lämnar man bort dessa rader:
nummer = "00000000" & nummer
nummer = Right(nummer, 8)

och byter ut
For I = 1 to 8
till
For I = 1 to Len(nummer)

får man istället: