Text Counter

Posted on March 4th, 2009 sa ASP sa pamamagitan ng admin

Ngayon gumawa ng folder na tinatawag na counter o maaari kang tumawag sa iba pang dahilan kung nais mo lamang tandaan at palitan ang code sa itaas. Ngayon lumikha ng isang text file na tinatawag na counter1.txt at ipasok ang kahit anong nais mong simulan ang count sa.

<% @ Wika = VBScript%>
<%
Madilim fso
Itakda fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / ito ay ang landas na iyong counter1.txt file
counter = Server.MapPath ( "/ counter") & "\ counter1.txt"
/ / buksan ang text file
Itakda ang InStream = fso.OpenTextFile (counter, 1, Mali)
oldCount = maimis (InStream.ReadLine)
/ / paglakas ng oldcount ng 1 at tindahan sa newcount
newCount = oldCount + 1
Itakda ang OutStream = fso.CreateTextFile (counter, Tama)
/ / kopyahin newcount sa text file
OutStream.WriteLine (newCount)
%>

Ngayon na iyong nais na lugar ang folllowing kung saan mo nais ang counter upang lumitaw sa iyong site

<% = NewCount%>

Related posts:

  1. Mas tumpak na teksto counter Ito ay isang mas tumpak ang counter sa aming nakaraang halimbawa ...
  2. Ipakita ang isang CSV file Ipakita ang isang CSV file na CSV files ay karaniwang format ng sa ...
  3. Ini-imbak ang isang CSV file sa isang database Gumawa ng isang database sa pag-access na tinatawag na stock.mdb. Ngayon gumawa ng ...
  4. rndimage1 Ito ay isang simpleng random na imahe ng script na kung saan ay ideal ...
  5. Magsulat ng text sa isang file na ito ay gumagamit ng halimbawa streams na magsulat sa isang text file ...

Related posts nagdala sa iyo sa pamamagitan ng isa pang Yet Related Posts Plugin.

Mag-post ng isang puna