asp 计数器程序求解读 ：各位大侠 小弟对这个程序看的不是很明白 希望帮忙解读一下啊
<%functioncounts(counterfile)dimobjfso,objtsapplication.locksetobjfso=server.createob...
<%
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
%>
<html>
<body>
你是第<%response.write counts("counter.txt")%>位访客
</body>
</html> 展开
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
%>
<html>
<body>
你是第<%response.write counts("counter.txt")%>位访客
</body>
</html> 展开
2个回答
展开全部
晕不会一句都不懂吧，就是把数量记录在一个counter.txt文件里
counts 是一个函数
counts 是一个函数
追问
重点解读一下上面的 为什么是
if not objts.atendofstream then
counts=clng(objts.readline)
end if
counts=counts+1
还有为什么还要
set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
objts.writeline(counts)
追答
if not objts.atendofstream then '如果没有到达文本文件夹的结尾说明有数据
(atendofstream:at end of stream 判断是否有数据)
counts=clng(objts.readline) '读出数据
counts=counts+1 'count+1
set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
'打开counterfile,以写入的方式,2代表写入的方式,true代表如果文件不存在创建新文件
objts.writeline(counts) '写入counts到counterfile
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
