Tælleren har en begrænsning på 1000 besøgende om måneden. Hvis tallet bliver større, vil "talrullerne" nede i bunden af manometeret stadig tælle videre, men viseren vil blive stående på de 1000.
Ved månedskift vil tælleren automatisk nulstille sig selv.
Hvis loftet på de tusind besøgende ikke er tilstrækkeligt til din hjemmeside, må du ændre koden, så den matcher dit behov.
Ligeledes må du ændre grafikken på manometeret og tilføje en ekstra talrulle.
Selve koden til tælleren vil jeg ikke gå i dybden med. Blot vil jeg nævne, at jeg har den liggende som en ekstern fil, som er includeret i min HTML-tekst. De anvendte URL'er er adresser til min server, og de skal naturligvis ændres for at tælleren virker korrekt på din egen hjemmeside.
Foruden ASP-koden vedlægger jeg også min HTML-tekst samt mit Style Sheets.
ASP-kode:
<%
Dim strLine
Dim intCount
Dim intMonth
Dim strCount
Dim strMonth
Dim strViser
Dim strObject
Dim logFile
Dim filePath
intMonth = Month(Now)
if not Session("olduser") = "yes" then
Session("olduser") = "yes"
Session.Timeout = 600
Set strObject = Server.CreateObject("Scripting.FileSystemObject")
filePath = Server.Mappath("/eksempler/taeller/manometer/inc/manometer.txt")
if strObject.FileExists(filePath) = false then
strObject.CreateTextFile(filePath)
Set logFile = strObject.OpenTextFile(filePath,2)
intCount = 0
logfile.WriteLine intCount & "," & intMonth
logFile.Close
end if
Set strObject = CreateObject("Scripting.FileSystemObject")
filePath = Server.Mappath("/eksempler/taeller/manometer/inc/manometer.txt")
Set logFile = strObject.OpenTextFile(filePath,1)
strLine = split( logFile.ReadLine, ",")
intCount = strLine(0)
if Not intMonth = strLine(1) then
intCount = 0
end if
Set logFile = strObject.OpenTextFile(filePath,2)
intCount = intCount + 1
logfile.WriteLine intCount & "," & intMonth
logFile.Close
end if
Set strObject = CreateObject("Scripting.FileSystemObject")
filePath = Server.Mappath("/eksempler/taeller/manometer/inc/manometer.txt")
Set logFile = strObject.OpenTextFile(filePath,1)
strLine = split( logFile.ReadLine, ",")
intCount = strLine(0)
intMonth = strLine(1)
strCount = "000" & intCount
strMonth = "januar, februar, marts, april, maj, juni, juli, august, september, oktober, november, december"
strMonth = Split(strMonth,",")
strMonth = strMonth(intMonth - 1)
logFile.Close
Set strObject = Nothing
Set logFile = Nothing
Set filePath = Nothing
Response.write "<div id='month'>" & strMonth & "</div>"
Response.write "<div class='tal' style='left:59px'>" & Right(strCount, 4) & "</div>"
Response.write "<div class='tal' style='left:67px'>" & Right(strCount, 3) & "</div>"
Response.write "<div class='tal' style='left:75px'>" & Right(strCount, 2) & "</div>"
Response.write "<div class='tal' style='left:83px'>" & Right(strCount, 1) & "</div>"
intCount = intCount / 20
intCount = int(intCount) * 2
strCount = "00" & intCount
strViser = "http://www.danwire.dk/eksempler/taeller/manometer/graphic/mamometer_viser_" & Right(strCount, 3) & ".png"
if intCount > 100 then
strViser = "http://www.danwire.dk/eksempler/taeller/manometer/graphic/mamometer_viser_100.png"
end if
Response.write "<div id='viser'><img src='" & strViser & "' alt=''/></div>"
Set strLine = Nothing
Set intCount = Nothing
Set strCount = Nothing
Set intMonth = Nothing
Set strMonth = Nothing
Set strViser = Nothing
%>
HTML-tekst:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Danwire - Eksempler - Tæller - Manometer</title>
<meta name="title" content="Danwire - Eksempler - Tæller - Manometer" />
<meta name="description" content="" />
<meta name="keywords" content="" />
<meta name="language" content="dan" />
<meta name="date" content="10-02-05" />
<meta name="robots" content="noindex, nofollow" />
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Cache-Control" content="no-cache" />
<meta http-equiv="Cache-Control" content="no-store" />
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
<link rel="stylesheet" type="text/css" href="http://www.danwire.dk/eksempler/taeller/manometer/manometer.css" />
</head>
<body>
<div id="master">
<div id="manometer">
<!--#include virtual="/eksempler/taeller/manometer/inc/manometer.inc"-->
</div>
</div>
</body>
</html>
Style Sheets:
body
{
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
margin-left: 0px;
background:#ffffff;
}
a:link
{
font-family:arial, verdana, sans-serif;
font-size:13px;
font-weight:bold;
color:#0000ff;
text-decoration:none;
}
a:visited
{
font-family:arial, verdana, sans-serif;
font-size:13px;
font-weight:bold;
color:#0000ff;
text-decoration:none;
}
a:hover
{
font-family:arial, verdana, sans-serif;
font-size:13px;
font-weight:bold;
color:#9999ff;
text-decoration:none;
}
a:active
{
font-family:arial, verdana, sans-serif;
font-size:13px;
font-weight:bold;
color:#0000ff;
text-decoration:none;
}
#master
{
position:relative;
width:800px;
height:300px;
overflow: visible;
background:#ffffff;
}
#manometer
{
z-index:1;
position:absolute;
left:100px;
top:100px;
width:147px;
height:147px;
overflow:hidden;
background:transparent url("http://www.danwire.dk/eksempler/taeller/manometer/graphic/mamometer.png");
}
#month
{
z-index:2;
position:absolute;
left:43px;
top:50px;
width:61px;
height:13px;
font-family:arial, verdana, sans-serif;
font-size:11px;
font-weight:bold;
color:#333333;
text-decoration:none;
text-align:center;
overflow:hidden;
background:transparent;
}
.tal
{
z-index:3;
position:absolute;
top:112px;
width:5px;
height:12px;
font-family:arial, verdana, sans-serif;
font-size:11px;
font-weight:bold;
color:#333333;
text-decoration:none;
text-align:center;
overflow:hidden;
background:transparent;
}
#viser
{
z-index:4;
position:absolute;
left:1px;
top:0px;
width:145px;
height:145px;
overflow:hidden;
background:transparent;
}
Grafikken til tælleren har jeg gemt som en zip-fil, og den kan downloades her:
manometer_grafik.zip