解释一下这段代码,网站计数器的,有很多词我都看不懂

来源：百度知道编辑：UC知道时间：2024/05/17 20:52:33

<%
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)
s=mid(s,2,6)
for i=1 to 6
response.write "<img src='../images/"&mid(s,i,1)
&".gif' width='18' height='25'>"
next

%&g

这种东西最好还是自己看帮助学习的好，分太少了，很少有人愿意答的。

Const ForReading = 1, ForWriting = 2, ForAppending =3 '定义常量
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 '定义常量
filepath=server.mappath("/count") '得到/count所在的实际目录
filename=filepath+"\counter.txt" '文件实际地址
set fs=createobject("scripting.filesystemobject") '建立fso对像
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 '初始化计数为1
end if

'向counter.txt中写数据
Set ts = f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s)) '写入计数内容
ts.close

'显示计数器
s=cstr(s+100000

解释一下这段代码,网站计数器的,有很多词我都看不懂解释一下这段代码！网站计数器的代码谁有谁有一个计数器的代码网站谁有网站计数器的代码啊？网站被挂木马，麻烦解释一下这段代码的含义! 帮我解释一下这段代码的意思.. 请高手帮忙解释一下这段代码的意思请帮我逐句解释一下这段代码的意思请高手帮我解释一下这段代码的意思