<%@ Language=vbscript CODEPAGE="936"%>
<%
function counts(counterfile)
dim objfso,objts
application.lock
'set objfso=server.createobject("scripting.filesystemobject")
'set objts=objfso.opentextfile(server.mappath(counterfile),1,true)
'if not objts.atendofstream then
'counts=clng(objts.readline)
'end if
'counts=counts+1
'objts.close
'set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
'objts.writeline(counts)
'objts.close
application.unlock
end function
%>
中国藏族教育网
<%counts("counter.txt")%>
