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

小弟跪求

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

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

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

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


 

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

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