asp 计数器程序求解读

chinatao 发布于 2011-04-15 09:35， 631 次点击

各位大侠：
      小弟求解读计算机程序   尤其是红色部分小弟先谢谢了
<%
  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
%>

6 回复

chinatao2011-04-15 09:36

小弟跪求

dzt00012011-04-15 10:59

这里边的代码就是FSO读写文件的一个例子，网上有一大堆
atendofstream，opentextfile，writeline这几个都是方法

打开文本，获取原计数，加1后，再写入

chinatao2011-04-15 11:33

if not objts.atendofstream then
   counts=clng(objts.readline)
  end if
  counts=counts+1
这段代码意思是当不是文件尾的话执行counts=clng(objts.readline)为什么这么写

dzt00012011-04-15 12:52

if not objts.atendofstream then    '判断文件指针是否到文件尾，就是是否为空
   counts=clng(objts.readline)    '不为空，就读取文本(计数)。上句不判断的话，如果是空的，会报错
  end if
  counts=counts+1    '计数加1

chinatao2011-04-15 13:54

谢谢dzt0001，小弟刚接触asp，以后请多多指教

chinatao2011-04-15 13:58

哦明白了小弟把end if 看做成了 elseif了谢谢