ПОНЯТНО О Visual Basic NET (том 3)


Доступ к локальному диску - часть 2


Рис. 23.5

Идея сценария такова. При первом открытии страницы на данном компьютере сценарий выдает на страницу сообщение "Вы на этой страничке ни разу не были", создает на локальном диске в корне диска С файл INFORMAT.TXT и записывает в него значение счетчика посещений – число 0.

При каждом открытии страницы сценарий ищет в корне диска С файл INFORMAT.TXT и если находит, то считывает с него значение счетчика, увеличивает его на 1 и отображает на странице в виде «Вы здесь были 5 раз». Если же файл не найден, сценарий делает вывод, что на этом компьютере страница еще не открывалась, и делает то, что я описал в предыдущем абзаце.

Вот HTML-документ нашей страницы со включенным в него сценарием:

<html>

<h2>Кое-что о разведении слонов в Антарктиде</h2>

<script language="VBScript"><!--

      Dim objFs          'Объект - Файловая система локального диска

      Dim objFile        'Объект - Файл

      Dim sAdres        'Переменная - Адрес файла на диске

      Dim intSchetchik      'Переменная - счетчик посещений страницы

      sAdres="c:\INFORMAT.TXT"

      Set objFs = CreateObject ("Scripting.FileSystemObject")

      If objFs.FileExists (sAdres) Then

             Set objFile = objFs.OpenTextFile(sAdres, 1)

             intSchetchik = objFile.ReadLine

             intSchetchik = intSchetchik + 1

             Document.Write "Вы здесь были " & intSchetchik & " раз"

      Else

             Document.Write "Вы на этой страничке ни разу не были"

             intSchetchik = 0

             Set objFile = objFs.CreateTextFile (sAdres)

      End If

      objFile.Close

      Set objFile = objFs.OpenTextFile(sAdres, 2)

      objFile.WriteLine (intSchetchik)

      objFile.Close

      Set ObjFs = Nothing

--></script>

</html>

Пояснения: Прочтите строки объявлений. Далее рассмотрим строку

sAdres = "c:\INFORMAT.TXT"

Она задает адрес и имя текстового файла на локальном диске, в котором сценарий будет хранить счетчик посещений. Строка




- Начало -  - Назад -  - Вперед -



Книжный магазин