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"

, .