Bilde
  Førstesiden | C++ | JavaScript | SQL | ASP | PHP | PHP & MySQL | PHP & PostgreSQL | Bruktbutikk | Linker | Nytt fra php.net | Forum | Quiz
Kodearkiv
+ C++ (50)
+ Intro til PHP (113)
+ PHP og databaser
+ ASP (49)
+ SQL (26)
+ JavaScript (55)
Diverse
» Howto`s (22)
» htaccess
» Innsendte triks
Feedback
» Ris og ros
» Rapporter bugs
» Ny artikkel
» Kontakt meg
Verktøy
» Generer robots.txt
» Generer metatagger
» Redirect generator
» Scann metatagger
» Bakgrunnsfarge
» Velg font
Sjekk kode
» HTML Validator
» CSS Validator
Tilfeldig link
» Python
Tjenester
» Forum
» Quiz!



Førstesiden / ASP / .html

Teller med tekstfil

<%@Language="VBScript"%>

<%Session.LCID=1033

'En fancy funksjon som leser et tall fra en fil, øker det og
'skriver over det gamle'
'viktig å huske skriverrettigheter'
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

 CounterFile = Server.MapPath ("counter.txt")
 Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1,True)

 If Not ReadCounterFile.AtEndOfStream Then
 CounterHits = Trim(ReadCounterFile.ReadLine)
 If CounterHits = "" Then CounterHits = 0
 Else
 CounterHits = 0
 End If

 ReadCounterFile.Close
 Set ReadCounterFile = Nothing

 CounterHits = CounterHits + 1

 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile,True)
 WriteCounterFile.WriteLine(CounterHits)
 WriteCounterFile.Close
 Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing
%>

Her det viktig å lage et txt-dokument som heter counter.txt og som har skriverettigheter til alle.

Skrevet av Sindre Mathisen 2001


Utskriftsvennlig versjon | Forslag til endring av artikkel | Skriv ut | Ny kommentar

Det er ingen kommentarer til denne artikkelen.



Nyttige program
PHP
MySQL
PostgreSQL
.NET FrameWork
Apachetoolbox
EasyPHP
PHP Coder
Om meg
CV
Hvem er jeg?
Støtt sindrem.com
Bli partner?
Linke til Sindrem.com
SinSoft
Priser annonsering
Oppdrag
Kursplan 2003
Systemutvikling
Forum
Søk på sindrem.com
 
 
Søk på php.net
 
 
Nyhetsbrev
 
 På:Av:
 


 ©® Sindre Mathisen, SinSoft™ Designet for NS 6.0, IE 5, Opera 5.0 og nyere. Bokmerk denne siden.




Forum1.no - Bannerexchange