如果想快点加入世纪星或是对我们俱乐部有什么建议或意见，那就马上联系我们吧！ |
首体电话：010-68348684 |
亦庄电话：010-67880194 |
| 访问人数：
|
<%
Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(ForReading,TristateUseDefault)
s=ts.readline+1
ts.close
else
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
end if
'向counter.txt中写数据
Set ts = f.OpenAsTextStream(ForWriting,TristateUseDefault)
ts.writeline(cstr(s))
ts.close
'显示计数器
s=cstr(s+1000000)
response.write ""& s &""
%>
|
|