|
实验一
信息技术与课程整合概述
|
-
本站发布:2003年5月27日
-
最近更新：2003年7月1日
<%
CountFile=Server.MapPath("jsq.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
if session("jsq")<>"yes" then
counter= counter + 1
session("jsq")="yes"
end if
Out.WriteLine(counter)
Application.unlock
Response.Write("")
Response.Write("来访统计：")
Response.Write("")
Response.Write(counter)
Response.Write("次")
Out.Close
%>
|
