View Single Post
Staro 24.11.2005., 11:52   #6
gremlin33
just like Registered User
Moj komp
 
gremlin33's Avatar
 
Datum registracije: Jul 2004
Lokacija: zagreb
Postovi: 166
eve ti za ASP...davno sam to radio al mislim da fercera
<%
'početak countera
dim objFS,obRS,fcount,strPutanjaCount
strPutanjaCount=Server.MapPath("count/counter.txt")

Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set obRS=objFS.OpenTextFile(strPutanjaCount, 1,false)
fcount=(obRS.ReadLine) 'čita koji je broj u fajli
obRS.Close

fcount=fcount+1 'nadodaje na broj još jedan

obRS.Write fcount 'ispisuje
obRS.Close

Set obRS=Nothing
Set objFS=Nothing

'kraj countera
%>

nemoj mi zamjerit ako ima grešaka al' bash nemam vremena gledat...
ovako nešto staviš da ti se izvršava kad dodješ na homePage
__________________
što me snađe da se ovdje nađe!
gremlin33 je offline   Reply With Quote