Текст Счетчик

Опубликовано 4 марта 2009 в ASP к администратору

Теперь создайте папку с именем счетчиков или вы можете назвать что-то другое, если вы хотите просто запомнить и изменить код выше. Теперь создайте текстовый файл с именем counter1.txt и введите то, что Вам хотелось бы начать рассчитывать на.

<% @ LANGUAGE = VBScript%>
<%
Dim FSO
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / это путь к Вашей counter1.txt файл
борьбы Server.MapPath = ( "/ счетчики") И "\ counter1.txt"
/ / открыть текстовый файл
Установить InStream = fso.OpenTextFile (счетчик, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / прирост oldcount 1 и хранить в newcount
newCount = oldCount + 1
Установить OutStream = fso.CreateTextFile (счетчик, True)
/ / newcount скопировать в текстовый файл
OutStream.WriteLine (newCount)
%>

Сейчас вам будет folllowing место, где вы хотите счетчика появится на вашем сайте

<% = NewCount%>

Похожие должности:

  1. Более точный текст противодействия этому является более точным, чем борьбе с нашего предыдущего примера ...
  2. Дисплей CSV файл Отображать файла CSV файлов общие форматы для ...
  3. Сохранение файла для базы данных Создание базы данных в отношении доступа призвал stock.mdb. Теперь создаем ...
  4. rndimage1 Это простой случайной образом скрипт, который идеально подходит ...
  5. Напишите текст в файл Этот пример использует потоки писать текст в файл ...

Похожие должности привлечены к вам еще один Похожие Сообщений плагина.

Добавить комментарий