用JAVASCRIPT帮我写个计数器

站长资源 2024/11/24 佚名

2 0 1

你们能用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();
  %>这些命令,可具体怎么写呢?

复制代码代码如下:
给你一个最全的吧：
  <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>

用JAVASCRIPT帮我写个计数器

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

评论“用JAVASCRIPT帮我写个计数器”

暂无评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新日志

2024年11月24日

用JAVASCRIPT帮我写个计数器

用ASP读取XML文件的具体方法与示例

另类扩展名同样执行ASP

评论“用JAVASCRIPT帮我写个计数器”

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接