% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/scvcourt.mdb") 'นับจำนวนผู้เข้ามา FilePath = Server.MapPath("txt/counter.txt") set Obj = CreateObject("Scripting.FileSystemObject") set ObjStream =Obj.OpenTextFile(FilePath, 1) Temp = ObjStream.Readline + 1 ObjStream.Close Set ObjStream = Obj.OpenTextFile (FilePath, 2) ObjStream.Write(Temp) Session("counter") = True ObjStream.Close 'FilePath =Server.MapPath("../txt/counter.txt") 'set Obj = CreateObject("Scripting.FileSystemObject") 'set Obj = CreateObject("Scripting.FileSystemObject") 'set ObjStream= Obj.OpenTextFile (FilePath, 1) 'temp = ObjStream.ReadLine +1 'ObjStream.Close %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
|