国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

用JAVASCRIPT幫我寫個計數器

2024-05-04 10:58:25
字體:
來源:轉載
供稿:網友
你們能用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   
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 伊川县| 宁乡县| 康平县| 闸北区| 乌苏市| 黑龙江省| 亳州市| 石柱| 商水县| 大石桥市| 昌吉市| 南部县| 黄冈市| 新化县| 长乐市| 苍梧县| 辽阳市| 红河县| 林州市| 德江县| 钟祥市| 鹿泉市| 广丰县| 儋州市| 施秉县| 剑河县| 德钦县| 昭苏县| 勐海县| 阳江市| 仁布县| 苗栗县| 武功县| 盐津县| 弥勒县| 朝阳县| 遂川县| 清徐县| 德州市| 平凉市| 虹口区|