|
|
南京校友会召开第二次筹备大会 |
上海校友会筹集10万元奖学基金 |
安徽工业大学招聘博士后 |
校领导调研 |
<%
CountFile=Server.MapPath("simplecounter.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
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write(" 此页被访问")
Response.Write("")
Response.Write(counter)
Response.Write("")
Response.Write("次数")
Out.Close
%>
|
