Tæl antallet og skriv det til en TXT fil

1. del
set rs = conn.execute("select sum(VISIT) as total from test")

Som jeg ser det, så virker det som en lidt tung måde at gøre det på, hver gang der er en der besøger en af dine sider skal visit.txt rettes.
Hvor laver du ikke bare et udtræk af det samlede antal besøg der hvor du gerne vil have det vist når du nu har en kolonne i databasen hvor du tæller antal hits ?

<%
response.buffer = true

' ***********************************************************
' SAMMENTÆL BESØG IALT
' ***********************************************************

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/test.mdb")
Set con = server.createobject("adodb.connection")
con.open strCon

SQL = "SELECT sum(visit) as antalialt FROM test"
set rs = con.execute(SQL)

response.write "Ialt " & rs("antalialt")

rs.close
set rs = nothing
con.close
set con = nothing

%>

/Goose

Her kan du lære hvordan du skal skrive til en txt fil....

http://www.w3schools.com/asp/asp_ref_textstream.asp

GOOSE

jeg vil også have at det er en database der styrer det men min database kan evt blive for stor og derfor vil jeg kunne hver 2-3 mdr lave en optælling og skrive det til en txt fil som jeg har skrevet og så rende det script du have lavet til mig så jeg nulstiller databasen. og starter forfra

hmm, hvorfor så have en tæller, det forstår jeg slet ikke noget af, gider  du forklarer mig hvad formål det så tjener ?

/Goose

Hmm, prøv nedenstående hvor din fil visit.txt ligger i mappen "database".
På den måde får du ihvertfald lavet en textfil som indeholder antal besøg, men hvordan du får flere linier sat ind kan jeg ikke lige se, men ellers lav en textfil til hvert formål, så er det nemmere at overskue.

<%
response.buffer = true

' ***********************************************************
' SAMMENTÆL BESØG IALT
' ***********************************************************

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/test.mdb")
Set con = server.createobject("adodb.connection")
con.open strCon

SQL = "SELECT sum(visit) as antalialt FROM test"
set rs = con.execute(SQL)
antal = rs("antalialt")
rs.close
set rs = nothing
con.close
set con = nothing

' ***********************************************************
' OPDATER TEXT-FIL
' ***********************************************************

CountPath = server.mappath("database/visit.txt")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(CountPath)
Set objFileTextStream = objFile.OpenAsTextStream(1,-2)
usercount = cint(objFileTextStream.readline)

usercount = usercount + cint(antal)

Set objFileTextStream = objFile.OpenAsTextStream(2,-2)
objFileTextStream.WriteLine usercount

objFileTextStream.close

%>


/Goose

grunden til det er fordi jeg vil lave noget statistik for min side hvor man kan se antal besøgende for hver dag/uge/mdr. dog kun 3 mdr tilbage.

og så kan man selvf. se de totale antal besøgende ialt.

jeg skal derfor bruge database for at kunne se den avanceret statistik men så for at denne ikek bliver for stor vil jeg så slette den og nulstille den hver 3. mdr. men tage det tal den er nået til og skrive dette til en txt fil.

ok, men så burde du kunne bruge ovenstående ?

/Goose

ja ser lige om jeg kan men ved den at den skal kigge efter linje 2 i min txt fil og tage det tal der står det og lægge det til og overskrive det !??

Nej, visit.txt skal kun indeholde et tal, ikke andet.
Yderligere hjælp kan jeg ikke give dig nu da jeg skal på arbejde :o(

/Goose

kan du evt lave det så den kigger efter den der linje 2 eller kan det ikke lade sig gøre !?

Ikke lige umiddelbart, er det meget nødvendigt for dig at det lige præcist er linie 2 ?

/Goose

ja fordi jeg vil have et andet tal i linje 4 sådan så det er samlet og så jeg ikek skal have 3-4 forskellige txt filer !!

Okay, prøv så den her istedet for.
Lige for at fortælle dig hvad den gør, så gør den følgende

Den indlæser filen visit.txt
Læser tallet på 2. linie og lægger antal til
Overskriver den eksisterende visit.txt med følgende data:
Linie 1: VISIT
Linie 2: det nye tal

- og så tror jeg ikke du kan pille mere ud af mig i det her spørgsmål.

' ***********************************************************
' OPDATER TEXT-FIL
' ***********************************************************

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(CountPath, 1)
f.SkipLine
usercount = cint(f.Readline)
f.Close
Set f=Nothing
Set fs=Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(CountPath)
Set objFileTextStream = objFile.OpenAsTextStream(1,-2)
usercount = usercount + cint(antal)
Set objFileTextStream = objFile.OpenAsTextStream(2,-2)
objFileTextStream.WriteLine "VISIT"
objFileTextStream.WriteLine usercount
objFileTextStream.close

/Goose