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
6 svar · 273 visningar · startad av adnoctum
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....
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
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
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 ?
<%
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
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
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.