SAVE - LOAD

Ukážka
Objekyt <INPUT value="Napíš text" id=text1 style="WIDTH: 200px; HEIGHT: 25px">
<INPUT id=SA type="submit" name="Submit" value="save">
<INPUT id=LO type="submit" name="Submit2" value="load">
VBScript <SCRIPT LANGUAGE=vbscript><!--
Dim Fso, TDS, text, nazovSuboru
nazovSuboru = "subor.txt"'nazov a cesta k suboru

Sub SA_onclick 'zapis
Set Fso = CreateObject("Scripting.FileSystemObject")
text = text1.value
If text <> "" Then
Set TDS = Fso.CreateTextFile(nazovSuboru, True, False)
TDS.Write text
TDS.Close
End If
Set Fso = Nothing
Set TDS = Nothing
End Sub

Sub LO_onclick ' nacitanie
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(nazovSuboru) Then
Set TDS = Fso.OpenTextFile(nazovSuboru, 1, False)
text = TDS.ReadAll
TDS.Close
End If
Set Fso = Nothing
Set TDS = Nothing
text1.value=text
End Sub
--></SCRIPT>