Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Besöksräknare

Postades av 2003-08-16 12:40:24 - Benni Svensson, i forum asp - allmänt, Tråden har 10 Kommentarer och lästs av 527 personer

Ville bara kolla så att jag tänker rätt.
Håller på med en besöksräknare, men vill inte att den skall räkna upp för varje gång som man "refresha". Vad tror ni om detta?
<code>
<%
Dim objPageCount,besokare
Set objPageCount = Server.CreateObject("MSWC.PageCounter")
if Session.SessionID=besokare then
objPageCount.PageHit()
besokare=Session.SessionID
end if
Response.Write "<FONT SIZE = 1>Besökare nr<BR>" & objPageCount.Hits() & "</FONT>"

%>
</code>
Det som gör mig undrande är if Session.SessionID=besokare then
Det skulle ju innebära att den enbart skulle räkna upp om sessionID var samma.
Jag skulle ju vellat ha if Session.SessionID<>besokare then
Men då räknar han upp hela tiden, när man refresha.

Vad tror ni?


Svara

Sv: Besöksräknare

Postades av 2003-08-16 13:50:56 - Oskar Johansson

Du använder dig av variabeln besokare som bara gäller så länge sidan exekveras på servern, den tas bort när sidan är klar... Sedan skapas den nästa gång, men är tom då... du får använda session("voted") = true eller nå't istället... Bäst är dock att använda en databas och göra så att samma ip bara kan rösta öka räknaren en gång per dygn...


Svara

Sv: Besöksräknare

Postades av 2003-08-16 14:45:21 - Benni Svensson

Helt naturligt så var det ett kanonbra tips.
Tack Onkelberg.


Svara

Sv: Besöksräknare

Postades av 2003-08-16 15:06:45 - Oskar Johansson

Det var så lite så... =D


Svara

Sv: Besöksräknare

Postades av 2003-08-17 12:33:12 - Benni Svensson

Det dyker upp problem i alla fall.
Om man stänger ner datorn, så börjar ju den att räkna upp ifrån 1 igen. Något bättre förslag till en besöksräknare?


Svara

Sv: Besöksräknare

Postades av 2003-08-17 12:51:43 - Oskar Johansson

Japp, en databas alt. en text-fil. Helst databas, det är en enkel sql-sats: "update TABELL set counter=(counter+1)"


Svara

Sv: Besöksräknare

Postades av 2003-08-17 13:56:29 - Benni Svensson

Nja, jag tycker inte att jag vill ha en databas enbart för detta. Jag hittade en liten kodsnutt som jag tycker borde passa:
<code>
Dim sPath, filesys, count, getValue, update, twohrs

sPath = Request.ServerVariables("Path_Translated")
sPath = Left(sPath,InStrRev(sPath,"\")) & "counter.txt"

Set filesys = CreateObject("Scripting.FileSystemObject")

Set getValue = filesys.OpenTextFile(sPath,1,0)
' get the current value
count = getValue.ReadLine
If Request.Cookies("website_name")("recentvisitor") <> "yes" Then
' increment by 1 before displaying, 'cos they're a newbie
count = Int(count) + 1
End If
' close file
getValue.Close
</code>
Men han tycker inte om FSO, jag är inte f-n till att få bort skrivskyddet på mappen.
Så fort som jag högerklicka på webbmappen, tar bort skrivskyddet, stänger och sedan kommer tillbaka, så är skrivskyddet ifyllt.
Märkvärdigt.


Svara

Sv: Besöksräknare

Postades av 2003-08-17 23:11:46 - Stefan Brännström

Har du ändrat säkerhet/åtkomst i NTFS för aktuell mapp?
...eller är det bara skrivskyddet under Allmänt du försöker plocka bort?


Svara

Sv: Besöksräknare

Postades av 2003-08-18 02:17:24 - Benni Svensson

Jo det är nog så att jag har försökt via Allmänt. Jag känner mig lite osöker på vad du menar med NTFS(det är ju filsystemet eller?)


Svara

Sv: Besöksräknare

Postades av 2003-08-18 02:37:49 - Stefan Brännström

Jepp. Du måste ge den anonyme besökaren, vanligen kontot IUSR_datornamn, skrivrättigheter i berörd mapp.


Svara

Sv: Besöksräknare

Postades av 2003-08-18 12:06:26 - Benni Svensson

OK, men det är gjort (jag missförstod dig). men li för-t så under allmänt så står det skrivskyddat.
Är det ingenting att bry sig om då?


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 796
27 960
271 761
2 323
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies