Teksti Counter

Posted maaliskuussa 4th, 2009 ASP by admin

Nyt luoda kansio nimeltä laskurit, tai voit kutsua sitä joksikin muuksi, jos haluat vain muistaa ja muuttaa koodin edellä. Nyt teksti-niminen tiedosto counter1.txt ja kirjoita mitä haluat aloittaa ääntenlaskenta klo.

<% @ Language = VBScript%>
<%
Dim FSO
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / tämä on tie omaan counter1.txt tiedosto
counter = Server.MapPath ( "/ laskurit") & "\ counter1.txt"
/ / avataan tekstitiedosto
Aseta suoratoistona = fso.OpenTextFile (vastapäivään, 1, epätosi)
oldCount = Trim (InStream.ReadLine)
/ / suurennettava oldcount 1 ja säilytetään newcount
newCount = oldCount + 1
Aseta OutStream = fso.CreateTextFile (vastapäivään, True)
/ / kopio newcount on tekstitiedoston
OutStream.WriteLine (newCount)
%>

Nyt voit asettaa folllowing jos haluat, että vastoin näyttää sivustossasi

<% = NewCount%>

Liittyvää virkaa:

  1. Lisää tarkka teksti counter Tämä on tarkempi laskuri kuin edellisessä esimerkissä ...
  2. Näyttö CSV-tiedosto Näytä CSV-tiedosto CSV-tiedostot ovat yhteisiä muodoissa ...
  3. Tallentaminen CSV tiedoston tietokannan luominen tietokantaan pääsy vaati stock.mdb. Nyt ...
  4. rndimage1 Tämä on yksinkertainen Random Image komentosarjan, joka on ihanteellinen ...
  5. Kirjoita teksti tiedoston Tämä esimerkki käyttää puroihin kirjoittaa tekstiä tiedoston ...

Liittyvien virkojen tuonut sinulle vielä Related Posts Plugin.

Kommentoi