<%
' 將使用者的登入時間、姓名、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
%>
海洋大學 永續發展研究社 NTOU Sustainable Development Research Society
NTOU Sustainable Development Research Society
您是第
位貴賓！
Since
2002.05.07
23:00