here is my code.You wanted to see it fengshui_1998 :-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
Set writefile= oFS.OpenTextFile("c:\a.txt",true)
writefile.write(S1.value)
writefile.close
end function
function open()
Dim oFS, readfile
Set oFS = CreateObject("Scripting.FileSystemObject"
Set readfile= oFS.OpenTextFile("c:\a.txt",true)
readfile.ReadAll
readfile.close
end function
</script>
<body>
<textarea rows="20" name="S1"
cols="80"></textarea><br>
<input type="button" id="save"
value="Save" onClick="save()">
<input type="button" id="open"
value="Open" onClick="open()">
</body>
</html>
here is my code.You wanted to see it fengshui_1998 :-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
Set writefile= oFS.OpenTextFile("c:\a.txt",true)
writefile.write(S1.value)
writefile.close
end function
function open()
Dim oFS, readfile
Set oFS = CreateObject("Scripting.FileSystemObject"
Set readfile= oFS.OpenTextFile("c:\a.txt",true)
readfile.ReadAll
readfile.close
end function
</script>
<body>
<textarea rows="20" name="S1"
cols="80"></textarea><br>
<input type="button" id="save"
value="Save" onClick="save()">
<input type="button" id="open"
value="Open" onClick="open()">
</body>
</html>
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.