|
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.IO.IsolatedStorage" %>
<script runat="server">
sub Page_Load(Sender as Object, e as EventArgs)
dim stream as IsolatedStorageFileStream
dim writer as StreamWriter
dim data as string = "blue"
stream = new IsolatedStorageFileStream("Default.aspx",FileMode.OpenOrCreate)
writer = new StreamWriter(stream)
writer.WriteLine(data)
writer.Close()
end sub
</script>
<html><body>
</body></html>
|