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>
     

  • 相关阅读:
    将CMD内的显示内容输出到txt文件
    上传项目到Github
    利用百度地图API,在浏览器中找到自己的位置
    操作系统相关知识
    字符串的全排列
    二维数组做函数参数、指向指针的指针做函数参数
    strstr函数与strcmp函数
    华为机试题——数组排序,且奇数存在奇数位置,偶数存在偶数位置
    单链表的建立,插入,显示,查找删除以及反转
    《深入了解 Linq to SQL》之对象的标识 —— 麦叔叔呕心呖血之作
  • 原文地址:https://www.cnblogs.com/supercode/p/739698.html
Copyright © 2011-2022 走看看