<%
Function G_Counts(Counterfile)
Dim objFSO,objTS,Counter
Application.Lock
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objTS=objFSO.OpenTextFile(Server.MapPath(CounterFile),1,true)
if Not objTS.AtEndOfStream Then
Counter=Clng(objTS.ReadlLine)
End if
Counter=Counter+1
objTS.Close
set objTS=objFSO.OpenTextFile(Server.MapPath(CounterFile),2,true)
objTS.WriteLine(Counter)
objTS.close
Application.Unlock
end Function
%>
淡江大學德國語文學系
