webForumDet fria alternativet

Unika besökare, byta siffror emot bilder...

ASP

6 svar · 273 visningar · startad av adnoctum

Medlem sedan jan. 200438 inlägg
Frågan#1

Hej !

Jag har kört fast, jag kan inte få till det så att siffrorna i en .asp räknare som räknar unika besökare byts ut emot bilder...

Är det nån som har tid & lust att ge mig tips ? Här är koden...

<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("session_count.txt"))
counter = clng(act.readline)
if session("been_here_before") = "" then
session("been_here_before") = "Yes"
counter = counter + 1
Set act = fso.CreateTextFile(server.mappath("session_count.txt"), true)
act.WriteLine(counter)
end if
act.Close
Response.Write counter
%>

Antalet besökare sparas altså i "session_count.txt"....

Om någon har ett tips på en annan räknare, som räknar unika, totalt och som kan visa "unika besökare i dag", så vore det ännu bättre....

Medlem sedan juli 20015 107 inlägg
#2

http://www.webforum.nu/showthread.php?s=&threadid=93103&forumid=22

där hittar du lite grann om hur man byter ut bokstäver mot bilder! det är enkelt att skriva om till så att den gör om bara siffror!

MVH

Medlem sedan jan. 20032 285 inlägg
#3

Det lättaste sättet enligt mig är att göra på det här sättet:

strNumbers = "9845"

For i = 1 To Len(strNumbers)
  Response.Write("<img src=""" & Mid(strNumbers, i, 1) & """>")
Next

Välkommen till wF, förresten! :D

Medlem sedan jan. 200438 inlägg
#4

tack! jag brukar oftast bara kika i forumet, och söka efter möjliga svar på mina små webrelaterade problem när det inte går som jag vill... Men nu i dag så tappade jag tålamodet, efter att ha provat en massa olika alternativ för att byta siffror emot bilder...

Sebbe... jag är inte riktigt med på hur du menar att ditt förslag skulle användas, ska jag lägga det inom <% %>, eller ?

Medlem sedan juli 20015 107 inlägg
#5
<%
strNumbers = [b]"9845"[/b]

For i = 1 To Len(strNumbers)
  Response.Write("<img src=""" & Mid(strNumbers, i, 1) & """>")
Next
%>

Det fetmarkerade har sebbe bara lagt dit preliminärt så om du använder den koden så kommer 9845 at visas som bild, du skall istället lägga in din sträng där, dvs värdet som hämtas från databasen antalet besökare altså!

Och ja koden skall vara inom <%%> om du inte redan har det när du öppnar databsen för att hämta antalaet besökare

MVH

Medlem sedan jan. 20032 285 inlägg
#6

Jo, eftersom det är ASP-kod så ska det skrivas inom <% %>. Såhär kanske scriptet kan se ut i helhet:

<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("session_count.txt"))
counter = clng(act.readline)

if session("been_here_before") = "" then
  session("been_here_before") = "Yes"
  counter = counter + 1
  Set act = fso.CreateTextFile(server.mappath("session_count.txt"), true)
  act.WriteLine(counter)
end if

act.Close : Set act = Nothing
Set fso = Nothing

For i = 1 To Len(CStr(counter))
  Response.Write("<img src=""" & Mid(CStr(counter), i, 1) & """>")
Next
%>

/red Gud vad jag hade slarvat! :p

Medlem sedan jan. 200438 inlägg
#7

tack igen! jag hade redan gjort precis så som du tipsade om... tyckte först att det verkade lite krångligt, men när jag kollade på min kod så var det logiskt. Det funkar fin-fint nu i alla fall.

254 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)