%@ Language=VBScript %> <% fp = Server.MapPath("dlcount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("bfydocct") = "" then Session("bfydocct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close %>
|
|||||||||
|
|
|