一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務(wù)器之家:專注于服務(wù)器技術(shù)及軟件下載分享
分類導(dǎo)航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達(dá)式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務(wù)器之家 - 編程語言 - ASP教程 - 用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器

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

2019-10-24 10:52asp技術(shù)網(wǎng) ASP教程

你們能用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器嗎?要帶文本的那種,我在ASP那里要用呀?拜托..........

你們能用JAVASCRIPT幫我寫個(gè)計(jì)數(shù)器嗎?要帶文本的那種,我在ASP那里要用呀?拜托..........    
  我自己寫了一個(gè),是不帶文本的,誰能幫我彌補(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> 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: freexxxx性护士第一次 | japan孕妇孕交freehd| 精品欧美| 秘书小说阿蛮 | 日本男男漫画 | 日韩视频在线精品视频免费观看 | 四虎新网站 | 亚州中文字幕 | 日韩成人在线影院 | 成人免费公开视频 | 久久精品亚洲热综合一本 | 亚洲一二三区久久五月天婷婷 | 四虎b7s22c0m | 第一次不是你高清在线观看 | 四虎精品成人a在线观看 | 精品一区二区三区高清免费观看 | 极品丝袜小说全集 | 免费在线观看日韩 | 免费看国产精品麻豆 | 日日操天天爽 | 国产日产在线观看 | 日韩精品中文字幕视频一区 | 国产日韩欧美 | 日韩精品视频观看 | 精品视频在线免费看 | 亚洲国产综合久久精品 | 日本视频免费在线 | 精品一卡2卡3卡4卡5卡亚洲 | 青青操在线 | 久久大胆视频 | 春光乍泄在线 | 国产精品免费拍拍拍 | 狠狠色婷婷狠狠狠亚洲综合 | 国产综合成人久久大片91 | 国产成人综合一区人人 | 性印度freehd| 成人永久免费视频 | 欧美亚洲国产综合在线 | 九九精品视频在线观看九九 | 欧美日韩中文字幕在线视频 | 非洲黑人又大粗gay 非洲黑人bbwbbwbbw |