Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 12:33 Der er 12 kommentarer og
1 løsning

usynlig tæller

Kan man lave en tæller der virker på en side, men vises på en anden side (evt. i asp)
Pointen er at administratoren kan holde øje med trafikken uden at brugeren kigger på en grim og kikset tæller!
/Ole
Avatar billede cdc Novice
11. oktober 2003 - 12:38 #1
denne kan du måske bruge, er på svensk, og har ikke selv testet den endnu:
http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=67
Avatar billede c Nybegynder
11. oktober 2003 - 16:26 #2
Det kan man snildt...

og på mange måder... den nemeste er at lave selv counter funktionen i en asp-fil for dig selv, og så bare include dette.

håber det var det du mente.

mvh
Christian
Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 17:18 #3
det lyder enkelt - kan det blive lidt mere konkret!
Avatar billede ellebaek Nybegynder
11. oktober 2003 - 17:24 #4
jeg benytter denne funktion...

<%
<%
if not Session("tralala") <> "" then
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("count.txt")
set file = fs.OpenTextFile(filespec,1)
antal = file.readLine

set file = fs.OpenTextFile(filespec,2)
antal = antal+1
file.write antal
Session("tralala") = "tralala"
end if
%>

der er en tæller der skriver antallet af besøgende til en tekstfil der hedder count.txt.

Så sætter du bare scriptet ind i toppen af din default.asp side fx.
det kræver du har en fil der hedder count.txt kun indeholdende et 0 til at begynde med...
Når du skal hente informationen ud igen kan du bruge:
<%
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("count.txt")
set file = fs.OpenTextFile(filespec,1)
response.write "Antal: " & file.readLine
%>
Avatar billede ellebaek Nybegynder
11. oktober 2003 - 17:25 #5
ups...

lige en <% for meget i starten..
Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 20:43 #6
Det lyder fornuftigt. Jeg får en fejlmelding på default-siden der hedder noget med adgang nægtet... i denne linie?

set file = fs.OpenTextFile(filespec,2)
Avatar billede ellebaek Nybegynder
11. oktober 2003 - 20:45 #7
hmm...

prøv.
<%
if not Session("tralala") <> "" then
set fs = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("count.txt")
set file = fs.OpenTextFile(filespec,1)
antal = file.readLine
file.close

set file = fs.OpenTextFile(filespec,2)
antal = antal+1
file.write antal
Session("tralala") = "tralala"
file.close
end if
%>
Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 21:09 #8
desværre samme resultat!
Avatar billede ellebaek Nybegynder
11. oktober 2003 - 21:17 #9
hmm...

Har IUSR skriverettigheder i den mappe hvor du afvikler scriptet ??
Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 21:26 #10
jeg prøver lige...
Avatar billede oleskrogh Nybegynder
11. oktober 2003 - 22:01 #11
næh, jeg synes nu der er skriveadgang og mappen er webdelt osv.
Avatar billede ellebaek Nybegynder
11. oktober 2003 - 22:02 #12
hmm...

Hvilken pws/iis bruger du..?
Avatar billede oleskrogh Nybegynder
12. oktober 2003 - 10:53 #13
hov, nu virker det - det count.txt skulle bare placeres i den rigtige mappe
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester