亚洲激情第一页,欧美午夜理伦三级在线观看,国产精品欧美日韩

你們能用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器嗎?要帶文本的那種,我在ASP那里要用呀?拜托..........
  我自己寫了一個(gè),是不帶文本的,誰(shuí)能幫我彌補(bǔ)一下呢?
  %@   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();
  %>這些命令,可具體怎么寫呢?

復(fù)制代碼代碼如下:

給你一個(gè)最全的吧：    
  script   language   =   "vbscript"   runat   =   "server">    
  sub   application_onstart    
          '取的計(jì)數(shù)文件的真實(shí)路徑    
          countfile=server.mappath("count.txt")    
          '創(chuàng)建文件系統(tǒng)對(duì)象實(shí)例    
          set   myfso   =   server.createobject("scripting.filesystemobject")    
          '若計(jì)數(shù)文件不存在    
  if   not   myfso.fileexists(countfile)   then    
                  '創(chuàng)建該文件及取得textstream對(duì)象實(shí)例    
  set   mytextstream   =   myfso.createtextfile(countfile,   True)    
  application.lock    
  application("online")   =   0    
  application("counter")   =   0    
  application.unlock    
  '將計(jì)數(shù)值寫入文件      
  mytextstream.writeline(cstr(application("counter")))    
  else    
                  '以只讀的方式打開    
                  set   mytextstream   =   myfso.opentextfile(countfile,1,false)    
                  '讀一行，并將值賦給計(jì)數(shù)變量    
                  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)    
          '以寫行的方式將數(shù)據(jù)寫入文件    
          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>計(jì)數(shù)器例子/title>    
  /head>    
  body>    
  div   align="center">您是本站第font   color="#FF0000">%=application("counter")%>/font>位貴賓！      
  /div>    
  /body>    
  /html> 

您可能感興趣的文章:

js計(jì)數(shù)器代碼
JavaScript實(shí)現(xiàn)計(jì)數(shù)器基礎(chǔ)方法
使用JavaScript制作一個(gè)簡(jiǎn)單的計(jì)數(shù)器的方法
javascript下計(jì)數(shù)器每秒自動(dòng)加1
原生JS實(shí)現(xiàn)非常好看的計(jì)數(shù)器
JS實(shí)現(xiàn)簡(jiǎn)單計(jì)數(shù)器

標(biāo)簽：馬鞍山湖北平頂山孝感遼陽(yáng) 朝陽(yáng) 四平防城港

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器》，本文關(guān)鍵詞用,JAVASCRIPT,幫我,寫個(gè),計(jì)數(shù)器,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器