%> 我知道要用到<% var path = Server.MapPath("test.txt"); var MyFileObject = Server.CreateObject("Scripting.FileSystemObject"); var MyTextFile = MyFileObject.CreateTextFile(path); MyTextFile.WriteLine(""); MyTextFile.Close(); %>這些命令,可具體怎么寫呢?
復制代碼 代碼如下:
給你一個最全的吧: <script language = "vbscript" runat = "server"> sub application_onstart '取的計數文件的真實路徑 countfile=server.mappath("count.txt") '創建文件系統對象實例 set myfso = server.createobject("scripting.filesystemobject") '若計數文件不存在 if not myfso.fileexists(countfile) then '創建該文件及取得textstream對象實例 set mytextstream = myfso.createtextfile(countfile, True) application.lock application("online") = 0 application("counter") = 0 application.unlock '將計數值寫入文件 mytextstream.writeline(cstr(application("counter"))) else '以只讀的方式打開 set mytextstream = myfso.opentextfile(countfile,1,false) '讀一行,并將值賦給計數變量 application("counter") = mytextstream.readline end if