|
<%@ 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 new IsolatedStorageFileStream("Default.aspx", FileMode.OpenOrCreate)
dim objReader as new StreamReader(stream)
while objReader.Peek() > -1
Response.Write(Server.HTMLEncode(objReader.ReadLine) & "<br>")
end while
objReader.Close
end sub
</script>
<html>
<body>
</body>
</html>
|