% ' 將使用者的登入時間、姓名、IP記錄下來... Data01 = time Data02 = date Data03 = Request.ServerVariables("REMOTE_ADDR") File02 = Server.MapPath( "/sdrs/counter/visiter.txt" ) Set fs = Server.CreateObject("Scripting.FileSystemObject") Set txt1 = fs.OpenTextFile(File02,8) txt1.Writeline Data01 & " " & Data02 & " " & Data03 %> <% ' 計數器,計算訪客數... If Session("counter2") = Empty Then Session("counter2") = kjFileCounter("/sdrs/counter/counter2.txt") End If %>
秒後即將自動進入中文首頁