国产探花免费观看_亚洲丰满少妇自慰呻吟_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   
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 南澳县| 阜阳市| 黑龙江省| 临海市| 祁阳县| 大埔县| 山阴县| 增城市| 西华县| 海盐县| 漳平市| 平南县| 简阳市| 东方市| 梧州市| 蓬莱市| 镇赉县| 繁峙县| 丰都县| 嘉祥县| 天柱县| 肥乡县| 衡南县| 安宁市| 潮安县| 巴青县| 拉萨市| 三原县| 青海省| 宜兰市| 鹤峰县| 常山县| 双柏县| 汝城县| 五原县| 潜江市| 鄄城县| 宜君县| 湖北省| 怀宁县| 珲春市|