<%
set fs=server.createobject("scripting.filesystemobject")
dir=server.mappath("/student/count.txt")
application.lock
set tf=fs.opentextfile(dir)
num=tf.readall
num=num+1
tf.close
set tf=fs.createtextfile(dir,true)
tf.writeline num
application.unlock
tf.close
set fs=nothing
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & ""
Next
GCounter = G
End Function
%>
上海学生
