台灣最大程式設計社群網站
線上人數
530
 
會員總數:245973
討論主題:189551
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP]一個有關計數器的問題
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP]一個有關計數器的問題
價值 : 0 QP  點閱數:983 回應數:4
樓主

shongba
初學者
4 2
0 0
發送站內信

如果我的counter.txt~~裡的寫法是--->>> 原本是 0
那下面的法法我應該怎麼改才能讓它寫入counter.txt能夠是hits=0
<%
   CountFile = Server.MapPath("counter.txt")
   Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
   Set Out= FileObject.OpenTextFile (CountFile, 1, FALSE, FALSE)
   counter = Out.ReadLine
   Out.Close
   SET FileObject = Server.CreateObject("Scripting.FileSystemObject")
   Set Out= FileObject.CreateTextFile (CountFile, TRUE, FALSE)
   Application.lock
   counter= counter + 1
   Out.WriteLine(counter)
         Application.unlock
   Out.Close
   Length=Len(counter)
   ImgStr=""
   for i=1 to 6 - Length   ' 
       ImgStr1="<img src=""digit/0.gif"" alt=""0"">"+ImgStr1
   next
   do while Length>=1      ' 
      ImgStr2="<img src="""+mid(counter,length,1)+".gif"" alt=""" + mid(counter,length,1)+ """>"+ImgStr2
      Length=Length-1
   loop
   ImgStr=ImgStr1+ImgStr2   
%>

搜尋相關Tags的文章: [ 計數器 ] ,
本篇文章發表於2002-07-18 13:51
1樓
回應

Wallace
檢舉此回應
這簡單吧 ... 

<%
'***** 加這行 ****
txt = "hits="   

CountFile = Server.MapPath("counter.txt")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.OpenTextFile (CountFile, 1, FALSE, FALSE)

'***** 改這行 *****
counter = Replace(Out.ReadLine, txt, Empty)
Out.Close
SET FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.CreateTextFile (CountFile, TRUE, FALSE)
Application.lock

'***** 再改這行 *****
counter= txt & (counter + 1)
Out.WriteLine(counter)
      Application.unlock
Out.Close
  
... 其它略 


是不是你要的?


Wallce.

本篇文章回覆於2002-07-18 22:03
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

shongba
檢舉此回應
首先感謝Wallace的指點...
因為我本來只是作視覺的~真的是asp的菜鳥...>.<

只是後來由此程式寫入counter.txt裡時...它會自動在字之後多一斷行(也就是相當於html裡的<br>) 
如此之後, 變得我原本的其它檔要loadVariables("counter.txt")時
因為counter.txt多一斷行, 所以無法寫入....

未知如何控制讓其寫入counter.txt..時..不多一斷行..完全停止於最後一字

謝謝!
本篇文章回覆於2002-07-19 02:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

Wallace
檢舉此回應
那是就不要使用 obj.WriteLine method,改用 obj.Write method;前者會寫入一行文字再加一個換行字元,後者只會寫你要的字串 ~~


Wallace.
本篇文章回覆於2002-07-19 08:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

shongba
檢舉此回應
哇~~Wallace.真是太感謝您嚕....
終於可以正常運作了!!

這裡果然是個好地方 T_T. 
本篇文章回覆於2002-07-19 09:32
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.