您现在的位置是：网站首页> 编程资料编程资料

用JAVASCRIPT帮我写个计数器_ASP基础_

2023-05-25 339人已围观

简介用JAVASCRIPT帮我写个计数器_ASP基础_

你们能用JAVASCRIPT帮我写个计数器吗?要带文本的那种,我在ASP那里要用呀?拜托..........
  我自己写了一个,是不带文本的,谁能帮我弥补一下呢?
  <%@   Language=Jscript   %>

  <%
  Application.Lock();
  Application("Counter")   =   parseInt(Application("Counter"))   +   1;
  Application.UnLock();

  %>
  我知道要用到<%
  var   path   =   Server.MapPath("test.txt");
  var   MyFileObject   =   Server.CreateObject("Scripting.FileSystemObject");
  var   MyTextFile   =   MyFileObject.CreateTextFile(path);
  MyTextFile.WriteLine("");
  MyTextFile.Close();
  %>这些命令,可具体怎么写呢?

复制代码代码如下:

给你一个最全的吧：    
      
  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    
                                    

      
      
      
  计数器例子    
      
      
  您是本站第<%=application("counter")%>位贵宾！      
  

您可能感兴趣的文章:

上一篇：另类扩展名同样执行ASP_ASP基础_

下一篇：用ASP读取XML文件的具体方法与示例_ASP基础_

您现在的位置是：网站首页> 编程资料编程资料

用JAVASCRIPT帮我写个计数器_ASP基础_

相关内容

点击排行

本栏推荐

猜你喜欢