count.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 28 行

<%
function kjfilecounter(counter_file)
    application.lock
    set fs=server.createobject("scripting.filesystemobject")
    file=server.mappath(counter_file)
    set ts=fs.opentextfile(file,1,true)
    'set ts=fs.opentextfile(counter_file)
    If Not ts.atEndOfStream Then 
       kjFileCounter = clng(ts.ReadLine)
       'lines=replace(ts.readall,vbcrlf,"<br>")
       kjFileCounter = kjFileCounter + 1
       ts.Close
    On Error Resume Next 
    Set ts = fs.CreateTextFile( file, True )
      ts.WriteLine kjfilecounter
      ts.Close
    End If
    Application.UnLock
End Function
%>
<%'if session("counter")=empty then
   session("counter")=kjfilecounter("\UpFiles\count20020627.txt")
  'else
  'Response.write"<SCRIPT language=JavaScript>alert('对不起，你不能重复投票！');</script>"

'end if   
%>