asp filen indeholder bl.a koden:
<%
strCount = Request.Cookies("cntr")
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile = Server.MapPath("aspcounter.txt")
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
Wfile = Server.MapPath("aspunique.txt")
Set a = fs.OpenTextFile(Wfile)
uniq = Clng(a.ReadLine)
If strCount = "" Then
uniq = uniq + 1
a.close
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(uniq)
a.Close
End If
Response.Cookies("cntr") = "on"
Response.Cookies("cntr").Expires = dateAdd("h",10,Now())
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials