熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp簡單文本計數器

2013-11-13 10:40:53  來源: .NET編程 

  <% 
Set fs = CreateObject("ScriptingFileSystemObject")
Wfile=servermappath("") & "cgibinwwwcncn/asp/asphtmltxt"
on error resume next
Set a = fsOpenTextFile(Wfile)
hits = Clng(aReadLine)
hits = hits +
aclose

  if error then
hits =
end if

  Set a = fsCreateTextFile(WfileTrue)
aWriteLine(hits)
aClose
%>
 

  Number of hits: <% =hits %>

  人數在您的文件將增加到每一次您的網頁訪問最後一行在此腳本可以讓您將顯示的點擊次數在您的回復頁面


From:http://tw.wingwit.com/Article/program/net/201311/14287.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.