%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% creatfile="c:\inetpub\debtbustersusa\counter\howmuch.txt" whichFile = SERVER.MAPPATH("counter\howmuch.txt") Set readit = CreateObject("Scripting.FileSystemObject") Set thisFile = readit.OpenTextFile(whichfile, 1, False) thisLine = thisFile.ReadLine thisfile.close newname=thisline + 1 set writeit = createobject("Scripting.FileSystemObject") set updatefile = writeit.CreateTextFile(creatfile,true) updatefile.writeline(newname) updatefile.close %>
|
|||||
Seminars / Classes :
|