1
Tags:
asp
Skrevet af
Bruger #15158
@ 29.09.2009
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
Vedhæftede filer:
Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.
Del også gerne artiklen med dine Facebook venner:
Kommentarer (3)
Jeg troede at ASP var noget nær uddød?
Hej Martin.
Det er sikkert også kun et spørgsmål om tid. Og det er ret beset kun dovenskab der har bremset mig i at gøre noget mere ved eksempelvis PHP.
(
Nu har jeg i så mange år skrevet i ASP, så det ....)
Men det var ligesom dengang med videobåndet. Selvom VHS for længst havde vundet kampen, var vi stadig nogle få naive fjolser, der forsøgte at holde liv i Betamax'en.
MrLES
Har du overvejet ASP.NET istedet?
Jeg programmere selv i ASP.NET og er lykkelig for det, af samme grund finder jeg ikke din artikel interessant og har derfor ikke rated den.
MVH Jeppe.
Du skal være
logget ind for at skrive en kommentar.