zoukankan      html  css  js  c++  java
  • javascript写计数器

    <script   language   =   "vbscript"   runat   =   "server">   
      sub   application_onstart   
              '取的计数文件的真实路径   
              countfile=server.mappath("count.txt")   
              '创建文件系统对象实例   
              set   myfso   =   server.createobject("scripting.filesystemobject")   
              '若计数文件不存在   
      if   not   myfso.fileexists(countfile)   then   
                      '创建该文件及取得textstream对象实例   
      set   mytextstream   =   myfso.createtextfile(countfile,   True)   
      application.lock   
      application("online")   =   0   
      application("counter")   =   0   
      application.unlock   
      '将计数值写入文件     
      mytextstream.writeline(cstr(application("counter")))   
      else   
                      '以只读的方式打开   
                      set   mytextstream   =   myfso.opentextfile(countfile,1,false)   
                      '读一行,并将值赋给计数变量   
                      application("counter")   =   mytextstream.readline   
      end   if   
            mytextstream.close   
            set   myfso   =   nothing   
      end   sub   
      sub   session_onstart   
              session.timeout   =   1   
              countfile   =   server.mappath("count.txt")   
              set   myfso   =   server.createobject("scripting.filesystemobject")   
              application.lock   
              application("online")   =   application("online")+1   
              application("counter")   =   application("counter")+1   
              application.unlock   
              '以写方式打开文件   
              set   mytextstream   =   myfso.opentextfile(countfile,2,false)   
              '以写行的方式将数据写入文件   
              mytextstream.writeline(cstr(application("counter")))   
              mytextstream.close   
              set   myfso   =   nothing   
      end   sub   
      sub   session_onend   
              application.lock   
              application("online")   =   application("online")-1   
              application.unlock   
      end   sub   
      </script>                                 
      <html>   
      <head>   
      <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">   
      <title>计数器例子</title>   
      </head>   
      <body>   
      <div   align="center">您是本站第<font   color="#FF0000"><%=application("counter")%></font>位贵宾!     
      </div>   
      </body>   
      </html>
     

  • 相关阅读:
    postgresql允许远程访问的配置修改
    Oracle常用监控sql语句
    Python Twisted 学习系列22(转载stulife最棒的Twisted入门教程)
    Python Twisted 学习系列21(转载stulife最棒的Twisted入门教程)
    有趣的题目
    入学测试题详解
    完成这个例子,说出java中针对异常的处理机制。
    遍历Map key-value的两种方法
    java中的 FileWriter类 和 FileReader类
    Java中Split函数的用法技巧
  • 原文地址:https://www.cnblogs.com/supercode/p/739698.html
Copyright © 2011-2022 走看看